تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية نقل ملف نصي الي لليست فيو
#1
السلام عليكم ورحمة الله وبركاته


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

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

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


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

اعتذر يا شباب العنوان خطأ اقصد لليست بوكس وليس لليست فيو
الرد }}}
تم الشكر بواسطة:
#2
اخواني والله محتاج الحل ضروري
ربنا يبارك فيكم ارجو الرد
الرد }}}
تم الشكر بواسطة:
#3
[b]أخي عدل الكود للأتي ولكنه يجعل كل الأسطر سطر واحد:[/b]

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


ولكني لا أعلم كيف تجعلها في أسطر
الرد }}}
تم الشكر بواسطة:
#4
لا اخي انا جربت الكود من قبل وهو غير صحيح لا يقبل اصلا سواء سطر واحد او غيره
انا جربته ولم يعمل

وكمان لو سطر واحد يبقا الليست بوكس ما ليه لازمة انا محتاجة كي يكون الاسطر تحت بعض زي الملف النصي
الرد }}}
تم الشكر بواسطة:
#5
عفو الكود صحيح ولكن كما قلت انت في سطر واحد
هل من حل ؟
الرد }}}
تم الشكر بواسطة:
#6
تم الحل اخواني وجد كود في موقع اجنبي
شكرآ لكم وادعو الله ان يجعل هذا الموقع نشط كالموقع السابق
الرد }}}
تم الشكر بواسطة:
#7
أخي الكريم كنت أرجو أن تعرض لنا الكود لنستفيد جميعا.

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


كود :
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عمل علامة X عوض True في تكتست True/False بتقرير الكريستال ريبورت 8.5 amazonette 2 1,771 28-12-19, 01:50 PM
آخر رد: amazonette
  كيفية حماية قاعدة البيانات على الشبكة المحلية من النسخ والحذف abu jana 8 6,912 07-08-19, 11:04 PM
آخر رد: sendbad100
  كيفية تشغيل برنامج مبرمج ب vb6على ويندوز 10 new_programer 2 3,794 19-12-18, 01:21 AM
آخر رد: elgokr
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  [مثال] كيفية تحويل ملف تنفيذي vb6 إلى كود مصدري salahoskar1 1 2,217 11-03-18, 02:17 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 3,356 08-06-17, 05:16 AM
آخر رد: Amir_Alzubidy
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 4,400 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 3,034 26-01-17, 03:37 PM
آخر رد: عمر سالم
  [سؤال] كيفية ربط VScroll1 بعجلة الماوس Ahmed Gandos 1 2,363 25-09-15, 06:15 AM
آخر رد: أبو عمر
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 4,781 03-06-15, 05:48 PM
آخر رد: ghost_programmer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم