Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для madmasles

Ветеран


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

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


Pozia,
У меня так получилось:
Код: Выделить весь код
#include <file.au3>

$sPathOld = "test.txt" ; файл-источник
$sPathNew = "New.txt" ; файл-результат
$slovoOld = "properties" ; это слово меняем
$slovoNew = "dim_edit" ; на это слово
$sLeft = "<Command>^C^C" ; это слово есть слева
$sRight = " </Command>" ; это слово есть справа
Dim $aFile
_FileReadToArray($sPathOld, $aFile)
For $i = 1 To UBound($aFile) - 1
    If StringInStr($aFile[$i], $sLeft) > 0 And StringInStr($aFile[$i], $sRight) > 0 _
            And StringInStr($aFile[$i], $slovoOld) > 0 Then
        $aFile[$i] = StringReplace($aFile[$i], $slovoOld, $slovoNew)
    EndIf
Next
_FileWriteFromArray($sPathNew, $aFile, 1)
Это сообщение посчитали полезным следующие участники:

Отправлено: 07:16, 27-02-2010 | #4