Vbscript запись текстового сообщения (слова) в файл

Узнай цену своей работы

Формулировка задачи:

Здравствуйте!
Помоги пожалуйста, такая ситуация:
Есть файл (текстовый), в нем нужно найти некое слово (конфиг файл, найти нужно параметр) и заменить его своим значением.
По существу - есть конфиг файл, нужно чтобы скрипт правил старое имя хоста на новое (как взять и вставить новое название хоста и вставить его в конфиг файл я не знаю, знаю только cmd-hostname :)_)
Собственно, хелп :(..?..

Решение задачи: «Vbscript запись текстового сообщения (слова) в файл»

textual
Листинг программы
<font color="blue">dim</font> objnet
<font color="blue">Set</font> objnet = wscript.CreateObject(<font color="teal">"wscript.network"</font>)
wscript.echo <font color="teal">""</font> & objNet.ComputerName,<font color="teal">""</font>

<font color="blue">Const</font> ForReading = <font color="darkblue"><b>1</b></font>
<font color="blue">Const</font> ForWriting = <font color="darkblue"><b>2</b></font>

<font color="blue">Set</font> objFSO = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> objFile = objFSO.OpenTextFile(<font color="teal">"c:\Documents and Settings\user\Desktop\test.txt"</font>, ForReading)

strText = objFile.ReadAll
objFile.<font color="blue">Close</font>

strOldText = <font color="teal">"111"</font>
strNewText = objNet.ComputerName

strNewText = Replace(strText, strOldText, strNewText)

<font color="blue">Set</font> objFile = objFSO.OpenTextFile(<font color="teal">"c:\Documents and Settings\user\Desktop\test.txt"</font>, ForWriting)
objFile.WriteLine strNewText
objFile.<font color="blue">Close</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы