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..