Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


morgan1991,
Не знаю, случайно это или нет, но в Ваших обоих примерах строка с ‰PNG под № 13. Если так всегда, то так попробуйте:
Код: Выделить весь код
$sFile = @ScriptDir & '\test.png'
$sFile_new = @ScriptDir & '\test2.png'
$hRead = FileOpen($sFile)
$hWrite = FileOpen($sFile_new, 2)
For $i = 1 To 12
    $line = FileReadLine($hRead)
Next
$Buf = FileRead($hRead)
FileWrite($hWrite, $Buf)
FileClose($hRead)
FileClose($hWrite)
У меня так с обоими заголовками работает.

PS
А так не важно, с какой строки начинается ‰PNG:
Код: Выделить весь код
#include <file.au3>

Dim $aFile
$sFile = @ScriptDir & '\test.png'
$sFile_new = @ScriptDir & '\test2.png'
_FileReadToArray($sFile, $aFile)
For $ii = 1 To $aFile[0]
    If StringInStr($aFile[$ii], "‰PNG") <> 0 Then ExitLoop
Next
$hRead = FileOpen($sFile)
$hWrite = FileOpen($sFile_new, 2)
For $i = 1 To $ii - 1
    $line = FileReadLine($hRead)
Next
$Buf = FileRead($hRead)
FileWrite($hWrite, $Buf)
FileClose($hRead)
FileClose($hWrite)

Последний раз редактировалось madmasles, 14-04-2010 в 13:25.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:12, 14-04-2010 | #16