Questione : VBA che spacca una linea con un qualifer di seperator e di citazione di virgola

Ciao,
im che giocano con questo e cant risolvere come cambiarlo in modo che piuttosto allora using una singola citazione ("), usi un
'< del

Function SplitAdv (strInput) di doppia citazione (") un href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21935286.html " > objRE del objRE
Set del gramming/Languages/Visual_Basic/Q_21935286.html
Dim del ge.com/Pro di http://www.experts-exchan =
Exp„)/>objRE.IgnoreCase = True
objRE.Global = True
objRE.Pattern =„, (? = ([^„] * ' [^ '] * ') * (?! [^ ' ] * '))““usa„ un qualifer
SplitAdv = spaccano (objRE.Replace (strInput, “\ b„),„ \ b ") il
Dim TestString, più arrTest, il x

End Function

Sub ()/>TestString = “123, “Bill„, “sta oscillando„, “che cosa, giusto voi sono„„ 'utente che di destra un qualifer
'this di singola citazione deve funzionare: il
'TestString = “123, “Bill„, “sta oscillando„, “che cosa, giusto siete utente del giusto "" 'un qualifer

arrTest =

For x = 0 di SplitAdv (TestString) al
MsgBox di UBound più arrTest (x)
Next
End Sub


obviously che potrei fare un semplice sostituisce (TestString, """",„ '")
however piuttosto aggiornerei la funzione se possibile?

nb. ciò è dentro eccelle il vba
class= del

Risposta : VBA che spacca una linea con un qualifer di seperator e di citazione di virgola

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
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à
Altre soluzioni  
 
programming4us programming4us