توزيع من الأنبوت إلى الليست

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله

اخي الكريم عندي نص موجود في أنبوت كالتالي :
tamer1/tamer2/tamer3/tamer4
حيث يفصل الكلمة و الكلمة /
أحببت أن ينقل محتوى الأنبوت إلى ListBox
مرتب
tamer1
tamer2
tamer3
tamer4

ويحذف الرمز /

شكرا و بارك الله فيك

[عبود عبود]

وعليكم السلام ورحمة الله وبركاته


إستعمـــــل الكـــــــود التالى :

--
function StringDelimitedToTable(DelimitedString, Delimiter)
tbReturn = {};
local strWorking;
local nPos = nil;
local strData;
local nTableIndex = 1;
local nDelimiterLength = String.Length(Delimiter);
if(nDelimiterLength < 1)then
tbReturn[nTableIndex] = DelimitedString;
return tbReturn;
end
strWorking = DelimitedString;
nPos = String.Find(strWorking,Delimiter);
while(nPos ~= -1)do
strData = String.Left(strWorking,nPos-1);
tbReturn[nTableIndex] = strData;
nTableIndex = nTableIndex + 1;
local nLength = String.Length(strWorking);
strWorking = String.Right(strWorking,nLength - (nPos + (nDelimiterLength-1)));
nPos = String.Find(strWorking,Delimiter);
end
if(strWorking ~= "")then
tbReturn[nTableIndex] = strWorking;
end
return tbReturn;
end

str=Input.GetText("Input1");
if str~="" then
tb = StringDelimitedToTable(str, "/")
if str then
for i,v in pairs(tb) do
ListBox.AddItem("ListBox1", v, v)
end
end
end

[ثامر أبو بلقيس]

بالضبط هذا ما اريده و تذكر هذه المشاركة وعد مني سأرد الجميل
إن شاء الله :abc_152:

[abohmam]

حياكم الله

بارك الله فيك أخانا عبود على المتابعة وتقديم هذا الكود الرائع

:abc_152:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

كما يمكن استغلال الاضافة Action Extension
result = AE.StringDelimitedToTable(Input.GetText("Input1"), "/");
for i =1,#result do
ListBox.AddItem("ListBox1", result[i]);
end

[ثامر أبو بلقيس]

وهذا حل آخر لمن واجه نفس الانشغال:
p =Input.GetText("Input1");
for k in string.gfind(p, "%w+") do
result = ListBox.AddItem("ListBox1", k, "");
end

[عبود عبود]

وهذا حل آخر لمن واجه نفس الانشغال:
p =Input.GetText("Input1");
for k in string.gfind(p, "%w+") do
result = ListBox.AddItem("ListBox1", k, "");
end


http://www.abc4web.net/vb/images/icons/icon31.gif لم تضبط معى مع الحروف العربية :abc_065:

[ثامر أبو بلقيس]

"%P+" :abc_138: