كيف اقوم بتحميل كامبو بوكس ببيانات تكست الملف

باستخدام حلقة تكرار ...

سبق و ان اجبت على سؤال كهذا في هذا المنتدى ، يرجى استخدام خاصية البحث

السؤال كان حول ال list

استخدم نفس الطريقة

الاخ العزيز

1- المشاركة المقصودة هي على الرابط التالي

/index.ph...topic=81758&hl=

والسؤال كان

اقتباس

كيف استطيع تحميل بيانات لست بوكس (List) الى ملف نصي مفكر بامتداد (txt)

عدد البيانات = 9999 وهي ارقام فقط من 1-9999 قمت بتحميل كل البيانات الى (List1)

واريد حفظها بضغطة زر فقط

والحل كان

Private Sub Command1_Click() 
n = FreeFile 
Open "c:test.txt" For Append As #n 
For x = 0 To List1.ListCount - 1 
Print #n, List1.List(x) 
Next 
Close #n 
End Sub

والسوال الان يختلف عن الاول 100 /100 فالاول ارسال البيانات من اللسته الى الملف النصي

والان السوال هو عكس العملية السابقة

تحميل البيانات من الملف النصي الى اللست او الكامبو يعني العكس

والملف المرفق اكبر دليل فهو ملف تكست اريد من الكامبو القراءة منه بدل قاعدة البيانات لكثرة البيانات

حوال 22000 سطر

الف شكر لاهتمامك

FN = FreeFile
Open FileName For Input As FN
    Do While Not EOF(FN)
        Line Input #FN, LineX
	list1.additem lineX
    Loop
Close #FN

سهلة ، اليس كذلك

الف شكر بس الكود ممتاز 100/100