Все фигня смори как нада!!))
Оффтоп
delphi Код:
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:=1 to (length(a))do begin
e:='';
if not skip then d:=GetValue(Copy(a,i,1));
skip:=false;
if (i<(length(a))-1)then e:=GetValue(Copy(a,i,2));
if (e<>'') then begin
d:=e;
skip:=true;
end;
if ((ord(Copy(a,i,1)))>64) and ((ord(Copy(a,i,1)))<91) then begin // and (d<>e)
d:=Uppercase(d); //проверки на лоу аппер кейз
end;
if not skip then begin
c:=c+d;
end;
end;
SendMsg(a+' ---- >>> '+c);
end;
procedure Free;
begin
end;
begin
end.
Кусок таблички преобразований: Оффтоп
delphi Код:
=
l=л
o=о
t=т
i=и
n=н
s=с
ch=ч
e=е
k=к
o=о
g=г
p=п
r=р
b=б
z=з
u=у
m=м
'=ь
ja=я
bl=ы
a=а
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.
|