Fonction SplitAdv (strInput)
'http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21935286.html
Faible objRE
Placer l'objRE = le CreateObject (« VBScript.RegExp »)
objRE.IgnoreCase = rectifient
objRE.Global = rectifient
objRE.Pattern = « , (? = (["" de ^] * "" ["" de ^] * "") * (? ! ["" de ^] * "")) » 'emploie « un qualifer
SplitAdv = s'est dédoublé (objRE.Replace (strInput, « \ b »), » \ b ")
Fonction de fin
Testingsplit secondaire ()
Faible TestString, arrTest, x
'TestString = « 123, « Bill », « bascule », « ce qui, correct vous sont » » 'utilisateur droit par qualifer d'apostrophe
'ceci doit fonctionner :
TestString = « 123, "" de Bill de "", "" bascule le "", "" ce qui, correct vous sont utilisateur de bon """ 'un qualifer de guillemets
arrTest = SplitAdv (TestString)
Pour x = 0 à UBound (arrTest)
MsgBox arrTest (x)
Après
Sous-marin d'extrémité
|