Trimma och modifiera Strängar

[Zaiboot]

Har ett problem som jag inte klarar av att lösa själv.

 

Kommer från en databas, men värdet blir så här..

dag = "011000112110033222"

jag måste kunna bryta lös varje tecken för sig typ:

dag1 = "0"

dag2 = "1"

men hur gör jag det?

 

Dessa värden ska sedan göras om till färger (hexadecimal) för att göra ett överskådligt graf.

 

Hjälp mig!!

[Magnus Gladh]

här kommer en lösning ur huvudet!

 

dim sArray
dim i

i = 0

while len(dag) > 0 
sArray(i) = left(dag,1)
dag = right(dag,len(dag)-1)
i = i +1
wend

 

Något sånt kanske fungerar annars är det lite hjälp på vägen kanske...

 

- Magnus

----------------------------------------

 

 

[Tiger2]

dim i, arr

for i = 1 to len(dag)

arr(i) = mid(dag,i,1)

next