[greg zakharov]

дописать в конец файла некое содержимое

Видимо айпишник хоста и имя БД...

Код:

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile : Set objFile = objFSO.OpenTextFile("listner.ora", 8, False)
objFile.Write "blablabla"
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

[ospekt00]

Спасибо за ответ, а можно ли дописать что то после определенной строки, например после 8 строки от начала файла?

[greg zakharov]

Инжекта строки "на лету", насколько помню, в Васе нет, но это можно преодолеть, скажем, считав файл целиком и разбив его на массив строк с последующей "вставкой" в него нужной строки.

[ospekt00]

Можете показать пример того как это можно сделать?
Заранее благодарю!

[Iska]

а можно ли дописать что то после определенной строки, »

Дописывать отдельной строкой?

например после 8 строки от начала файла? »

Как быть, если строк окажется только, скажем, пять?

[ospekt00]

В данном файле listener.ora строк 23, вообще нужно дописать после 12 строки еще 6 строк. Можно было бы файл заменять полностью, файлом с нужным содержимым, но так как ПК с такими файлами много и имена ПК все разные то либо дописывать нужное после определенной строки, ли переписывать файл полность и по том в нужном месте еще заменять инфу с именем ПК.

[greg zakharov]

Можете показать пример того как это можно сделать?

Честно, Васю практически не использовал, в основном налегал на JScript, решение на котором будет примерно таким:

Код:

with (new ActiveXObject('Scripting.FileSystemObject')) {
  var file = OpenTextFile('E:\\oracle\\admin\\network\\listner.ora', 1, false),
      arr = file.ReadAll().split('\r\n'),
      ins = [
        '\nстроки, которые должны быть вставлены',
        'могут быть представлены либо в виде',
        'массива строк, либо в виде JSON\n'
      ].join('\n'),
      res = arr.slice(0, 3).join('\n') + ins +
            arr.slice(3, arr.length).join('\n');
  file.Close();
  
  file = OpenTextFile('E:\\oracle\\admin\\network\\listner.ora', 2, false);
  file.Write(res);
  file.Close();
}

Выглядит не очень эстетично, но Вам же пример нужен, а не выхоленный код, верно? Здесь вставка идет начиная с третьей строки. Если будут вопросы, отвечу как освобожусь.

[ospekt00]

Всем большое спасибо за помощь, данную проблему решил заменой файла и далее заменой имени в файле который скопировал на имя ПК.
Получилось что то вот такое:


Dim fso
Const OverWriteFiles = True
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
lsaptPathx = "c:\bat1"
lsoraPathx = "c:\bat"

FSO.CopyFile (lsaptPathx) , (lsoraPathx) & "\", OverWriteFiles

dim objnet
Set objnet = wscript.CreateObject("wscript.network")

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileLis = objFSO.OpenTextFile("c:\BAT\listener.ora", ForReading)

strText = objFileLis.ReadAll
objFileLis.Close

strOldText = "pcbd"
strNewText = objNet.ComputerName

strNewText = Replace(strText, strOldText, strNewText)

Set objFileLis = objFSO.OpenTextFile("c:\BAT\listener.ora", ForWriting)
objFileLis.WriteLine strNewText
objFileLis.Close

'**************************************************

[Iska]

Выглядит не очень эстетично, »

Зато дёшево надёжно и практично! - YouTube .

На самом деле вполне себе эстетично.

Код: res = arr.slice(0, 3).join('\n') + ins + arr.slice(3, arr.length).join('\n'); »

выглядит вполне понятно и наглядно — берём три первых строки, «клеим» к ним вставку, к полученному «клеим» остаток строк.