[مجاهد2010]

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


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

يعني مثل هذا الكود بس هذا للتكست

كود :

Open App.Path & "\test.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1

جربته علي الليست بوكس ولم يعمل ارجو التعديل عليه

اعتذر يا شباب العنوان خطأ اقصد لليست بوكس وليس لليست فيو

[مجاهد2010]

اخواني والله محتاج الحل ضروري
ربنا يبارك فيكم ارجو الرد

[عبدالله الصافي]

[b]أخي عدل الكود للأتي ولكنه يجعل كل الأسطر سطر واحد:[/b]

كود :

Open App.Path & "\test.txt" For Input As #1
list1.additem  Input(LOF(1), 1)
Close #1

ولكني لا أعلم كيف تجعلها في أسطر

[مجاهد2010]

لا اخي انا جربت الكود من قبل وهو غير صحيح لا يقبل اصلا سواء سطر واحد او غيره
انا جربته ولم يعمل

وكمان لو سطر واحد يبقا الليست بوكس ما ليه لازمة انا محتاجة كي يكون الاسطر تحت بعض زي الملف النصي

[مجاهد2010]

عفو الكود صحيح ولكن كما قلت انت في سطر واحد
هل من حل ؟

[مجاهد2010]

تم الحل اخواني وجد كود في موقع اجنبي
شكرآ لكم وادعو الله ان يجعل هذا الموقع نشط كالموقع السابق

[عبدالله الصافي]

أخي الكريم كنت أرجو أن تعرض لنا الكود لنستفيد جميعا.

عل العموم بعد جهد وجدت ذلك الكود وهو شغاال .

كود :

Private Sub Command1_Click()
Dim ff As Long
Dim line As String
ff = FreeFile

Open App.Path & "\test.txt" For Output As #ff
Do While Not EOF(ff)
Line Input #ff, line
If Len(line) Then List1.AddItem line
Loop
Close #ff
End Sub