Такой вредный ИнДизайн!!!!!
kaktus © (2004-11-26 15:57:00)
Доброго времени суток всем!
Такая себе проблемка:
ИнДизайн работает вообще с Unicod-ом, так я функцией ->
function TfConvert.ToUnicode(Str : String):String;
var
StrDest:string;
I:Integer;
Tmp:WideString;
begin
Tmp:=Str;
StrDest:='';
for I:=1 to Length(Tmp) do begin
StrDest:=StrDest+'<0x'+IntToHex(Integer(Tmp[I]),4)+'>';
end;
Result := StrDest;
end;
переганяю строку с ANSI в Unicode - и отображаю все это в
шестнадцетиричном виде.
Затем опять таки функцией
procedure TfConvert.SpeedButton6Click(Sender: TObject);
var
f : TextFile;
str : String;
i : Integer;
begin
if SaveDialog1.Execute then begin
AssignFile(f, SaveDialog1.FileName+'.txt');
Rewrite(f);
WriteLn(f,RichEdit2.Text);
CloseFile(f);
end;
end;
сохраняю это все в файл. Открывая это все я вижу следующее:
<ASCII-WIN>
<vsn:2.000000><fset:InDesign-Roman><ctable:=<Black:COLOR:CMYK:Process:0.000000,0.000000,0.000000,1.000000>>
<dps:TV-Rubrika=<Nextstyle:TV-Rubrika>>
<dps:TV-Text=<Nextstyle:TV-Text>>
<dps:TV-BoldText=<Nextstyle:TV-BoldText>>
<pstyle:TV-Rubrika> [img]rub23.jpg[/img]
<pstyle:TV-BoldText>
<0x041F><0x0440><0x043E><0x0431><0x0430><0x0020><0x043F><0x0440><0x043E><0x0441><0x0442><0x043E><0x0020><0x041F><0x043E>
<0x0442><0x043E><0x043C><0x0443><0x0020><0x0447><0x0442><0x043E><0x0020><0x044D><0x0442><0x043E><0x0020><0x0432><0x0441>
<0x0435><0x0020><0x0435><0x0440><0x0443><0x043D><0x0434><0x0430><0x0020><0x0020><0x0422><0x0435><0x0441><0x0442><0x0438>
<0x0440><0x043E><0x0432>
при этом вставляя это в Индизайн - он не обрабатывает его, а
просто отображает содержимое - в чем глюк??????????
[lamer]Barmaglot (2004-11-26 16:30:00) [1]
STFW?
www.unicode.org
Наверх 
ЧАТ |
Орешник |
|
