Folker •---->


Anmeldedatum: 11.12.2000 Beiträge: 649 Wohnort: Holsteinische Schweiz
|
Verfasst am: 24.02.2001 - 13:25 Titel: HEX to ASCII |
|
|
Hallo DrMock,
es mag dafür Scripting Additions geben (?), für Werte von 00 bis FF arbeitet folgendes Script:
--get_integ(text items of "FF") benötigt einen definierten Apple Script's text item delimiter {""}
-- folgende Variante arbeitet auch
set x to get_integ("FF")
--Achtung: ASCII Character of 0 schießt AppleScript i.d.R. prima ab
if x > 0 then get ASCII character of x
on get_integ(Wert)
set {x, temp} to {0, 0}
repeat with i from 2 to 1 by -1
try
set y to (item i of Wert) as integer
on error
considering case
if not ((item i of Wert) is in {"A", "B", "C", "D", "E", "F"}) then error "Ungültiger Wert!"
set y to CharTo_Number((item i of Wert), 2)
end considering
end try
set temp to temp + (y * (16 ^ x))
set x to x + 1
end repeat
return temp
end get_integ
on CharTo_Number(y, x)
repeat with i in {{"A", 10}, {"B", 11}, {"C", 12}, {"D", 13}, {"E", 14}, {"F", 15}}
if y is in i then exit repeat
end repeat
return item x of i
end CharTo_Number
Gruß, Folker _________________ Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign |
|