]]>]]>В текстовом файле в 23-ей строке в середине запись Имя:
Нужно что бы туда попало имя из InputBox.
----------------------------------------------------------------------
Добавил позднее:
Мой варинат с Replace, скромно и удобно
Dim fso
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\результат.txt", ForReading) 'Если скрипт в одной папке с результатом "C:\" - можно убрать.
UserName=InputBox("Текст сообщения","Названия Сообщения","Сюда добавляется текст, который будет автоматом в поле заполнения, если не нужно оставьте кавычки пустыми.") '
strText = objFile.ReadAll
objFile.Close
strOldText = "Такст для замены"
strNewText = "&UserName&" 'Можно поставить еще кавычек и вписать текст "Имя: "&UserName&" """
strNewText = Replace(strText, strOldText, strNewText)
Set objFile = objFSO.OpenTextFile("C:\результат.txt", ForWriting) 'Если скрипт в одной папке с результатом "C:\" - можно убрать.
objFile.WriteLine strNewText
objFile.Close