string split by :

crmpicco · February 10th, 2005, 05:38 AM

My original string:

ADULT NETNET:134,GROSS:169,TAX:69.70,ADDON:35,WKEND:0,FU EL:0,MRKUP:0,AGYMRKUP:0,FEE:0,TTL:273.70,CID/CTC: 39/IT5AFKLE

My code:

<%
dim arrStr
dim theStr

theStr = xmldoc.documentelement.selectnodes("dataElementsMa ster").item(0).selectnodes("dataElementsIndiv").it em(2).selectnodes("miscellaneousRemarks").item(0). selectnodes("remarks").item(0).selectnodes("freete xt").item(0).text
'response.write "theStr = " & theStr & "<br>"
arrStr = Split(theStr,",")

for i=0 to Ubound(arrStr)
response.write "arrStr = " & (arrStr(i)) & "<br>"
next
%>

My output:

arrStr = ADULT NETNET:134
arrStr = GROSS:169
arrStr = TAX:69.70
arrStr = ADDON:35
arrStr = WKEND:0
arrStr = FUEL:0
arrStr = MRKUP:0
arrStr = AGYMRKUP:0
arrStr = FEE:0
arrStr = TTL:273.70
arrStr = CID/CTC: 39/IT5AFKLE

How can i split the string up even further to get just what comes after the ':'

Thanks.

Picco

www.crmpicco.co.uk

Santhi · February 10th, 2005, 06:25 AM

For each array element string,extract string after : and store it in one more array inside the loop.

ChrisScott · February 10th, 2005, 06:26 AM

Hi Picco,

I would use a regular expression - well worth looking into if you're going to do much in the way of string manipulation. Try this...

Code:

Dim expr: Set expr = New RegExp
expr.Pattern = "[^:]*:([^,]*),?"
expr.Global = True
Dim match, matches
Set matches = expr.Execute(theStr)
For Each match In matches
    response.write "item = " & match.SubMatches(0) & "<br />"
Next
Set matches = Nothing
Set expr = Nothing

HTH,

Chris

crmpicco · February 10th, 2005, 07:49 AM

that works excellent - thank you very much mate

www.crmpicco.co.uk