在VBScript中分割一個帶有特殊字符的字符串

Question

我有一個帶有多個特殊字符的字符串，我希望它用特殊字符分割。

例子：

s = "apple+onion*abc/ki&jk" 

輸出：

apple 
onion 
abc 
ki 
jk 

Answer 1

做的另一種方式，這只是稍微改變了正則表達式

strPhrase = "apple+onion*abc/ki&jk" 

Set objRegEx = CreateObject("vbscript.RegExp") 
objRegEx.IgnoreCase = True 
objRegEx.Global = True 
objRegEx.Pattern = "[^a-z0-9]" 
ReplacedText = objRegEx.Replace(strPhrase, " ") 

objArr = Split(ReplacedText) 
For i = 0 To UBound(objArr) 
    If Trim(objArr(i)) <> "" Then 
    Debug.Print objArr(i) 
    End If 
Next 

Set objRegEx = Nothing 

Answer 2

你可以把它像這樣：

Dim s : s = "apple+onion*abc/ki&jk" 
Dim r : Set r = New RegExp 
r.Global = True 
r.Pattern = "\+|\*|&|®|@|/" 
NewString = r.Replace(s,"_") 
wscript.echo NewString 
Tab = Split(NewString,"_") 
For i=LBound(Tab) to Ubound(Tab) 
    Msg = Msg & Tab(i) & vbCrlf 
Next 
wscript.echo Msg 

Answer 3

這也給拆分字符串的方法之一..

Dim s:s="apple+onion*abc/ki&jk" 

ReDim words(-1) 


    For Each line In Split(s,"+") 
    For Each linetwo In Split(line,"*") 
    For Each linethree In Split(linetwo,"/") 

    For Each linefour In Split(linethree,"&") 

     ReDim Preserve words(UBound(words)+1) 
     words(UBound(words))=linefour 

    Next 

    Next 
    Next 
    Next 


for i=0 to 4 step 1 
    Msgbox(words(i)) 
Next