Re: detect invisible markup characters

Article View: adobe.scripting.indesign

Article #18939

Back to adobe.scripting.indesign Previous Next

#18939

From: Teus de Jong
Date: Wed, 05 Feb 2003 14:25

24 lines
1179 bytes

Ole,

I like the Pascal version also :-):

 
function GetUnicodeString(IndText: Olevariant): string; 
  var ws: Widestring; 
  t: integer; 
begin 
  Result:=''; 
  if Vartype(IndText)<>varOleStr then 
    exit; 
  if IndText.count>0 then 
  begin 
    ws:=IndText.textcontents; 
    for t:=1 to Length(ws) do 
      Result:=Result+Format('<%s>', [IntToHex(integer(ws[t]), 4)]); 
  end; 
end; 




Teus de Jong

Technical Details

Message-ID: <1de78e06.2@WebX.la2eafNXanI>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeeds.sol.net!skynet.be!skynet.be!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!WebX

References: <1de78e06.-1@WebX.la2eafNXanI>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,fc058cbf7f57ecfa
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2003-02-05 06:37:53 PST
From: "Teus de Jong" <teus@teusdejong.nl>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeeds.sol.net!skynet.be!skynet.be!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Re: detect invisible markup characters
Message-ID: <1de78e06.2@WebX.la2eafNXanI>
Date: Wed, 5 Feb 2003 06:25:47 -0800
References: <1de78e06.-1@WebX.la2eafNXanI>
Lines: 21
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message