[Iska]

PoltavaPGS, если без проверок, то примерно так:

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

Код:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2

Const TristateTrue       = -1


Dim strFIO

Dim strFileName
Dim strContent

Dim strFind
Dim strReplace


strFileName = WScript.Arguments.Item(0)

strFind    = "MENUITEM ""&Поликарпов П.П.|Поликарпов"""
strReplace = ""

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strFileName) Then
		strFIO = Trim(InputBox("Введите Ваши фамилию, имя, отчество в виде:" & vbCrLf & vbCrLf & _
			"Иванов И.И.", "Введите фамилию, имя, отчество", ""))
		
		If Len(strFIO) <> 0 Then
			strReplace = "MENUITEM ""&" & strFIO & "|" & Split(strFIO)(0) & """"
			
			With .OpenTextFile(strFileName, ForReading, False, TristateTrue)
				strContent = .ReadAll()
				
				.Close
			End With
			
			With .OpenTextFile(strFileName, ForWriting)
				.Write Replace(strContent, strFind, strReplace)
				
				.Close
			End With
		End If
	Else
		WScript.Echo "Файл [" & strFileName & "] не найден"
	End If
End With

WScript.Quit 0

Файл для обработки указываете аргументом скрипта:

Код:

Script.vbs "c:\Sample folder\GRAPHIC.PMN"

либо непосредственно в коде вместо присвоения аргумента:

Код:

strFileName = "c:\Sample folder\GRAPHIC.PMN"

P.S. Если Вам действительно надо будет регулярно менять, я бы вместо конкретной фамилии «&Поликарпов П.П.|Поликарпов» вставил шаблон-заполнитель, который бы потом искался и заменялся.

[PoltavaPGS]

Спасибо то что нужно!!!

[PoltavaPGS]

Так есть парочка проблем
1) Это то что файл после замены в нем строки таким образом получается в половину меньшего размера. Полагаю что то в кодировках зарыто ??? так вот после таких манипуляций программа для которой он непосредственно предназначен открывает его без проблем. И блокнот тоже без вопросов. А вот программа специально для удобного редактирования этого файла напрочь отказывается его открывать.
2)Как быть если нужно заменить несколько раз ввод еще одной строки ничего не дал что я не так делаю ???

Код:

.Write Replace(strContent, strFind, strReplace)
.Write Replace(strContent, strFind2, strReplace2)

[Iska]

1) Это то что файл после замены в нем строки таким образом получается в половину меньшего размера. »

Архив с файлом до, файлом после, и Ваш код скрипта.

2)Как быть если нужно заменить несколько раз ввод еще одной строки ничего не дал что я не так делаю ??? »

Для начала — расставлять знаки препинания до появления в предложении смысла.

[PoltavaPGS]

Всем спасибо! Во всем разобрался.