[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