comment mette un fichier SQL dans un Tableau ?Résolu

Question

Bonjour

Voila j'ai un fichier Map.sql et je voudrais mettre son contenu dans Tableau.

Le fichier se presente comme sa :

INSERT INTO `x_world` VALUES (3579,250,250,3,29124,'Residence &#224; Rome',9347,'hezekiel',492,'Tget',117);

Avec une ligne comme sa je n'ai pas de soucis tous ce fait bien a chaque virgule il cr&#233;e une ligne dans le Tableau
 Ce qui donne
INSERT INTO `x_world` VALUES (3579
250
250
3
29124
'Residence &#224; Rome'
9347
'hezekiel'
492
'Tget'
117);

Par contre j'ai un soucis avec une ligne comme ca
INSERT INTO `x_world` VALUES (38103,-42,182,1,27090,'Zaak,shire',27093,'Zaak',0,'dff',335);

Parce qu'il me coupe en deux cette partie 'Zaak,shire' parce qu'il y a une virgule dans le nom
Il me fait les ligne de gaucheet il me faudrais celle de droite

INSERT INTO `x_world` VALUES (38103       INSERT INTO `x_world` VALUES (38103      
-42                                                                     -42
182                                                                     182
1                                                                          1
27090                                                                 27090
'Zaak                                                                  'Zaak,shire'
shire'                                                                   27093  
27093                                                                  'Zaak'
'Zaak'                                                                  0
0                                                                        'dff'
'dff'                                                                     335);
335);

voici le code que j'utilise  :
Dim Tableau() As String
Dim Nbr
Nbr = 1
Open App.Path & "	xt\map.sql" For Input As #1
Do While Not EOF(1)
Input #1, macha&#238;ne
ReDim Preserve Tableau(Nbr)
Tableau(Nbr) = macha&#238;ne
Nbr = Nbr + 1


Loop
Close #1

Si quelqu'un pouvais m'aider ce serais simpas

Merci

econs · Accepted Answer

Split ne prend qu'un seul s&#233;parateur pour d&#233;couper une chaine. Si tu en veux deux, il faut cr&#233;er une fonction perso.







Private Function monSplit(sString As String, sSep1 As String, sSep2 As String) As String()

Dim t() As String

Dim ll As Long

Dim lOldIndex As Long

Dim newWord As String

Dim maxIndex As Long

Dim sTemp As String



    maxIndex = 0

    ReDim t(0)

    For ll = 1 To Len(sString)

        sTemp = Mid$(sString, ll, 1)

        Select Case sTemp

            Case sSep1, sSep2:

               
newWord = Mid$(sString, lOldIndex + 1, ll - lOldIndex - 1)

                lOldIndex = ll

                maxIndex = maxIndex + 1

                ReDim Preserve t(maxIndex)

                t(maxIndex) = newWord

        End Select

    Next ll

    If ll = Len(sString) + 1 Then

        newWord = Mid$(sString, lOldIndex + 1, ll - lOldIndex - 1)

        lOldIndex = ll

        maxIndex = maxIndex + 1

        ReDim Preserve t(maxIndex)

        t(maxIndex) = newWord

    End If

    

monSplit = t

End Function







'    Procedure pour tester le r&#233;sultat de monSplit :



Private Sub toto()

Dim tablo() As String

Dim s As String



    s = "qsdfqds,fdsfdsf;dsf,dsfq;sdfq;sdfsdf,ze"

    tablo = monSplit(s, ",", ";")

    

    For ll = LBound(tablo) To UBound(tablo)

        sTemp = sTemp & tablo(ll) & " "

    Next ll

    MsgBox sTemp

    

End Sub








Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Salut,







Il faut parcourir la chaine de caract&#232;res de d&#233;part, caract&#232;re par caract&#232;re.

D&#232;s que tu rencontres une apostrophe, tu consid&#232;res que tu es dans une
chaine de caract&#232;re. D&#232;s que tu en rencontres une autre, tu consid&#232;res
que tu es sorti de ta chaine de caract&#232;res.

Il doit toujours y avoir un nombre pair d'apostrophes dans ta syntaxe SQL.



Dim isInsideString As Boolean

Dim bModif As Boolean



isInsideString=False

bModif = False

sChaine ="INSERT INTO `x_world` VALUES (38103,-42,182,1,27090,'Zaak,shire',27093,'Zaak',0,'dff',335);"

For ll=1 to Len(sChaine)

    sTemp = Mid$(sChaine,ll,1)

    Select Case sTemp

        Case "'":

            isInsideString = Not(isInsideString)

        Case ",":

            If isInsideString Then

             '  
On remplace cette virgule par autre chose. Par ex : "@"

             sChaine =
Left$(sChaine,ll-1) & "@" & Right$(sChaine,Len(sChaine)-ll)

                bModif = True

            End If

    End Select

Next ll



A la sortie, ta chaine vaut :

INSERT INTO `x_world` VALUES (38103,-42,182,1,27090,'Zaak@shire',27093,'Zaak',0,'dff',335);



Tu fais le split qui va bien avec la virgule.

Tu obtiens alors le tableau suivant :

INSERT INTO `x_world` VALUES (38103

-42

182

1

27090

'Zaak@shire'

27093

'Zaak'

0

'df'

335);



Si bModif = True, alors il y a au moins un champ qui a &#233;t&#233; transform&#233;. Y'a plus qu'&#224; transformer le @ en virgule.





Tu peux utiliser autre chose que l'@ si tes champs sont cens&#233;s en contenir ... ( T'as le choix : # , % , &#181; , &#167; , ? , ... )




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

davidmaillard · Answer

Je te remercie de ta reponce

Pourrait tu me dire comment je peut faire pour faire un Split avec deux choix de separateur


Car je doit slipter la virgule mais aussi le point virgule


Merci

davidmaillard · Answer

Je te remercie

Comment mette un fichier SQL dans un Tableau ?

4 réponses

Discussions similaires