что неудивительно. прочитать содержимое и переписать его снова. у автора проблемы изза ReadLine, т.к. при записи автоит сам добавляет после каждой строки CRLF, хотя изначально в исходном файле вполне мог бы оказаться CR или LF по отдельности.
Цитата madmasles:
А на Ваш код у меня SciTE ругается: »
|
да. это я недоглядел код автора, и внес туда только то, что касалось бинарного чтения/записи
вот так будет правильнее
Код:
$file = FileOpen("E:\tor.torrent", 16 + 0)
$iSize = FileGetSize("E:\tor.torrent")
$dim = Int($iSize/100) + 1
dim $line[$dim]
dim $nl = 0
While 1
$sline = FileRead($file, 100)
if @error = -1 then exitloop
$line[$nl] = $sline
$nl += 1
WEnd
FileClose($file)
$file = FileOpen("E:\tor.torrent", 16 + 2)
for $a=0 to $nl-1
FileWrite($file, $line[$a])
next
FileClose($file)