Re: ASCII problem
Re: ASCII problem
- Subject: Re: ASCII problem
- From: hciR nellA <email@hidden>
- Date: Wed, 25 Apr 2001 17:39:08 -0800
this gives the same result as the VB code
set sccf to "19110027900059"
set temp2 to ""
repeat with i from 1 to (length of sccf) by 2
set chunk to (characters i thru (i + 1) of sccf) as string
if (chunk as integer) < 90 then
set temp2 to temp2 & ((ASCII character of ((chunk as
integer) + 33)) as string)
else
set temp2 to temp2 & ((ASCII character of ((chunk as
integer) + 71)) as string)
end if
end repeat
SCCF = 19110027900059
temp = SCCF
for i = 1 To Len(SCCF) / 2
chunk = left(temp, 2)
if val (chunk) < 90 then
temp2 = temp2 + chr(val(chunk) + 33)
else
temp2 = temp2 + chr(val(chunk) + 71)
end if
temp = right(temp, len(temp) - 2)
next i
hereby variable temp2 gets converted to ascii with an special program
- hcir
mailto:email@hidden
Made with a Mac!