لخبراء الفيجوال بيسك

الصراحه بمعنى الكلمه انا مافهمت شي ؟؟؟؟ توضيح

قم بفتح الملف For Input

ثم إستخدم الدالة Split وقسم الملف إلى سطور قم بوضع السطور في الـ List ولو محتاج الكود أكتبه لك إن شاء الله

السلام عليكم

الصراحة لو كان الأخ عبد الله فتحي أونلاين الآن كان زمان موضوعك هذا أنتقل إلي رحمه الله..

فيا ريت تقرأ قوانين وشروط المواضيع ... وهذا لأجل المصلحة العامة ولتنسيق المواضيع

علي العموم الموضوع مش محتاج خبير فيجوال ... بل محتاج أن تقرأ أول صفحة في أي كتاب يشرح لك كيفية التعامل مع الملفات النصية فيمكنك مثلا أستخدم دالة Line Input والتي تقرأ لك الملف سطر سطر وتخزينه في متغير..

مثال :

Private Sub Command1_Click()
Dim sTemp As String
Open "C:\text.txt" For Input As #1

While Not EOF(1)
 Line Input #1, sTemp
 List1.AddItem sTemp
Wend

Close #1
End Sub

أكيد إستخدام LineInput أفضل من طريقتي يعني بالعربي كود الأخ Pharaonic_Guy أفضل بكثير مما كنت سأَضعه

سلاااااااااام

تم إغلاق الموضوع، ونرجو التقيد بقوانين المنتدى ..

يجب أن تكون عناوين المواضيع دالة على محتواها ..

وكما ذكر الأخ الفاضل Pharaonic_Guy فهذا

اقتباس

لأجل المصلحة العامة ولتنسيق المواضيع