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

[goldpower]

چه طور می شه که محتویات لیست باکس رو داخل text.txt ذخیره کرد ؟

[ROSTAM2]

خوندن و نوشتن از روي فايل متني رو بلد باشيد حله
با يه حلقه for...next مي تونيد آيتم ها رو با جداسازي از طريق يه كاراكتر مشخص كه توي آيتمها قرار نخواهد گرفت بصورتي كه بتونيد براي بازخواني از تابع split براي وارد كردن اونها به يك آرايه استفاده كرده و بعد به ليست باكس ارائه بديد چند وقت پيش توي vb.net مطرح شده بود و فكر كنم يه سورس هم گذاشتم

[VG1234]

Private Sub Command1_Click()
Dim T As Integer
Dim Text As String
T = List1.ListCount
Open "D:\list.txt" For Output As #1
For i = 0 To T
Text = List1.List(i)
Write #1, Text;
Write #1, " ";
Next
Close #1
End Sub

[goldpower]

Private Sub Command1_Click()
Dim T As Integer
Dim Text As String
T = List1.ListCount
Open "D:\list.txt" For Output As #1
For i = 0 To T
Text = List1.List(i)
Write #1, Text;
Write #1, " ";
Next
Close #1
End Sub





موقع ذخیره کردن فایل بشه بهش مسیر رو داد.
محتویات داخل لیست باکس هر کدام در یه خط به صورت زیر هم نوشته بشوند
اگه بخوای از همون فایل تکس وارد لیست باکس کنی ؟

[محسن واژدی]

سلام علیکم
برای ذخیره داده های لیست شاید کد زیر مختصرتر باشد:

Private Sub Command1_Click()
With List1
Open "c:\lst_data.txt" For Output As #1
For i = 0 To .ListCount-1
Print #1, List1.List(i)
Next
Close #1
End With
End Sub


برای بازیابی داده های ذخیره شده میتوانید از کد زیر استفاده کنید:

Private Sub Command2_Click()
With List1
Dim sCL$
.Clear
Open "c:\lst_data.txt" For Input As #1

Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop
Close #1
End With
End Sub




موقع ذخیره کردن فایل بشه بهش مسیر رو داد.
مسیر جدید را هم میتوانید با یک متغیر جایگزین مسیر نمونه "c:\lst_data.txt" کنید

موفق باشید

[vbhamed]

سلام

جناب واژدي تشكر، فقط تو قسمت اول از 1 - ListCount. بايد استفاده بشه چون ListCount. تعداد كل هست و وقتي از 0 شروع ميشه يكي از تعداد بايد كم بشه

[محسن واژدی]

سلام

جناب واژدي تشكر، فقط تو قسمت اول از 1 - ListCount. بايد استفاده بشه چون ListCount. تعداد كل هست و وقتي از 0 شروع ميشه يكي از تعداد بايد كم بشه
سلام علیکم

ممنونم، بله حق با شماست
اصلاح شد