Split a string with multiple delimiters in VBScript

[nandha]

How can i split the below string

Input: My?name/isNandha-welcome^
expected output:
My 
Name
isNandha
welcome

Thanks

[Ankur]

This is a good question.

I am sure there can be multiple way to solve this. Here is one of the solutions I created for you.  You just need to call ALL the delimiters you use in the string and the custom SplitExtended function will do the rest.

Essentially I am using the built in Replace function to run n times where n is the number of delimiters you supply in the array.

Code:

Function SplitExtended (sPhraseFn, aDelimiters)
'Find total number of delimiters. Remember ubound starts from 0 index    
iNoOfDelimiters = UBound(aDelimiters)

'Replace all your delimiters with space      
For Iterator = 0 To iNoOfDelimiters
sPhraseFn = Replace (sPhraseFn, aDelimiters(Iterator)," ")    
Next    

SplitExtended = sPhraseFn
End Function

sPhrase = "My?name/isNandha-welcome^"
sPhraseClean = SplitExtended(sPhrase, Array("?","/","-","^"))
msgbox sPhraseClean

[nandha]

This is a good question.

I am sure there can be multiple way to solve this. Here is one of the solutions I created for you.  You just need to call ALL the delimiters you use in the string and the custom SplitExtended function will do the rest.

Essentially I am using the built in Replace function to run n times where n is the number of delimiters you supply in the array.

Code:

Function SplitExtended (sPhraseFn, aDelimiters)
'Find total number of delimiters. Remember ubound starts from 0 index    
iNoOfDelimiters = UBound(aDelimiters)

'Replace all your delimiters with space      
For Iterator = 0 To iNoOfDelimiters
sPhraseFn = Replace (sPhraseFn, aDelimiters(Iterator)," ")    
Next    

SplitExtended = sPhraseFn
End Function

sPhrase = "My?name/isNandha-welcome^"
sPhraseClean = SplitExtended(sPhrase, Array("?","/","-","^"))
msgbox sPhraseClean

Wow!!!

thanks alot Ankur..