Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Обмен кнопками 
Author Message
DrShark



PostPosted: Wed Jan 02, 2008 03:33    Post subject: Reply with quote

Tovarishh wrote:
а можно скрипт или 2 скрипта (для каждого языка), что бы делал то же самое, но без BATников ?

Решил попробовать слепить такой скрипт, но столкнулся с тем, что
VBScript не позволяет отнимать число от переменной, в которую уже занесено число.
Задумывалось брать нужный язык из параметров скрипта.
Вот начало кода:
Code:
Option Explicit
Dim ShellObj, argument, oArgs, ArgNum, teststr, MyLng
Set ShellObj = CreateObject("WScript.Shell")
Set oArgs = WScript.Arguments
ArgNum = oArgs.Count
Msgbox ArgNum
LngArg = ArgNum - 1
MsgBox LngArg
MyLng = WScript.Arguments(LngArg)
MsgBox MyLng

Msgbox'ы напиханы для отладки.
Так вот, если не использовать переменную LngArg, а прямо писать, например,
MyLng = WScript.Arguments(0), то всё работает.
LngArg = ArgNum - 1 приводит к ошибке "Variable is undefined"
Что тут "не так"?
View user's profile Send private message Visit poster's website


Powered by phpBB © 2001, 2005 phpBB Group