const
MyFileName = 'c:\tst\trans.txt'; // в файле - таблица соответствий в формате CH=Чvar
skip:boolean;
i:integer;
a,c,d,e:string; //а - для теста, в c - тестовая строка, е - строка для определения двухбуквенных обозначений
trans: TStringList;
b:integer;
function GetValue(ValName: string): string;
begin
result:=trans.Values[ValName];
end;
procedure Init; //Вызывается при включении скриптаbegin
trans:=TStringList.Create;
try
trans.LoadFromFile(MyFileName);
except// если ошибка, не обращаем вниманиеend;
a:='PrImEr tranSlita';
a:=a+' '; // хз почему - но для верного определения двубуквенных символов и их преобразования - надо пробел прибавить :) не вникал....
c:='';
d:='';
skip:=false;
for i:=1to(length(a))dobegin
e:='';
ifnot skip then d:=GetValue(Copy(a,i,1));
skip:=false;
if(i<(length(a))-1)then e:=GetValue(Copy(a,i,2));
if(e<>'')thenbegin
d:=e;
skip:=true;
end;
if((ord(Copy(a,i,1)))>64)and((ord(Copy(a,i,1)))<91)thenbegin// and (d<>e)
d:=Uppercase(d); //проверки на лоу аппер кейзend;
ifnot skip thenbegin
c:=c+d;
end;
end;
SendMsg(a+' ---- >>> '+c);
end;
procedure Free;
beginend;
beginend.
08.09.2010 02:16:34 Script: PrImEr tranSlita ---- >>> ПрИмЕр транСлита
Переделать в вариант "кириллица в транслит" - точно таким же образом, меняется лишь таблица и коды символов в условии перевода "if ((ord(Copy(a,i,1)))>64) and ((ord(Copy(a,i,1)))<91) then" ЗЫ: пишу без клиента, так что все в блоке инит. Сделал пример "транслит в кириллицу".
ЗЗЫ: чето затеи у тебя постоянно глобальные какие-то, ты там что - на коленке Скайнет мастеришь чтоль?
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 08.09.2010 в 03:19.
За это сообщение Breadfan нажился 2 спасибками от:
вот только из этих данных - ниче не выдет как минимум нехватает новых координат объекта + скорости...т.е. надо: x\y\z(0) - начальные координаты во время 0, x\y\z(1) - координаты во время - t(время), а далее все просто - из координат получаешь путь (S), исходя из t - получаешь ускорение.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 08.09.2010 в 03:32.
неа, основывая лишь на координатах и углах - не узнать ускорение, только путь...ведь один и тот же путь объект может пройти и за секунду и за десять, то есть не имея в начальных данных скорости - не можем...кроме того - каков характер движения - равномерный (s=vt) или равноускореный
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 08.09.2010 в 03:49.