VBS script переписать на jscript

@Инга Ротман · Регистрация: 22.07.2019

Author24 — интернет-сервис помощи студентам

Помогите переделать маленький скриптик на jscript :

Visual Basic

Option Explicit
 
Dim fso, Wsh, progdata, fileName1, FObj
Const text1 = "text"
 
fileName1 = "\DTools\settings.ini"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = WScript.CreateObject("WScript.Shell")
progdata = Wsh.expandEnvironmentStrings("%PROGRAMDATA%")
 
If fso.FileExists(progdata & fileName1) Then
    Set FObj = fso.OpenTextFile(progdata & fileName1, 8)
    FObj.WriteLine("")
    FObj.WriteLine(text1)
    FObj.Close
    MsgBox("DATA is written successfullt")
End If
 
WScript.Quit

и объесните пожалуйсмта зачем нужна послкедняя строчка ?

Вот как я начада:

Javascript

// опускаю
 
// опускаю
var text1 = "text";
 
var fileName1 = "\DTools\settings.ini";
var fso = new CreateObject("Scripting.FileSystemObject");
var Wsh = new WScript.CreateObject("WScript.Shell");
var progdata = Wsh.expandEnvironmentStrings("%PROGRAMDATA%");
 
if (fso.FileExists(progdata + fileName1)) {
    var FObj = fso.OpenTextFile((progdata + fileName1), 8);
    FObj.WriteLine("");
    FObj.WriteLine(text1);
    FObj.Close;
    MsgBox("DATA is written successfullt");
}
 
// Опускаю

Выдает ошибку на 12 строке " CreateObject : определение отсутствуе "

Добавлено через 38 минут
пока что есть прогшресс :
вместо const в jscript надо использовать var ;
надо экранировать бэклэши \\
нет CreateObject , есть только new ActiveXObject
нет MsgBox , есть только WScript.Echo()
почему - то нет FObj.Close выдает ошибку метол не поддерживается
пока получился вот такой вариант

Javascript

var text1 = "text";
 
var fileName1 = "\\DTools\\settings.ini";
var fso = new CreateObject("Scripting.FileSystemObject");
var Wsh = new WScript.CreateObject("WScript.Shell");
var progdata = Wsh.expandEnvironmentStrings("%PROGRAMDATA%");
 
if (fso.FileExists(progdata + fileName1)) {
    var FObj = fso.OpenTextFile((progdata + fileName1), 8);
    FObj.WriteLine("");
    FObj.WriteLine(text1);
    //FObj.Close;
    WScript.Echo("DATA is written successfullt");
}

Добавлено через 2 минуты
Теперь у меня остался один вопрос :
Если FObj.Close не поддерживается , тогда что использовать для освобождения память ? Просто опустить и все ?

FlasherX · 29.10.2019, 14:06

Javascript

var text1 = "text"
 
var fileName1 = "\\DTools\\settings.ini"
var fso = WSH.CreateObject("Scripting.FileSystemObject")
var Wsh = WSH.CreateObject("WScript.Shell")
var progdata = Wsh.Environment('PROCESS')('PROGRAMDATA')
 
if (fso.FileExists(progdata + fileName1)) {
    with(fso.OpenTextFile(progdata + fileName1, 8)){writeLine(text1);close()}
    WSH.Echo("DATA is written successfullt")
}

@Инга Ротман · 29.10.2019, 15:59 **[ТС]**

Сообщение от Инга Ротман

тогда что использовать для освобождения память ?

Теперь понятно , надо было просто пустые скобки добавить к Close ()

Добавлено через 26 секунд
а точки с запятой не нужны получается ?

FlasherX · 29.10.2019, 16:45

Чаще — нет, но в некоторых ситуациях могут понадобиться.

@Инга Ротман 0 / 0 / 0 Регистрация: 22.07.2019 Сообщений: 32
	29.10.2019, 15:59 [ТС]	3
	Сообщение от Инга Ротман тогда что использовать для освобождения память ? Теперь понятно , надо было просто пустые скобки добавить к Close () Добавлено через 26 секунд а точки с запятой не нужны получается ? 0

FlasherX 6327 / 2753 / 1071 Регистрация: 06.06.2017 Сообщений: 9,360
	29.10.2019, 16:45	4
	Чаще — нет, но в некоторых ситуациях могут понадобиться. 1

Опции темы

VBS script переписать на jscript

Решение