كيــــف استـــــــدعي اكثر من ملف txt الـــــي ListBox ؟

[ياسرهتهت]

بسم الله الرحمن الرحيم

بهـــــذا الكـــــــــــود


TAX_fil = TextFile.ReadToTable("AutoPlay\\Docs\\qama.txt");

for i,s in pairs(TAX_fil)do

ListBox.AddItem("ListBox1", TAX_fil[i] ,"")
end


استطيــــع استدعاء الاسطر الموجودة في ملف نصي txt الي ListBox ؟

http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif الســــؤال عندي مجلد يحتوي على عدد من الملفات النصيةtxt هل من الممكن
استدعـــاء جميع الاسطر في الملفات النصية معا لتظهر في للــــ ListBox1 ؟ وكيــــف ؟
http://www.abc4web.net/vb/images/icons/startup.gif ملاحظة : تسمية الملفات النصية في المجلد مختلفة (مثلا yasser,ahmad , kalad )
وعددها غير محدد http://www.abc4web.net/vb/images/icons/icon31.gif؟

http://www.abc4web.net/vb/images/icons/icon3.png لكن طبعا يمكن معرفة عددها قبل الاستدعاء بالكـــــود


f_txt = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
count = Table.Count(f_txt);






موفقين بإذن الله ... لكم مني أجمل تحية .

[المـهاجر]

ملحوظتان
1 - لا يهمنا معرفة عدد المصفوفة الجدولية على الاطلاق
2- راقب اكوادك

for i,s in pairs(TAX_fil)do

ListBox.AddItem("ListBox1", TAX_fil[i] ,"")
انت تعيد حساب ما تم حسابه فعليا TAX_fil[i] هى نفسها S
كودك صحيح ... لكن نصيحة : تجنب ذلك لعدم ارهاق المعالج و لتقصير زمن التنفيذ

اخيرا الحل
f_txt = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
ListBox.SetUpdate("ListBox1", false);
for a,z in pairs(f_txt) do
TAX_fil = TextFile.ReadToTable(z);
for i,s in pairs(TAX_fil)do
ListBox.AddItem("ListBox1", s ,"")
end
end
ListBox.SetUpdate("ListBox1", true);

http://www3.0zz0.com/2016/09/28/05/742982080.jpg

[ياسرهتهت]

f_txt = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
ListBox.SetUpdate("ListBox1", false);
for a,z in pairs(f_txt) do
TAX_fil = TextFile.ReadToTable(z);
for i,s in pairs(TAX_fil)do
ListBox.AddItem("ListBox1", s ,"")
end
end
ListBox.SetUpdate("ListBox1", true);

-------------------------------------
بسم الله الرحمن الرحيم
:abc_052::abc_052::abc_052:
http://www.abc4web.net/vb/images/icons/icon14.png ما شاء الله عليك اخي المهاجر
:abc_152:عبقرية تستحق التقدير:abc_152:

شكرا جزيل وبارك الله فيك وزادك علماً على علم
لم اكن اتوقع ان احصل على اجابة اليوم وبهذة السرعة
من صلاة المغرب وانا احاول دون جدوة :abc_070:

موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[المـهاجر]

-------------------------------------
بسم الله الرحمن الرحيم
:abc_052::abc_052::abc_052:
http://www.abc4web.net/vb/images/icons/icon14.png ما شاء الله عليك اخي المهاجر
:abc_152:عبقرية تستحق التقدير:abc_152:

شكرا جزيل وبارك الله فيك وزادك علماً على علم
لم اكن اتوقع ان احصل على اجابة اليوم وبهذة السرعة
من صلاة المغرب وانا احاول دون جدوة :abc_070:

موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:


بالتوفيق أستاذ ياسر
:abc_152:

[فرح صالحي]

شكرا وبارك الله فيك لك مني اجمل تحية

[ياسرهتهت]

بالتوفيق أستاذ ياسر
:abc_152:
--------------------------------
بسم الله الرحمن الرحيم
استاذ المهاجر
ارجو ان تلقي نظرة على هذا الكود

f_txt = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
for a,z in pairs(f_txt) do
ListBox.SetUpdate("ListBox1", false);
TAX_fil = TextFile.ReadToTable(z);
for i,s in pairs(TAX_fil)do
ListBox.AddItem("ListBox1", String.Mid(s,1 , string.find(s, " ")) ,String.Mid(s,string.find(s, " "), String.Length(s)))
end
ListBox.SetUpdate("ListBox1", true);
end
------------------------

على اساس ان الاسطر في الملفات النصبة كل سطر يتكون من شقين نص و عدد
هكذا

file2 6000
file2 8000
file2 4000
file2 3000
file2 2000

واريد ان يظهر النص في ItemText والعدد في ItemData

http://www.abc4web.net/vb/images/icons/icon3.png الكــــــــود يقوم بالمطلوب



http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif هـــــل هذا الكـــــود صـــــحيح ؟ هل يوجد افضل منه ؟ هل تقترح اي تعديل ؟


موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

[المـهاجر]

ListBox.AddItem("ListBox1", String.Mid(s,1 , string.find(s, " ")) ,String.Mid(s,string.find(s, " "), String.Length(s)))


http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif هـــــل هذا الكـــــود صـــــحيح ؟ هل يوجد افضل منه ؟ هل تقترح اي تعديل ؟


نعم الكود صحيح
تتعدد الطرائق للحصول على نفس النتيجة مثلا String.gmatch أو DelemitedStringToTable
لكنها لن تكون افضل فى هذه الحالة
لأنك هنا تقسم سترنج معلوم الهيكلة (سترنج - فراغ - سترنج)
لذلك فطريقتك فعالة جدا و لا داعى لتعقيدها
:abc_152:

[ياسرهتهت]

بسم الله الرحمن الرحيم

بـــــــــــارك الله فــــيـك http://www.abc4web.net/vb/images/icons/icon_z.gif أســـــتاذ / المهــــــــاجر http://www.abc4web.net/vb/images/icons/icon_z.gif

موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

[منار بربرة]

مشكوووووووور

[ابراهيم ابو الوليد]

موفق بإذن الله ... لك مني أجمل تحية .

[رعاش وليد]

موفق بإذن الله ... لك مني أجمل تحية .

[الأطولي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[الدموكي]

موفق بإذن الله ... لك مني أجمل تحية .

[بوجمعة ب]

بارك الله فيك

[سمسم يو]

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين