Вставить содержимое ListBox в txt-файл

[Novichok$]

Пишу так, работает:

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

FileOpen(1, "C:\Protokoll.txt", OpenMode.Output)
        Write(1, "Hallo!")
        FileClose(1)

А вот так не хочет:

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

FileOpen(1, "C:\Protokoll.txt", OpenMode.Output) ' Open file for output.
        Write(1, ListBox1.Text)
        FileClose(1)

В txt-файле только
«»,

Подскажите чайнику

[Dmitriy Solomnikov]

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


Dim obj As ListBox.ObjectCollection = ListBox1.Items
for i as integer=0 to ListBox1.Items.count-1
    write(1, obj(i).Item(i) )
next i



Попробуй так.

PS: при открытии файла используй FreeFile, а то может быть плохо.

[temur]

FileOpen(1, "C:\Protokoll.txt", OpenMode.Output) ' Open file for output.
For i as Integer = 0 To ListBox1.items.Count - 1
Write(1, ListBox1.items.item(i))
Next i

FileClose(1)

[Dmitriy Solomnikov]

FileOpen(1, "C:\Protokoll.txt", OpenMode.Output) ' Open file for output.
For i as Integer = 0 To ListBox1.items.Count - 1
Write(1, ListBox1.items.item(i))
Next i

FileClose(1)

Точно! Используй модификаторы Input, Random или Append.

Пропустил я...

[Novichok$]

Спасибо, получплось
Только есть 2 меленькие (или большие) проблемки.

первая – он все лепит в одну строчку, т.е. в ListBox так:
07.11.2005 15:16:11 connect
07.11.2005 15:16:12 download
07.11.2005 15:16:13 close

а в протоколе :
07.11.2005 15:16:11 connect, 07.11.2005 15:16:12 download, 07.11.2005 15:16:13 close

вторая – переписываеися старый файл, при повторе задания – предидущей записи нет, есть только новая

[Dmitriy Solomnikov]

Спасибо, получплось
Только есть 2 меленькие (или большие) проблемки.

первая – он все лепит в одну строчку, т.е. в ListBox так:

вторая – переписываеися старый файл, при повторе задания – предидущей записи нет, есть только новая

1. Добавь ENTER - chr(13)
2. используй модификатор Append - FileOpen(1, "C:\Protokoll.txt", OpenMode.Append)

[Novichok$]

с .Append получилось

а с chr(13) что то никак

Уж и спрашивать неудобно ...

Можно поточнее, куда его ?

[Dmitriy Solomnikov]

так сорри, если через блокнот будешь просматривать инфу, то увидешь все в одну строчку (с квадратами).

Тогда там где должна начинаться новая строка пиши

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

Write(1, ControlChars.NewLine)


Тогда все впорядке будет (даже в блокноте).

[Novichok$]

ok
все нормально
только запятые и ковычки в техте убрать осталось

[temur]

Dim sWriter As IO.StreamWriter
sWriter = New IO.StreamWriter("C:\Protokoll.txt")
For i as Integer = 0 To ListBox1.items.Count - 1
sWriter.WriteLine( ListBox1.items.item(i))
Next i
sWriter.Close()