listbox Сохранение в txt

[Виктор]

Всем привет!!!
Помогите кто может или знает.
Есть некий отчет который добавляется строкой в listbox
Dim myString As String
myString = Val(nomerpozition) & ". " & "y= " & y & ", " & "x1= " & X1 & ", " & "x2= " & X2 & "; "
ListBox1.AddItem myString

нужно listbox сохранить как txt файл, количество заполненых строк в listbox известно

можно этот же отчет выводить и в textbox, но у меня получается всё в одну строчку, что не допустимо.

[Niko]

можно этот же отчет выводить и в textbox, но у меня получается всё в одну строчку, что не допустимо.

vbCrLf

Код: Выделить всё

Dim myString As String
myString = Val(nomerpozition) & ". " & "y= " & y & ", " & "x1= " & X1 & ", " & "x2= " & X2 & "; "
ListBox1.AddItem myString
textBox = textBox & vbCrLf & myString

[Wolfie]

Работа с файлами:

Код: Выделить всё

Open filename$ for Output as #Nomer 'открываем для записи
Print #Nomer, List1.List(x) 'X берем из цикла For X=0 to List1.ListCount-1

Open filename$ for Input as #Nomer   'открываем для чтения
Line Input #Nomer, cash$ 'Прочли строку
List1.AddItem cash$ 'в лист залили