[madmasles]

У меня так получилось:

Код:

$sPathOld = "1.txt"
$sPathNew = "2.txt"
$slovo = "" ; Ваше слово для замены

$sTest = FileRead($sPathOld)
$sTest = StringReplace($sTest, $slovo, @ComputerName)
FileWrite($sPathNew, $sTest)

[Pozia]

madmasles, задача несколько усложнилось. Имеется такой кусок кода:

Код:

...
<MenuMacro UID="ID_Ai_propch">
        <Macro type="Modify">
          <Revision MajorVersion="16" MinorVersion="2" UserVersion="0" />
          <ModifiedRev MajorVersion="16" MinorVersion="2" UserVersion="0" />
          <Name xlate="true" UID="ACAD_334">Properties</Name>
          <Command>^C^C_properties </Command>
          <HelpString xlate="true" UID="ACAD_1440">Controls properties of existing objects:  PROPERTIES</HelpString>
          <SmallImage Name="RCDATA_16_MODIFY" />
          <LargeImage Name="RCDATA_16_MODIFY" />
        </Macro>
      </MenuMacro>
...

в нем всего лишь нужно поменять выделеное слово на dim_edit. Но загвоздка в том что во всем тексте скрипта properties повторяется несколько раз, а мне необходимо поменять только в данном куске кода. Уникальным сочитанием кода будет:

Код:

<Name xlate="true" UID="ACAD_334">Properties</Name>
          <Command>^C^C_properties </Command>

но не могу сообразить как скрипт написать. помогите пожалуйста

[madmasles]

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)

[Pozia]

madmasles, вы не учли:

Но загвоздка в том что во всем тексте скрипта properties повторяется несколько раз »

Получилось так что произошла замена по всему моему скрипту. Нужно как то вставить проверку наличия строки <Name xlate="true" UID="ACAD_334">Properties</Name> после которой идет именно та properties что мне нужно изменить. Как это сделать?

[madmasles]

Pozia,
Попробуйте так:

Код:

#include <file.au3>

$sPathOld = "test.txt" ; файл-источник
$sPathNew = "New.txt" ; файл-результат
$slovoOld = "properties" ; это слово меняем
$slovoNew = "dim_edit" ; на это слово
$sString = '<Name xlate="true" UID="ACAD_334">Properties</Name>' ; это строка сверху
Dim $aFile
_FileReadToArray($sPathOld, $aFile)
For $i = 1 To UBound($aFile) - 1
    If StringInStr($aFile[$i], $sString) > 0 Then
        $aFile[$i + 1] = StringReplace($aFile[$i + 1], $slovoOld, $slovoNew)
    EndIf
Next
_FileWriteFromArray($sPathNew, $aFile, 1)

Мой предыдущий код в примере Вашего текста работал (у меня).

[Pozia]

madmasles, в яблочко! Спасибо огромное за оперативность!

[Pozia]

madmasles, прошу еще помощи маленькой. я Вашим скрипт в моем коде меняю две строки. Сча не могу сообразить как эти два скрипта в один объединить. Первый что вы привели, второй:

Код:

$sPathOld = 'acad.CUI'
$sPathNew = 'acad2.CUI'
$slovo1 = "        <PartialMenuFile>custom.cui</PartialMenuFile>"
$slovo2 = "        <PartialMenuFile>custom.cui</PartialMenuFile>        <PartialMenuFile>Pozia_Tools\pozia.cui</PartialMenuFile>"
$sTest = FileRead($sPathOld)
$sTest = StringReplace($sTest, $slovo1, $slovo2)
FileWrite($sPathNew, $sTest)

madmasles, сделал так методом тыка:

Код:

#include <file.au3>

$sPath1 = 'acad.CUI'
$sPath2 = 'acad2.CUI'
$sPath3 = 'acad3.CUI'
$slovo1 = "        <PartialMenuFile>custom.cui</PartialMenuFile>"
$slovo2 = "        <PartialMenuFile>custom.cui</PartialMenuFile>        <PartialMenuFile>Pozia_Tools\pozia.cui</PartialMenuFile>"
$slovo3 = "properties"
$slovo4 = "dim_edit"

$sString = '<Name xlate="true" UID="ACAD_334">Properties</Name>'

$sTest = FileRead($sPath1)
$sTest = StringReplace($sTest, $slovo1, $slovo2)
FileWrite($sPath2, $sTest)

Dim $aFile
_FileReadToArray($sPath2, $aFile)
For $i = 1 To UBound($aFile) - 1
    If StringInStr($aFile[$i], $sString) > 0 Then
        $aFile[$i + 1] = StringReplace($aFile[$i + 1], $slovo3, $slovo4)
    EndIf
Next
_FileWriteFromArray($sPath3, $aFile, 1)

FileDelete($sPath2)

но чувствую что это сильно по ламерски с удалением промежуточного файла. Хотелось бы сразу конечный результат

[madmasles]

Pozia,
Попробуйте так:

Код:

#include <file.au3>

$sPath1 = 'acad.CUI'
$sPath3 = 'acad3.CUI'
$slovo1 = "        <PartialMenuFile>custom.cui</PartialMenuFile>"
$slovo2 = "        <PartialMenuFile>custom.cui</PartialMenuFile>        <PartialMenuFile>Pozia_Tools\pozia.cui</PartialMenuFile>"
$slovo3 = "properties"
$slovo4 = "dim_edit"
$sString = '<Name xlate="true" UID="ACAD_334">Properties</Name>'
Dim $aFile

_FileReadToArray($sPath1, $aFile)
For $i = 1 To UBound($aFile) - 1
    If StringInStr($aFile[$i], $slovo1) > 0 Then
        $aFile[$i] = StringReplace($aFile[$i], $slovo1, $slovo2)
    EndIf
    If StringInStr($aFile[$i], $sString) > 0 Then
        $aFile[$i + 1] = StringReplace($aFile[$i + 1], $slovo3, $slovo4)
    EndIf
Next
_FileWriteFromArray($sPath3, $aFile, 1)

[Pozia]

madmasles, еще маленький вопросик. не могу сообразить как дать определенному файлу имя текущей учетной записи. Подскажите пожалуйста.