brake up a string

[Christopher Brandsdal]

Hi!

I have a string I have to break up in several strings.

THe string looks like this:

39-Fagleder,38-Eier,42-Avdelingsleder,37-Etelleranna

The Syntax is NUMBER-TEXT,

I wan't to break up the string like this:

39 Fagleder
38 Eier
42 Avdelingsleder
37 Etelleranna


I have tried to use For Next.

Is it better if the Syntax is: NUMBER,TEXT,

??

Thanks!
Christopher Brandsdal

 

[Tom B]

you can use the split function to create an array.

Dim TheString
TheString="39-Fagleder,38-Eier,42-Avdelingsleder,37-Etelleranna"
TheString=Replace(TheString,"-"," ") 'Replaces the dashes with spaces

Dim TheArray
TheArray=Split(TheString,",") 'Splits on the comma

Dim iLoop
For iLoop=0 to UBound(TheArray)-1
Response.write "<LI>" & TheArray(iLoop) & "</LI>"
Next

 

[Christopher Brandsdal]

Thanks for fast respons!

But if I want to display the text?

Is the any way to cut out the numeric part?

because I want to store TheArray(iLoop) in a database and display ONLY the
Text on the page...

Is this possible?

 

[Tom B]

Sure, don't do the Replace part, so each of your array elements contains
"##-sssss"
Where # is a number and is followed by a dash. You can then do another
split.

Dim TheString
TheString="39-Fagleder,38-Eier,42-Avdelingsleder,37-Etelleranna"

Dim TheArray
TheArray=Split(TheString,",") 'Splits on the comma

Dim iLoop
Dim AnotherArray

For iLoop=0 to UBound(TheArray)-1
Response.write "<LI>" & TheArray(iLoop) & "</LI>"

AnotherArray=Split(TheArray,"-")
'At this point AnotherArray(0) should contain the number part and
AnotherArray(1) should contain the text
Response.Write "<LI>" & AnotherArray(1) & "</LI>"

Next

 

[Christopher Brandsdal]

Thanks! that worked!

I just had to change AnotherArray=Split(TheArray,"-") to
AnotherArray=Split(TheArray(iLoop),"-")



Christopher

 

[Tom B]

Yes, sorry.

Thanks! that worked!

I just had to change AnotherArray=Split(TheArray,"-") to
AnotherArray=Split(TheArray(iLoop),"-")



Christopher