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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط VScroll1 بعجلة الماوس Ahmed Gandos 1 402 25-09-15, 06:15 AM
آخر رد: أبو عمر
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,159 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  كيفية حذف سطور من msflexgrid ؟ gedo 0 469 18-11-14, 07:03 PM
آخر رد: gedo
  كيفية حساب الوقت المتبقى للاضافة والحذف فى msflexgrid ؟ gedo 1 558 17-11-14, 10:37 PM
آخر رد: gedo
  كيفية وضع سطور معينة من جريد الى جريد اخرى ؟ gedo 2 543 14-11-14, 03:12 AM
آخر رد: gedo
  كيفية انتهاء الاسئله عن طريق المصفوفات ودالثورة 10 1,189 24-08-13, 07:49 AM
آخر رد: VB_Coder
  أسئلة عن كيفية صنع الكثير من البرامج أرجو من كل من لديه جواب أن يتفضل بالمشاركة ليفيد جميع الأعضاء طارق 3 735 20-08-13, 02:09 PM
آخر رد: AGASHE
  دورة الفيجوال بيسك::: الدرس الأول ] كيفية عمـل بـرنـامـج راديـو (مصور) derbaliammar 3 1,288 31-07-13, 11:45 AM
آخر رد: samee119485r
  كيفية التحكم بمكونات موقع ما , من خلال مشروع في الفيجوال بيسك 6 MR:HACK 1 437 04-07-13, 10:12 PM
آخر رد: 3amo
  كيفية استخدام جملة if الشرطية asto 10 1,675 07-06-13, 11:29 PM
آخر رد: VB_Coder

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


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