listbox دات نت

با سلام باور کنید خیلی سریع نیاز دارم من تو vb.net یک لیست باکس دارم که تو اون سه خط متن دارم می خواهم این متن ها را ذخیره کنم تو یک پوشه چکار کنم می دونم باید کنترول savefiledialog را اضافه کنم ولی نمی دونم باهاش چطور این متن ها را ذخیره کنم کمکم کنید خواهش می کنم

هر یک از خطها رو میخوای در فایلهای جداگانه ذخیره کنی یا همه رو در یک فایل؟

اگر همه خطوط رو میخوای در یک فایل ذخیره کنی:

کد:

---

For i As Byte = 0 To ListBox1.Items.Count - 1
            My.Computer.FileSystem.WriteAllText("c:\MyText.txt", ListBox1.Items.Item(i) & vbNewLine, True)
Next

---

اگر هر خط رو میخوای در یک فایل جداگانه ذخیره کنی:

کد:

---

For i As Byte = 0 To ListBox1.Items.Count - 1
            My.Computer.FileSystem.WriteAllText("c:\MyText" & i & ".txt", ListBox1.Items.Item(i), False)
Next

---

زیر My خط می کشد و اخطار می دهد چکار کنم

تو این سایت یکی جواب ما را نمی دهد

سلام خسته نباشید.
دوست عزیز میشه یه پرینت از خطا بگیرین آخه برای من جواب داد.
موفق باشی.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نگاه کنید زیر my یک خط کشیده و در می گوید my تعریف نشده است به انگلیسی

سلام
منظور کاربر hamishebahar متن خطا بوده، مثلاً وقتی ماوس رار رویش نگاه میدارید....
کد ساده و پیشنهادی من

کد:

---

Public Sub FileSave()
    Using _
          strm As New System.IO.FileStream("C:\File.txt", IO.FileMode.OpenOrCreate, IO.FileAccess.Write), _
          writer As New System.IO.StreamWriter(strm)
 
        For Each i As Object In Me.listbox.Items
              writer.WriteLine(i.ToString)
        Next
  End Using
End Sub
 
 
Public Sub FileLoad()
  Me.listbox.Items.Clear()
 
  Using _
          strm As New System.IO.FileStream("C:\File.txt", IO.FileMode.OpenOrCreate, IO.FileAccess.Read), _
          reader As New System.IO.StreamReader(strm)
 
        Dim str As String
 
        Do
                str = reader.ReadLine()
                If String.IsNullOrEmpty(str) Then Exit Do
                Me.listbox.Items.Add(str)
        Loop
  End Using
End Sub

---

م

ممنون از تمامی دوستان