transformer un fichier texte en table access avec vb6
13 réponses
Michel Voirain
Bonjour à tous,
Je reçois par mail un fichier texte (exporté d'une base access). Avec VB6,
j'aimerai le transformer en base access pour pouvoir le traiter plus
facilement!
Est-ce possible? Une piste!
Merci à tous,
Michel
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors que le format des tables est bon!)).Ton export à toi est nickel! En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou 0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal"; "Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003 00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f) Line Input #f, s t() = Split(s, sep)
' pour virer les guillements superflus, ' inutile avec mon export.
For i = Lbound(t()) to Ubound(t()) t(i) = replace(t(i), chr$(34), chr$(0) ) Next i
le principe est de convertir ce qui doit l'etre. On perd en généricité ici, il y aurait moyen de faire untruc générique avec un petit fichier de config mais ça dépasse un peu le cadre de ce NG.
"Michel Voirain" <michel.voirain@wanadoo.fr> wrote in message
news:ObVv1hRnHHA.3656@TK2MSFTNGP06.phx.gbl...
Bonjour Jean-Marc,
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la
date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors
que le format des tables est bon!)).Ton export à toi est nickel!
En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou
0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal";
"Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004
00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00;
"Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004
00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00;
"Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003
00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de
tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f)
Line Input #f, s
t() = Split(s, sep)
' pour virer les guillements superflus,
' inutile avec mon export.
For i = Lbound(t()) to Ubound(t())
t(i) = replace(t(i), chr$(34), chr$(0) )
Next i
le principe est de convertir ce qui doit l'etre.
On perd en généricité ici, il y aurait moyen de faire
untruc générique avec un petit fichier de config mais
ça dépasse un peu le cadre de ce NG.
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors que le format des tables est bon!)).Ton export à toi est nickel! En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou 0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal"; "Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003 00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f) Line Input #f, s t() = Split(s, sep)
' pour virer les guillements superflus, ' inutile avec mon export.
For i = Lbound(t()) to Ubound(t()) t(i) = replace(t(i), chr$(34), chr$(0) ) Next i
le principe est de convertir ce qui doit l'etre. On perd en généricité ici, il y aurait moyen de faire untruc générique avec un petit fichier de config mais ça dépasse un peu le cadre de ce NG.
Merci jean-Marc, tout marche au poil ! Et surtout cela me permet de décortiquer le code et d'apprendre! Mais je suis sûr que ce n'est pas dernière question sur le liste !
Encore merci,
Michel
"jean-marc" a écrit dans le message de news: 465428a6$0$14242$
"Michel Voirain" wrote in message news:
Bonjour Jean-Marc,
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors que le format des tables est bon!)).Ton export à toi est nickel! En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou 0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal"; "Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003 00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f) Line Input #f, s t() = Split(s, sep)
' pour virer les guillements superflus, ' inutile avec mon export.
For i = Lbound(t()) to Ubound(t()) t(i) = replace(t(i), chr$(34), chr$(0) ) Next i
le principe est de convertir ce qui doit l'etre. On perd en généricité ici, il y aurait moyen de faire untruc générique avec un petit fichier de config mais ça dépasse un peu le cadre de ce NG.
Merci jean-Marc, tout marche au poil ! Et surtout cela me permet de
décortiquer le code et d'apprendre!
Mais je suis sûr que ce n'est pas dernière question sur le liste !
Encore merci,
Michel
"jean-marc" <jean_marc_n2@yahoo.fr.invalid> a écrit dans le message de news:
465428a6$0$14242$ba620e4c@news.skynet.be...
"Michel Voirain" <michel.voirain@wanadoo.fr> wrote in message
news:ObVv1hRnHHA.3656@TK2MSFTNGP06.phx.gbl...
Bonjour Jean-Marc,
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la
date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors
que le format des tables est bon!)).Ton export à toi est nickel!
En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou
0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal";
"Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004
00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00;
"Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004
00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00;
"Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003
00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de
tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f)
Line Input #f, s
t() = Split(s, sep)
' pour virer les guillements superflus,
' inutile avec mon export.
For i = Lbound(t()) to Ubound(t())
t(i) = replace(t(i), chr$(34), chr$(0) )
Next i
le principe est de convertir ce qui doit l'etre.
On perd en généricité ici, il y aurait moyen de faire
untruc générique avec un petit fichier de config mais
ça dépasse un peu le cadre de ce NG.
Merci jean-Marc, tout marche au poil ! Et surtout cela me permet de décortiquer le code et d'apprendre! Mais je suis sûr que ce n'est pas dernière question sur le liste !
Encore merci,
Michel
"jean-marc" a écrit dans le message de news: 465428a6$0$14242$
"Michel Voirain" wrote in message news:
Bonjour Jean-Marc,
Vraiment merci. Petit à petit, je commence à comprendre!
Voici quelques lignes et quelques champs tel que les exporte access (la date est encombrée de 00:00:00 et les entiers sont du style 5,00 !(alors que le format des tables est bon!)).Ton export à toi est nickel! En fait j'ai des champs texte, nombre, date et des cases à cocher(-1 ou 0)
"Centre";"datedujour";"codeenfant";"Nom";"Prénom";"Datenaissance";"QF";"BV2007";"Nbdejours";"Adresse";"Ville";"CodePostal"; "Kerfichant";18/5/2007 00:00:00;1251,00;"PRENEAU";"ANTOINE";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;867,00;"PRENEAU";"MELVIN";13/1/2004 00:00:00;"D";0;5,00;"157 RUE DE BELGIQUE";"LORIENT";56100,00; "Kerfichant";18/5/2007 00:00:00;3209,00;"BALIN";"EMMANUEL";31/7/2003 00:00:00;"E";0;5,00;"14 RUE DES SABLES BLANCS";"LORIENT";56100,00;
Si tu peux m'écrire quelques bout de code, cela m'avancerait!
Et bien sur cette base, ta boucle d'import devient:
' ce qui suit ext un exemple, ca dépend de la vraie structure de tes tables mais ça doit être 99% okay, si pas 100%.
While Not EOF(f) Line Input #f, s t() = Split(s, sep)
' pour virer les guillements superflus, ' inutile avec mon export.
For i = Lbound(t()) to Ubound(t()) t(i) = replace(t(i), chr$(34), chr$(0) ) Next i
le principe est de convertir ce qui doit l'etre. On perd en généricité ici, il y aurait moyen de faire untruc générique avec un petit fichier de config mais ça dépasse un peu le cadre de ce NG.
