Cuestión : VBA que parte una línea con un qualifer del seperator y de la cotización de la coma

¿Hola, el
im que juega con esto y canto resolverse cómo cambiarlo de modo que algo entonces usar un apóstrofe ("), utilice una cotización doble el
'< (del ")

Function SplitAdv (strInput) 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 de http://www.experts-exchan =
Exp”)/>objRE.IgnoreCase = True
objRE.Global = True
objRE.Pattern =”, (? ¡= ([^”] * ' [^ '] * ') * (?! [^ ' ] * '))““utiliza un” qualifer
SplitAdv = parten (objRE.Replace (strInput, “\ b”),” \ b ") el
Dim TestString, más arrTest, x

End Function

Sub ()/>TestString = “123, “Bill”, “está oscilando”, “cuáles, aceptable usted son”” 'usuario adecuado que un qualifer
'this del apóstrofe necesita trabajar: ¿el
'TestString = “123, “Bill”, “está oscilando”, “cuál, aceptable usted es usuario del "" correcto 'un qualifer

arrTest = el

For x = 0 de SplitAdv (TestString) al
MsgBox de UBound más arrTest (el x)
Next
End Sub


obviously que podría hacer un simple substituye (TestString, """",” 'el ")
however pondría al día algo la función si es posible?

nb. esto es adentro sobresale el vba
 class= del

Respuesta : VBA que parte una línea con un qualifer del seperator y de la cotización de la coma 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Función SplitAdv (strInput)
'http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21935286.html
objRE dévil
Fijar el objRE = CreateObject (“VBScript.RegExp”)
objRE.IgnoreCase = verdad
objRE.Global = verdad
¿objRE.Pattern = “, (? ¡= (["" del ^] * "" ["" del ^] * "") * (?! [""] del ^ * ""))” 'utiliza “un qualifer
SplitAdv = partió (objRE.Replace (strInput, “\ b”),” \ b ")
Función del final

Testingsplit secundario ()
TestString dévil, más arrTest, x

'TestString = “123, “Bill”, “está oscilando”, “cuáles, aceptable usted son”” 'usuario adecuado al qualifer del apóstrofe
'esto necesita trabajar:
TestString = “123, "" de Bill del "", "" está oscilando el "", "" cuáles, aceptable usted son usuario del """ correcto 'un qualifer de la cotización doble

el más arrTest = SplitAdv (TestString)

Para x = 0 a UBound (más arrTest)
   MsgBox más arrTest (x)
Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us