Серый форум — VBS: Заменить либо добавить текс в текстовый файл

Re: VBS: Заменить либо добавить текс в текстовый файл

null@example.com (ares80) — Thu, 19 May 2011 03:04:06 +0000

Отредактировал первый пост.

Re: VBS: Заменить либо добавить текс в текстовый файл

null@example.com (Rom5) — Wed, 18 May 2011 20:06:49 +0000

Считайте весь файл целиком в переменную, если он разумного размера, выполните в ней поиск-замену некоего выражения, например, замена "ваше имя:" и на "ваше имя:" & значение_из_формы, переписывайте откорректированой переменной свой файл.
Либо: файл переименовать и открыть на чтение, создать файл спрежним именем. Построчно в одном файле читаем в другой пишем, при достижении определенного условия вносим коррективы в содержимое.

VBS: Заменить либо добавить текс в текстовый файл

null@example.com (ares80) — Wed, 18 May 2011 18:50:22 +0000

Добрый день! Помогите написать скрипт.
К примету:

В текстовом файле в 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