[DmitriiV]

Использовать для поиска регулярные выражения. Убейте - не понимаю »

Пример:

Код:

myString = "max = 101" & vbNewLine & "max = 102" & vbNewLine & "max = 103"
strTemp = Trim(InputBox("Число:"))
If Len(strTemp) > 0 Then
	If IsNumeric(strTemp) Then
		Set objRegExp = CreateObject("VBScript.RegExp")
		objRegExp.Global = True
		objRegExp.IgnoreCase = True
		objRegExp.Pattern = "max = \d+"
		MsgBox objRegExp.Replace(myString, "max = " & strTemp)
		Set objRegExp = Nothing
	Else
		MsgBox "Неверное значение."
	End If
End If

[_D_V_S_]

DmitriiV,

Спасибо!

Только я совсем запутался...
Пробовал и так и эдак вставлять Ваш код в сценарий...

Но в лучшем случае на выходе получаю файлы вида:

Код:

max_item_mass = 101
max_item_mass = 102
max_item_mass = 103

И всё. Остальное содержимое файла - стирается.

Если не затруднит - пожалуйста набросайте полностью код ( с комментами если можно) - я в тупике

[DmitriiV]

... Остальное содержимое файла - стирается »

Это же был лишь пример на использование регулярных выражений.

... набросайте полностью код »

Как-то так (проверку не делал):

Код:

Dim objRegExp, objFSO, objFile
Dim strText, UserName, strNewText
Const ForReading = 1
Const ForWriting = 2

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.IgnoreCase = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
UserName = Trim(InputBox("Макс [max]", "File.ext", "ВВОДИТЕ"))
If Len(UserName) > 0 Then
    While Not IsNumeric(UserName)
        MsgBox "Задано не числовое значение. Повторите ввод.", vbExclamation
        UserName = Trim(InputBox("Макс [max]", "File.ext", "ВВОДИТЕ"))
    Wend
    Set objFile = objFSO.OpenTextFile("File.ext", ForReading)
    strText = objFile.ReadAll
    objFile.Close
    objRegExp.Pattern = "max = \d+"
    strNewText = objRegExp.Replace(strText, "max = " & UserName)
    Set objFile = objFSO.OpenTextFile("File.ext", ForWriting)
    objFile.WriteLine strNewText
    objFile.Close
End If
UserName = Trim(InputBox("Макс1 [max1]", "File.ext", "ВВОДИТЕ"))
If Len(UserName) > 0 Then
    While Not IsNumeric(UserName)
        MsgBox "Задано не числовое значение. Повторите ввод.", vbExclamation
        UserName = Trim(InputBox("Макс1 [max1]", "File.ext", "ВВОДИТЕ"))
    Wend
    Set objFile = objFSO.OpenTextFile("File.ext", ForReading)
    strText = objFile.ReadAll
    objFile.Close
    objRegExp.Pattern = "max1 = \d+"
    strNewText = objRegExp.Replace(strText, "max1 = " & UserName)
    Set objFile = objFSO.OpenTextFile("File.ext", ForWriting)
    objFile.WriteLine strNewText
    objFile.Close
End If
Set objFile = Nothing
Set objFSO = Nothing
Set objRegExp = Nothing
WScript.Quit 0

[_D_V_S_]

DmitriiV,
Огромное спасибо!

Начинаю немного понимать...

Вот регулярное выражение - думаю как написать...

Код:

max(тут любое кол-во пробелов или ТАБ-ов)=(тут любое кол-во пробелов или ТАБ-ов)\d+

Любое кол-во - это от нуля. То есть и отсутствие тоже. Как написать... Спасибо ещё раз сразу!!
Не подскажешь?

PS Если VBS этот получится - многие мои друзья спасибо скажут! Я в комментах к нему тебя укажу.

[DmitriiV]

_D_V_S_, смотрите здесь http://forum.script-coding.com/viewt...d=58092#p58092.