Нужна помощь (JavaScript --> VBScript)

[denis76560]

Доброго времени суток уважаемые форумчане, при конвертации кода столкнулся с проблемой, имея следующий JavaScript код:

eval(de_('001011110010111101101000'));

function de_(code){
var tmp='';
while(code.length % 8 == 0 && code.length != 0)
{tmp += String.fromCharCode(parseInt(code.substr(0,8), 2)); 
code = code.replace(code.substr(0,8),"");}
return (tmp);}

смог только переписать так:

eval(de_("001011110010111101101000"));

function de_(code)
var tmp=""
while(code.length % 8 == 0 && code.length != 0)
{tmp += String.fromCharCode(parseInt(code.substr(0,8), 2))
code = code.replace(code.substr(0,8),"")}
de_ = tmp
end function

Имею проблемы с синтаксисом VBScript, пробовал по-разному, то что красным - сыпятся ошибки, еще не уверен, в строках

eval(de_("001011110010111101101000"));

и

var tmp="";

выставил двойные кавычки вместо одиночных.
Заранее благодарю за любую помощь по конвертации кода.

[Вадим Мошев]

Сообщение от denis76560

сыпятся ошибки

Какие ошибки-то?

[Serge_Bliznykov]

Сообщение от denis76560

Имею проблемы с синтаксисом VBScript

заметно

так не пойдёт.

в VBScript у строки нет методов.

например, вместо code.length нужно использовать Len(code)
так же нужно нужно заменить и остальные методы.
см. например, Справочник по VBScript : Текстовые функции

[denis76560]

Спасибо всем за помощь, переписал так:

function de_(code)
var tmp=""
while(len(code) Mod 8 = 0 and len(code) <> 0)
tmp = tmp & String.fromCharCode(parseInt(code.substr(0,8), 2))
code = code.replace(code.substr(0,8),"")
de_ = tmp
end function

eval(de_("001011110010111101101000"));

но получаю ошибку на строке закрытия функции:

[Serge_Bliznykov]

Сообщение от denis76560

переписал так:

вы меня не совсем поняли. у строки в VBScript нет методов.
вообще нет.
поэтому нужно ещё переписать:
code.substr
code.replace
String.fromCharCode

ну и, до кучи: parseInt