Здравствуйте! Помогите пожалуйста переписать программу wct editor (delphi) на javascript!
Сам код программы:
Код:
Код:
program converter;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
a: string[8] = 'ABCDEFGO'; {задаём строку для поиска
в ней символов}
Var
I : byte;
f1:file of byte;
f2:textfile;
{функция для перевода целой части числа из 10-й в любую сс}
function Cel(d: real; c: integer): string;
var
s: string;
n2: integer;
begin
n2 := round(int(d)); {берём целую часть от числа}
s := '';
repeat
s := ((a[n2 mod c + 1]) + s); {повторяем пока число не будет равно нулю берём целую часть при
делении числа на основание и берём остаток + 1 от деления целой части на 16, записываем
результат посимвольно в строку s}
n2 := n2 div c;
until (n2 = 0);
if length(s)<3 then
for i:=length(s)+1 to 3 do
s:='A'+s;
Cel := s;
end;
begin
if ParamCount < 2 then
begin
writeln('Not enough parameters!');
exit;
end
else
begin
if fileexists(paramstr(1)) then
begin
assignfile(f1,paramstr(1));
assignfile(f2,paramstr(2));
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
read(f1,i);
write(f2,cel(i,8));
end;
closefile(f1);
closefile(f2);
end
else
begin
writeln('File not exist!');
exit;
end;
end;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Надо сделать простую HTML страничку (и javascript) с текстовым полем (многострочным), и кнопку сохранить. Когда нажимашь на кнопку "сохранить" - программа скачивается (или другой файл с другим расширением). Очень надо для сайта, так как не все могут использовать wct editor. Пожалуйста!