Hex to Dez conversion

I am trying to convert data in hex format to dez numbers using the following script. It won’t run because of a syntax error (behind the first else). The numbers are in the following format: 0xFFFF

Script is:

for i = 6 to 3 do

b = stringmid(test,i,1)
if (b = ‘F’) then (b=15) else
if (b = ‘E’) then b=14 else
if (b = ‘D’) then b = 13 else
if (b= ‘C’) then b =12 else
if (b = ‘B’) then b = 11 else
if (b= ‘A’) then b =10
end
end
end
end
end
end
D = D + (b * 16^(6-i))
end
return D

Thanks already

Peter

Thanks!

The next problem is that I have a “Datenreihe mit … Zeichenketten” called ‘Test’ that I want to convert. The function Stringmid(Test,i,1) gives me the following error message: “Das erst Argument der Funktion Stringmid() hat falsche Datenstruktur. Das Argument muss ein Zeichenketten Einzelwert sein.”

How can I get the function to convert all the values ?

Thanks

Peter

Thanks a lot! This works for me now.

I have to use slightly different function (maybe because I am using FlexPro 6?):

Dim i,D, result
result = 0 # Numberofvalues(Weg)
For Each value i In Weg Do
D = HextoDez(Weg[i])
If D>60000 then D=D-65536
end
D=D/500
result[i] = D
End
result

and I had to do my own hextodez function which looks like this:

arguments h
Dim D,i

D = 0
For i = 2 to 5 do

b = stringmid(h,i,1)

if (b == “F”) then (b=15)
elseif (b == “E”) then b=14
elseif (b == “D”) then b = 13
elseif (b == “C”) then b = 12
elseif (b == “B”) then b = 11
elseif (b == “A”) then b = 10
end
D = D + (b * 16^(5-i))
end

The only problem is that this is quite slow (with 130000 numbers). Is there any possibility to speed the function up, or at least to have it calculate everything again as soon as I use the function in a diagram etc. ?

Thanks

Peter