List to file

[morika]

سلام
چه جوری میشه تمام ایتم های یک لیست باکس رو تو یه فایل txt ذخیره کرد بعد دوباره از همون فایل تمام ایتم ها رو برگردوند
ممنون

[kablayi]

شما بایستی اول تمام آیتم های لیست باکس رو در یه متغیر به صورت خط به خط ذخیره کنید:سپس اون متغیر رو در فایل txt مدنظر درج کنید. به صورت زیر:


Dim str AsString
For index AsInteger = 0 To ListBox1.Items.Count - 1
str = str & ListBox1.Items(index) & vbCrLf
Next
FileOpen(1, "d:\txtfile.txt", OpenMode.Output)
PrintLine(1, str)
FileClose(1)


این کد هم فایل مورد نظر رو میخونه و در لیست باکس میچینه....


Private a() AsString
Private StreamToDisplay As StreamReader
StreamToDisplay = New StreamReader("d:\txtfile.txt")
TextBox1.Text = StreamToDisplay.ReadToEnd
StreamToDisplay.Close()
a = Split(TextBox1.Text, vbCrLf)
ListBox1.Items.Clear()
For index AsInteger = 0 To a.Length - 1
ListBox1.Items.Add(a(index))
Next


موفق باشید ...