[megaloman]

Код:

fXLS = "H:\Delete\ggg.xls"              ' Где Excel-файл
fTxt1 = "H:\Delete\Целевой файл.txt"    ' Где Исходный текстовый файл
fTxt2 = "H:\Delete\Результат.txt"       ' Где Результат

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fTxt1, 1)
S = F.ReadAll
F.Close

Range1 = "A1"           ' В какой клетке первое данное

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open fXLS

i = 0
Do While True
    Txt1 = XL.Range("A1").Offset(i, 0)
    If Txt1 = "" Then Exit Do
    Txt2 = XL.Range("A1").Offset(i, 1)
    S = Replace(S, CStr(Txt1), CStr(Txt2))
'    MsgBox CStr(Txt1) + "   " + CStr(Txt2)
    i = i + 1
Loop
' XL.ActiveWorkbook.Save
XL.Quit

Set F = FSO.CreateTextFile(fTxt2, True)
F.Write S
F.Close

[dembel_zone]

Спасибо за ответ, но у меня до 66561 знака идут квадратики... что это? в моем примере тоже самое. скрин прилагается.

[dembel_zone]

да, Ваш пример работает. прикреплю мое творчество, а то ведь больше спросить не у кого(

[ferget]

квадратики от того что, кодировка utf-16 и файлы не txt, а xml

если сменить кодировку на ANSI, то работает

[dembel_zone]

Премного благодарен! Куда плюсик ставить?)

[4EJLO6PEK]

здравствуйте, тоже появилась необходимость сделать замену в текстовом файле заменить одни значения другими при этом это значение не целая строчка, а просто текст в произвольном месте, кроме замененного текста, все остальное должно остаться...значений около 300, попробовал вбить в excel макросы выше, ругается на синтаксис, прямо с первой строчки fXLS = "H:\Delete\ggg.xls" подскажите пожалуйста, как решить проблему? значение имени файла подставлял свои, кириллицу и пробелы не использовал

[Iska]

4EJLO6PEK, для начала выложите Ваши файлы и укажите что, чем и как менять.

[4EJLO6PEK]

текстовый файл вида

читать дальше »

004 AX AA C 00:00:21:22 00:00:32:21 00:00:04:16 00:00:15:15
* FROM CLIP NAME: MVI_6763.MOV

005 AX V C 00:00:23:12 00:00:28:21 00:00:15:15 00:00:20:24
* FROM CLIP NAME: MVI_6776.MOV

006 AX AA C 00:00:23:12 00:00:28:21 00:00:15:15 00:00:20:24
* FROM CLIP NAME: MVI_6776.MOV

007 AX AA/V C 00:00:41:04 00:00:45:23 00:00:20:24 00:00:25:18
* FROM CLIP NAME: MVI_6767.MOV

008 AX V C 00:00:45:23 00:00:46:03 00:00:25:18 00:00:25:23
* FROM CLIP NAME: MVI_6767.MOV

009 AX AA/V C 00:00:41:04 00:00:45:23 00:00:20:24 00:00:25:18
* FROM CLIP NAME: MVI_6767.MOV

010 AX V C 00:00:45:23 00:00:46:03 00:00:25:18 00:00:25:23
* FROM CLIP NAME: MVI_6767.MOV

011 AX V C 00:01:29:10 00:01:35:11 00:00:25:23 00:00:31:24
* FROM CLIP NAME: MVI_6765.MOV

012 AX AA C 00:01:29:10 00:01:35:11 00:00:25:23 00:00:31:24
* FROM CLIP NAME: MVI_6765.MOV

013 AX V C 00:01:14:23 00:01:18:18 00:00:31:24 00:00:35:19
* FROM CLIP NAME: MVI_6769.MOV

это из экспорта видео монтажа, а мне надо все MVI_????.MOV заменить на соответствующие им другие названия типа ?-?-?.mov
у меня есть эксель файл две колонки
MVI_6763.MOV 1-1-2.mov
MVI_6776.MOV 1-2-4.mov
MVI_6776.MOV 2-1-4.mov
и т.д.

[Iska]

Выложить файлы — это означает: упаковать их в архив, и прикрепить последний к сообщению.