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

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

Аватара для Maza Faka

Ветеран


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

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


amel27, Creat0R,
Цитата amel27:
почти все мои познания из книжки по первому линку Creat0R'а
Уже скачал, в DJVU-формате

amel27
Сохранил весь топик в версии для печати и изучаю. Наткнулся на твой скрипт(я его немного изменил, вернее упростил для себя):
Вот так работает:
Код: Выделить весь код
$Dir2 = LinesDelete("c:\dir2\xxx.sif", "text_1")

Func LinesDelete($path, $string)
    Local $StrArray
    _FileReadToArray($path, $StrArray)
    For $i = $StrArray[0] To 1 Step -1
        If StringInStr($StrArray[$i], $string) Then _ArrayDelete($StrArray, $i)
            _FileWriteFromArray($path, $StrArray, 1)
        Next
    EndFunc
А вот так выдаёт ошибку, хотя тоже отрабатывает:
Код: Выделить весь код
Func LinesDelete($path, $string)
    Local $StrArray
    _FileReadToArray($path, $StrArray)
    For $i = 1 To $StrArray[0] Step 1
        If StringInStr($StrArray[$i], $string) Then _ArrayDelete($StrArray, $i) ;Здесь выдаёт ошибку
            _FileWriteFromArray($path, $StrArray, 1)
        Next
    EndFunc
Можешь обьяснить почему?

Отправлено: 11:37, 19-08-2007 | #325