Добавить запись в файл

[Алексей К.]

Есть текстовый "файл.txt" файл с содержанием:
1
2
3
4
5
Я хочу добавить еще запись в конец:

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

i=6
open "файл.txt" for output as #1
print #1, i
close #1

Так вот старые удаляются, остается в нем только 6. А мне надо что бы файл увеличивался записями. Можно конечно считать все старые записи в другой файл, добавить новые записи, закрыть файл, перименовать в старый файл. Может как-нибудь по проще можно?

[Cyrax]

not For Open, but For Append
т.е. вместо:

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

open "файл.txt" for output as #1

надо использовать:

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

open "файл.txt" for append as #1

тогда все, что ты будеш в этот файл писать, будет добавлятся в конец файла

[Алексей К.]

Спасибочки!!!

[Алексей К.]

Работает...
Но добавляет запись в конец последней строки:
1
2
3
4
56
А надо в новую строку
1
2
3
4
5
6
????

[Konst_One]

print #1, vbcrlf & "6"

[Алексей К.]

1-я новая запись записывается в след. строке после последней старой.

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

print #1, vbcrlf&"6"
for i=7 to 8
print #1,i
next i

1
2
3
4
5
6- первое добавление
7
8

9повторное добаление записей в файл


Но в конце появляется пустая строка. А мне надо чтоб не было пустых строк. Как от не избавиться?

[Sirik]

Работает...
Но добавляет запись в конец последней строки:
1
2
3
4
56
А надо в новую строку
1
2
3
4
5
6
????

Так получается, если ты записал данные и конце нет пустой строки!

Сделай так:
1
2
3
4
5

После 5 оставь пустую строку и используй код:

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

i=6
open "файл.txt" for output as #1
write #1, i
close #1


[Алексей К.]

Пустых строк в файле вообще недолжно быть!

[Sirik]

Пустых строк в файле вообще недолжно быть!

Нет, после всех записей, должна быть. Типа как признак конца файла

[tyomitch]

Признак конца файла - Chr(26)

[Алексей К.]

Вот этот гадкий признак при втором append и превращается в пустую строку в середине файла. Походу так и придется через файл-копию делать.

[XPraptor]

Объясните вы человеку на пальцах:
То Алексей К.:
Смотри, открываешь свой файл в текстовом редакторе, нажимешь Ctrl+End это перейти в конец файла, если у тебя курсор остановился в той же строке где и последняя запись (типа 5|)
то нажми Enter курсор перейдет на следующую строку после 5. Все закрывай файл и теперь все писаться у тебя как надо будет.

[Sirik]

Вот этот гадкий признак при втором append и превращается в пустую строку в середине файла. Походу так и придется через файл-копию делать.

Я не могу понять, почему тебе нельзя использовать пустую строку в конце???

[alibek]

Объясните вы человеку на пальцах:

Вищишь средний?

Алексей К., посмотри свой файл в Hex-режиме, увидишь, что новая строка это не что-то непостижимое и таинственное, а обычные два байта, <OD><OA>. Если ты пишешь Print #1, text, то VB за тебя добавит в конце строки эти два символа (перенос строки). Если напишешь Print #1, text;, то VB ничего добавлять не будет. И тогда тебе надо будет впоследствии писать Print #1, vbNewLine & text.

[Алексей К.]

Этот файл создается в процессе работы моей программы, в него записываются определенные записи. В процессе работы программа добавляет в него через опр. время еще записи. По определению программы - в фале не должно быть пустых строк (так программа работает). Так что никакие тут F4 и editors не прокатят.

[alibek]

Значит исправляй код своей программы так, чтобы он правильно расставлял переносы строк.

[Q2W]

Может фсо тебе поможет? оч.удобная штука.