как записывать текст в начало текстового файла

[cerf1234]

подскажите как можно писать в начало текстового файла?
пытаюсь сделать генератор случайных чисел. генерируется цифра в конце маски и соответственно нужно постепенно растущий хвост писать в файл. тоесть сначала последнюю цыфру, потом перед ней предпоследнюю итд. а как если есть запись только в конец файла?

 

[madmasles]

Re: Запись текста в файл

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"Запись текста в файл" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Модератор.

 

[WSWR]

cerf1234
Читать из файла, присоединять новый текст к началу, записывать в файл и т.д.?

 

[cerf1234]

я пишу ГСЧ, мне нужно сгенерировать 500кб. представь себе после генерации каждого нового символа считывать весь текст заново?

 

[Viktor1703]

FileWriteTopLine(@ScriptDir & '\Log.txt', 'Test1')
FileWriteTopLine(@ScriptDir & '\Log.txt', 'Test2' & @CRLF)
FileWriteTopLine(@ScriptDir & '\Log.txt', 'Test3' & @CRLF)

Func FileWriteTopLine($sFile, $sData)
	Local $hFile, $sRead = ''
	If FileExists($sFile) Then
	    $hFile = FileOpen($sFile)
        $sRead = FileRead($hFile)
        FileClose($hFile)
    EndIf
    $hFile = FileOpen($sFile, 2)
    FileWrite($hFile, $sData & $sRead)
    FileClose($hFile)
EndFunc

И название темы измените например на "Сделать запись в начало файла".

 

[madmasles]

cerf1234 [?]

представь себе после генерации каждого нового символа считывать весь текст заново

Или сгенерируйте сначала весь текст, а потом запишите, или, ИМХО, читать-писать.

$sFile = @ScriptDir & '\Test.txt'

For $i = 1000 To 1100
	$sText = $i & @CRLF
	$sText &= FileRead($sFile)
	$hFile = FileOpen($sFile, 2)
	FileWrite($hFile, $sText)
	FileClose($hFile)
Next

Или

_FileWriteToLine()

 

[cerf1234]

я решил использовать промежуточный массив длинны 500000 всеже это лучше чем 500000 раз считывать-записывать. спасибо всем

 

[kaster]

cerf1234 [?]

я пишу ГСЧ, мне нужно сгенерировать 500кб. представь себе после генерации каждого нового символа считывать весь текст заново?

это ничто. проблемы могут начаться после приблизительно 10 МБ, в зависимости от жесткого диска