تويت
function string.wordcount(t)
local t = t:gsub("^%s*(.-)%s*$", "%1");
local intWordCount = 0;
local intIndex = 1;
while intIndex <= String.Length(t) do
local strChar = String.Mid(t, intIndex, 1);
if intIndex == 1 then
strPrevChar = ' '
else
strPrevChar = String.Mid(t, intIndex-1, 1);
end
if strPrevChar == ' ' and strChar ~= ' ' then
intWordCount = intWordCount + 1;
end
intIndex = intIndex + 1;
end
return intWordCount
end
t = Input.GetText("Input1");
Dialog.Message("Notice", string.wordcount(t));
function string:explode(szDivider)
if(Divider=="")then
return {self};
end
local intPosition = 0;
local arrResult = {};
local function FindAll()
return string.find(self,szDivider,intPosition,true);
end
for st,sp in FindAll do
arrResult[#arrResult+1]=string.sub(self,intPosition,st-1);
intPosition = sp+1;
end
arrResult[#arrResult+1]=string.sub(self,intPosition);
return arrResult;
end
szString = Input.GetText("Input1");
tblFinalResult = szString:explode(" ");
if(tblFinalResult)then
for k, word in pairs(tblFinalResult)do
Table.Concat(tblFinalResult, ";", word, TABLE_ALL);
end
end
result = Table.Count(tblFinalResult);
Dialog.Message("Notice",result);
عذرا فأنا أشجع الدقة لذلك علقت بكلمة كود إحترافى بالنسبة للكود السابق
Dialog.Message("Notice", string.gsub("أحمد سمير يوسف زكي", "%s", "") );
تعليق