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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 190 08-06-17, 05:16 AM
آخر رد: Amir_alzubidy
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 448 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 470 26-01-17, 03:37 PM
آخر رد: عمر سالم
  [سؤال] كيفية ربط VScroll1 بعجلة الماوس Ahmed Gandos 1 645 25-09-15, 06:15 AM
آخر رد: أبو عمر
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,679 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  كيفية حذف سطور من msflexgrid ؟ gedo 0 635 18-11-14, 07:03 PM
آخر رد: gedo
  كيفية حساب الوقت المتبقى للاضافة والحذف فى msflexgrid ؟ gedo 1 808 17-11-14, 10:37 PM
آخر رد: gedo
  كيفية وضع سطور معينة من جريد الى جريد اخرى ؟ gedo 2 780 14-11-14, 03:12 AM
آخر رد: gedo
  كيفية انتهاء الاسئله عن طريق المصفوفات ودالثورة 10 1,509 24-08-13, 07:49 AM
آخر رد: VB_Coder
  أسئلة عن كيفية صنع الكثير من البرامج أرجو من كل من لديه جواب أن يتفضل بالمشاركة ليفيد جميع الأعضاء طارق 3 951 20-08-13, 02:09 PM
آخر رد: AGASHE

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


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