0 / 0 / 0
Регистрация: 22.07.2019
Сообщений: 32
1
JS

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

29.10.2019, 13:25. Показов 2824. Ответов 3

Author24 — интернет-сервис помощи студентам
Помогите переделать маленький скриптик на jscript :
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// опускаю
 
// опускаю
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 не поддерживается , тогда что использовать для освобождения память ? Просто опустить и все ?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2019, 13:25
Ответы с готовыми решениями:

Основные различия VBS и JScript
В чем их различия?

VBS Отправка e-mail через SMTP-сервер - VBScript/JScript/WSH/WMI/HTA
Помогите, при запуске скрипта возникает ошибка Option Explicit 'Содание объекта CDO Dim...

Поиск архивных данных по дате vbs script
Всем привет. Помогите со скриптом. Есть архив (в TAG Logging) в котором записываются...

Как переписать скрипт с php на jscript?
Помогите вот этот маленький код написанный на php перевести на язык jscript <?php if...

3
6327 / 2753 / 1071
Регистрация: 06.06.2017
Сообщений: 9,360
29.10.2019, 14:06 2
Лучший ответ Сообщение было отмечено Инга Ротман как решение

Решение

Javascript
1
2
3
4
5
6
7
8
9
10
11
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")
}
1
0 / 0 / 0
Регистрация: 22.07.2019
Сообщений: 32
29.10.2019, 15:59  [ТС] 3
Цитата Сообщение от Инга Ротман Посмотреть сообщение
тогда что использовать для освобождения память ?
Теперь понятно , надо было просто пустые скобки добавить к Close ()

Добавлено через 26 секунд
а точки с запятой не нужны получается ?
0
6327 / 2753 / 1071
Регистрация: 06.06.2017
Сообщений: 9,360
29.10.2019, 16:45 4
Чаще — нет, но в некоторых ситуациях могут понадобиться.
1
29.10.2019, 16:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2019, 16:45
Помогаю со студенческими работами здесь

Не переписать с vbs на js
Доброго времени суток! Пытаюсь переписать небольшой скрипт с VBS на JS. Но не работает. ...

Переписать функцию с Java Script на C#
Здравствуйте, подскажите пожалуйста как в C# можно реализовать функцию на JavaScript ...

Переписать java script на python
for i in { 1. .15 }; do curl - s - L - i https: //blog.taken.pl/?author=$i –user-agent...

Создание бинарного файла из vbs / Как создать exe файл из vbs
Имеется файл с расширением exe. Нужно как-нибудь занести массив байт в скрипт, и чтоб потом этот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru