Funzione SplitAdv (strInput)
'http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21935286.html
objRE fioco
Regolare il objRE = CreateObject (“VBScript.RegExp„)
objRE.IgnoreCase = allineano
objRE.Global = allineano
objRE.Pattern = “, (? = (["" del ^] * "" ["" del ^] * "") * (?! [""] del ^ * ""))„ 'usa “un qualifer
SplitAdv = ha spaccato (objRE.Replace (strInput, “\ b„),„ \ b ")
Funzione di conclusione
Testingsplit secondario ()
TestString fioco, più arrTest, x
'TestString = “123, “Bill„, “sta oscillando„, “che cosa, giusto voi sono„„ 'utente di destra un il qualifer di singola citazione
'questo deve funzionare:
TestString = “123, "" del Bill del "", "" sta oscillando il "", "" che cosa, giusto voi sono utente del giusto """ 'un qualifer di doppia citazione
il più arrTest = SplitAdv (TestString)
Per x = 0 a UBound (più arrTest)
MsgBox più arrTest (x)
Dopo
Sommergibile dell'estremità
|