Нетривиальная обрезка текстового файла

[Pantalone]

Не соображу как решить задачку.
Пишется текстовый лог, новые данные добавляются в конец, длина добавляемых строк различного размера.
Как реализовать обрезку файла с начала например при достижении им 10 килобайт? И как писать дальше с постоянный вырезкой текста в начале и добавлением нового в конец при соблюдении размера файла 10 кило?

[dr.MIG]

Проверять чему будет равен размер "существующий файл+добавляемая строка", если больше 10 Кб, то прочитать весь файл в переменную, начиная с определённой позиции (размер добавляемой строки, округлённый до целой строки/строк в начале файла). Удалить старый файл, записать в новый значение из переменной & новую строку.

[Хакер]

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

Public Function AddLogText(ByVal sLogText as string,byval sAddableText as string) as string
   AddLogText = Right$(sLogText, 10 * 1024 - Len(sAddableText)) + sAddableText
End Function



Юзание:

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

Dim sMyLog as string

' Прочитали из лог-файла 10кб данных в переменную sMyLog

sMyLog = AddLogText (sMyLog, vbNewLine + "[Пятница, 13-ое, полноч] Новая запись в логе!")

' Записали в лог-файл данные из sMyLog



[Pantalone]

Спасибо!

[tyomitch]

Перезаписывать весь лог при каждой записи в него -- криво. Если что-то во время перезаписи сломается, лог останется пустым.

Нормальные люди вращают несколько логов.