Версия AutoIt: 3.3.0.0
Описание:есть текстовый файл (C:\TXT\1.txt), в нем текст разбит по строчкам:
тел.: + 7 495 737 2441 факс: + 7 495 737 2483
Заказчик: 222602
ОАО Пивоваренная компания "Балтика" 194292 Санкт-Петербург 6 Верхний пер-к, д. 3 ИНН/КПП: 7830001405 / 780201001
Акт сдачи-приемки работ
от 25.02.2010 По договору:
Y600111/10 от 22.01.2010
Номер счета-фактуры
53551090002492/Y001/Y6
Номер поставки/Дата AKZ1
---Y60011
Контактное лицо/Телефон
Мне нужно скопировать из файлика вот этот номер:Y600111/10 и обозвать этот .txt файл этими цифрами("/" меняем на "_" - akt_Y600111_10.txt, номера всегда разные).
Для этого я ищу в файлике слово "По договору:", а дальше нужно сделать переход на следующую строку, чтобы скопировать 10 символов. Номер строки с необходимыми цифрами может меняться.
Очень сильно прошу помощи!
мои наброски)
Описание:есть текстовый файл (C:\TXT\1.txt), в нем текст разбит по строчкам:
тел.: + 7 495 737 2441 факс: + 7 495 737 2483
Заказчик: 222602
ОАО Пивоваренная компания "Балтика" 194292 Санкт-Петербург 6 Верхний пер-к, д. 3 ИНН/КПП: 7830001405 / 780201001
Акт сдачи-приемки работ
от 25.02.2010 По договору:
Y600111/10 от 22.01.2010
Номер счета-фактуры
53551090002492/Y001/Y6
Номер поставки/Дата AKZ1
---Y60011
Контактное лицо/Телефон
Мне нужно скопировать из файлика вот этот номер:Y600111/10 и обозвать этот .txt файл этими цифрами("/" меняем на "_" - akt_Y600111_10.txt, номера всегда разные).
Для этого я ищу в файлике слово "По договору:", а дальше нужно сделать переход на следующую строку, чтобы скопировать 10 символов. Номер строки с необходимыми цифрами может меняться.
Очень сильно прошу помощи!
мои наброски)
Код:
$sCond = "По договору:"
$s2 = FileRead("С:\TXT\1.txt")
If StringRegExp($s2, "По договору:") then
$sCode = StringRegExpReplace($s2, "(?s).*" & $sCond & "(.{10}).*", "\1")
EndIf
$sName = "akt_" & $sCode & ".txt"
$sName = StringReplace($sName, "/", "_")