Расчеты на скорую руку в VBS без компиляторов

/ Скачать софт / От

Иногда надо быстро подготовить текстовый файл и выдать этот текст на экран, потом удалить этот временный файл (или не удалять). Для этого подойдет такой текст VBS файла:

'
' calc.VBS: //krym52.ru 31.07.2026
' Test
'
Set objArgs = WScript.Arguments
if objArgs.Count > 0 then
	sFc=objArgs(0)
else
	sFc="qqq.txt"
end if
'Формируем текстовый файл sFc
Set FSOc = CreateObject("Scripting.FileSystemObject")
Set fC = FSOc.CreateTextFile(sFc, true)
'=== Далее вычисления и запись в файл sFc
n=10
for i=0 to n-1
	s=i & vbTab & 5
	fC.WriteLine(s)	'запись очередной строки в sFc
next
'=== Конец вычислений и записи в файл sFc
fC.Close
'
'Выводим на экран sFc и после задержки удаляем 
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd /c type " & sFc & " " & chr(38) & " pause" , 1, True
' Альтернатива: WshShell.Run "cmd /c type " & sFc & " " & chr(38) & " timeout /t 10" , 1, True
WshShell.Run "cmd /c del /Q " & sFc		'Если хотим удалить файл sFc
Set WshShell = Nothing

Расчеты и формирование строк в файле sFc вставляете между комментариями вида ‘===…

Top