For i = 0 To ListBox1.Items.Count - 1
list.IniWriteValue("List", "name", ListBox1.Items(i))
Next i
For Each value As String In ListBox1.Items
list.IniWriteValue("List", "name", value)
NextPublic Class Form1
Private Sub savetotxt()
Dim b As String = ""
Dim ofd As New SaveFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
If ofd.FileName.ToString.Trim = "" Then Exit Sub
For a = 0 To ListBox1.Items.Count - 1
b &= ListBox1.Items.Item(a).ToString & vbNewLine
My.Computer.FileSystem.WriteAllText(ofd.FileName, b, False)
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
savetotxt()
End Sub
End Class
(05-03-16, 03:51 PM)سعود كتب : [ -> ]شوف طريقة بسيطة
PHP كود :
Public Class Form1
Private Sub savetotxt()
Dim b As String = ""
Dim ofd As New SaveFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
If ofd.FileName.ToString.Trim = "" Then Exit Sub
For a = 0 To ListBox1.Items.Count - 1
b &= ListBox1.Items.Item(a).ToString & vbNewLine
My.Computer.FileSystem.WriteAllText(ofd.FileName, b, False)
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
savetotxt()
End Sub
End Class
(05-03-16, 04:04 PM)khodor1985 كتب : [ -> ]وهذه طريقة أخرى أيضا :
PHP كود :
Dim s As StreamWriter = New StreamWriter("D:\txt1.txt")
For i = 0 To ListBox1.Items.Count - 1
s.WriteLine(ListBox1.Items.Item(i))
Next
s.Close()
أتمنى لك التوفيق
(05-03-16, 04:47 PM)khodor1985 كتب : [ -> ]أخي العزيز، أرسل لنا مشروعك أو مثال مصغر عن مشروعك للتعديل عليه وشكرا.
IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)())
ListBox1.Items.AddRange(IO.File.ReadAllLines("textfile.txt"))
(05-03-16, 08:09 PM)ad1000 كتب : [ -> ]وهذه طريقة أخرى أيضا :
للحفظ:
PHP كود :
IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)())
للقراءة:
PHP كود :
ListBox1.Items.AddRange(IO.File.ReadAllLines("textfile.txt"))
(05-03-16, 09:41 PM)ad1000 كتب : [ -> ]لم أفهم المقصد من (المشكلة انى اريد اضافة كلمة Name= قبل ال listbox item)
IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)().Select(Function(s As String) "Name=" & s))