Re: Split

Question

Bonjour &#224; Tous,

C'est encore au sujet du Split. Comme je l'avais d&#233;j&#224; pr&#233;ciser, lorsque j'effectue la lecture ligne par ligne de mon fichier csv, je souhaitais r&#233;cup&#233;rer uniquement les informations qui m'int&#233;resse ppour les enregistre dans ma base de donn&#233;e.

Exemple:
Fichier CSV ouvert avec bloc note
"EndDate;";"12/05/2006  13:25"
"MachEff;";"1.00"
"YarnEff;";"1.00"
....

Et voici le bout de code:
'Ouverture du fichier
        Set tf = fs.OpenTextFile(App.Path + "\ShiftReport.csv", 1)
        While tf.AtEndOfStream = False
            strBuffer = tf.ReadLine
            vContener = Split(strBuffer, ";")
// Est-ce possible de rajouter un select Case ici???????????
Si oui cela ne serait-il pas trop lourd? Sinon pouvez-vous me proposer une solution

            vValue = vContener(UBound(vContener))
        Wend
        tf.Close

Mon souci aujourd'hui c'est que mon fichier comporte 18 lignes et dans la table o&#249; je vais enregistrer les informations qui m'interessent dans la table de ma base de donn&#233;e, j'ai attribuer les m&#234;me nom: EndDate, MachEff, YarnEff.....
Ce que je souhaite faire c'est:
Si le d&#233;but de ma chaine "vContener" = par exemple &#224; EndDate alors j'enregistre la fin de ma chaine "vValue" dans le EndDate de ma table de ma base de donn&#233;e.
Je comptais faire un Select avec 18 Case mais ???????????????????
Je ne sais vraiment pas comment m'y prendre. Pouvez-vous m'aider s'il vous plait. Merci d'avance

acecel · Answer

Essaye quelque chose du genre :

vContener = Split(strBuffer, Chr(34) & ";" & Chr(34) )

MonRecordset(vContener(0)).Value = vConteneur(1)

Re: Split

1 réponse

Discussions similaires