Question : VBA dédoublant une ligne avec un qualifer de seperator et de citation de virgule

Bonjour, le
im jouant avec ceci et la pente établir comment la changer de sorte que plutôt puis using une apostrophe ("), j'emploie un
'< du

Function SplitAdv (strInput) de guillemets (") un href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21935286.html " > objRE de l'objRE
Set du gramming/Languages/Visual_Basic/Q_21935286.html
Dim du ge.com/Pro de http://www.experts-exchan =
Exp »)/>objRE.IgnoreCase = True
objRE.Global = True
objRE.Pattern = », (? = ([^ »] * ' [^ '] * ') * (? ! [^ ' ] * '))« « emploie un » qualifer
SplitAdv = dédoublent (objRE.Replace (strInput, « \ b »), » \ b ") le
Dim TestString, arrTest, le x

End Function

Sub ()/>TestString = « 123, « Bill », « bascule », « ce qui, correct vous sont » » 'utilisateur droit qu'un qualifer
'this d'apostrophe doit fonctionner : le
'TestString = « 123, « Bill », « bascule », « ce que, correct vous êtes utilisateur de bon "" 'un qualifer

arrTest =

For X = 0 de SplitAdv (TestString) au
MsgBox d'UBound arrTest est-ce que (le x)
Next
End Sub


obviously que je pourrais faire un simple remplacent (TestString, """", » 'le ")
however je mettrais à jour plutôt la fonction si possible ?

nb. c'est excellent dedans le vba
class= de

Réponse : VBA dédoublant une ligne avec un qualifer de seperator et de citation de virgule

1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
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é
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us