سیو کردن محتوای لیست در txt

[xrezax]

چطوری محتویات یک لیست باکس را توی یک فایل txt سیو کنم ؟؟؟؟

[powerboy2988]

Dim n, strFile As String
strFile = "c:\asd.txt"
n = FreeFile()
Open strFile For Output As #n
For i = 0 To List1.ListCount - 1
Print #n, List1.List(i)
Next i
Close #n

[saeedzx]

این تکه سورس


Dim intfnum As String
Dim intctr As String
intfnum = FreeFile
Open "c:\bank.txt" For Output As #intfnum
intctr = ( list1.list)
Print #intfnum, intctr
Close #intfnum
End

[powerboy2988]

این تکه سورس


Dim intfnum As String
Dim intctr As String
intfnum = FreeFile
Open "c:\bank.txt" For Output As #intfnum
intctr = ( list1.list)
Print #intfnum, intctr
Close #intfnum
End



اين سورس شما مشكل داره..
شما بايد واسه list1.list ايندكس بزاري .
مثل : list1.list(1)

[xrezax]

این خیلی محدود ، تمام لیست را سیو نمی کنه .... راه دیگه ای نیست که همه لیست و سیو کنه

[powerboy2988]

این خیلی محدود ، تمام لیست را سیو نمی کنه .... راه دیگه ای نیست که همه لیست و سیو کنه

چه محدوديتي داره؟

[saeedzx]

خب میتونی یک کاری کنی

یک حلقه بگیری از 0 تا N بعد بهش بگی هروقت به انتها لیست رسید اونو ذخیره کنه

[NSNhaCkEr]

خوب حالا اگه بخواییم برعکس کار کنیم
چی
محتوا یک فایل تکست رو بیاریم تو لیست

[powerboy2988]

خوب حالا اگه بخواییم برعکس کار کنیم
چی
محتوا یک فایل تکست رو بیاریم تو لیست

يكم خودتون تلاش كنيد...
يك راهنمايي مي كنم بهت...
فايل رو واسه خوندن باز كن..
و شروع كن خط به خط بخون (يا كلمه به كلمه يا حرف به حرف) و تو هر مرحله تو ليستت اضافه كن.
تا حلقه تا اونجايي ادامه پيدا مي كنه كه به انتهاي فايلت نرسيده باشي

موفق باشي:تشویق:

[NSNhaCkEr]

نوشتم دستت درد نکنه

[powerboy2988]

میدونم چی میگی خودم هم به همین فکر کردم
ولی اگه بتونه یک همچین چیزی برام بنویسه خیلی حال داده

شرمندت.. اين ديگه ميشه درخواست تمرين..