[E-02] Requetes SQL sur fichier .txt delimité par ";"

Version imprimable

05/11/2008, 14h08
-={-_-}=-

[E-02] Requetes SQL sur fichier .txt delimité par ";"

Bonjour à tous,

J'ai un fichier .txt de plus de 300 000 lignes. Le delimiteur est un ";".
J'ai essayé de trouver comment changer le delimiteur en cherchant une propiété quand je declare ma base en ADODB ou en DAO : impossible.

J'ai fait des recherches et j'ai rien trouvé.
Je suis tombé sur un post d'un autre forum où la personne conseillait de changer le delimiteur direct dans le registre 8O Ya pas un autre moyen?

Pouvez-vous m'aider svp.

Merci
05/11/2008, 14h14
Godzestla

Citation:

Envoyé par -={-_-}=-

Bonjour à tous,

Je suis tombé sur un post d'un autre forum où la personne conseillait de changer le delimiteur direct dans le registre 8O Ya pas un autre moyen?

Faire un find replace sur ton fichier texte avant l'import.
J'ai déjà vu une solution sur le forum très très rapide aux dire du créateur.
05/11/2008, 14h19
-={-_-}=-

Sur 300 000 lignes ca plante quand je fais un CTRL+H à la main. Trop de données surement.
Tu penses que ca change quelque chose si j'ouvre notepad avec ma macro que je demande à ma macro de faire un find/replace?
05/11/2008, 14h23
Godzestla

non,
je voulais parler d'un code vba qui fait cela, je pense même que cela venait de ucfoutu.

Sinon, je sais le faire avec line-input en utilisant un fichier input et un temporaire en output puis replace d'un par l'autre, mais il parait qu'il y a plus simple.

laisse moi-chercher un peu svp.
05/11/2008, 14h40
Godzestla

Une première solution

une autre meilleure ici

Merci beacoup,
Ca marche bien
Dans ton post précédent, tu m'avais donné l'idée donc j'ai fais un code et qui tourne en plus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub ChangerSemicolonEnComma()
    Open "P:\o.txt" For Input As #1 'ouvre le fichier données brutes
    Open "P:\titi.txt" For Append As #2 'ouvre un fichier pour les données retraitées
    Do While Not EOF(1)                             'Tant qu'on est pas à la fin du fichier.
        Line Input #1, ligne ' Lecture de la ligne à modifier
 
        'On s'assure qu'il n'y ait pas de virgules (exemple nombres)
        lignetemp = ""
        sp = Split(ligne, ",")
        For i = 0 To UBound(sp) - 1
            lignetemp = lignetemp & sp(i) & "."
        Next i
        lignetemp = lignetemp & sp(UBound(sp))
 
        'On change le delimiter du fichier source en ","
        sp = Split(lignetemp, ";")
        lignetemp = ""
        For i = 0 To UBound(sp) - 1
            lignetemp = lignetemp & sp(i) & ","
        Next i
        lignetemp = lignetemp & sp(UBound(sp))
 
        'on ecrit la ligne retraitée dans le fichier des données retraitées
        Print #2, lignetemp
    Loop
 
    'on ferme les deux fichiers apres traitement
    Close #2
    Close #1
End Sub

Mon Code est bien sur modifiable notament si ton delimiter change tu peux faire avec en input le delimiteur en question de ta base source
tu peux également rajouter un second input si choisir le delimiteur ouput
mais c'est inutile si comme moi tu veux faire du SQL sur le fichier (delimiteur :",")

De plus, les perfs sont vraiment acceptables vu la taille du fichier (<10s)

Merci pour tt

05/11/2008, 15h28
cafeine

Hello,

une solution ici :
http://excel.developpez.com/sources/...mportRecordset
05/11/2008, 15h42
-={-_-}=-
"Appliquer un SQL sur un fichier Texte" ne marche pas pour mon cas.
Le delimiteur doit être "," dans un fichier txt pour que les requetes SQL fonctionnent.

Pareil pour ADODB :
Code:

1 2 3 4 Set Conn = New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "P:\" & ";" & _ "extended properties=""Text;CharacterSet=ANSI;HDR=YES;DMT=Delimited;"""
Le souci pour DAO et ADODB c'est que pour un fichier texte c'est très rigide : le delimiteur doit etre ","

Exemple avec DAO et ADODB :
Ta ligne est "Pierre;38;Employé"
si tu fais
Code:

1 2 3 4 5 6 7 Set Rs = New ADODB.Recordset xSql = "SELECT * FROM [o.txt]" Rs.Open xSql, Conn toto = Rs.Fields.Item(0).Value
toto sera égal à "Pierre;38;Employé"

Alors que si tu utilises les macros de conversion (";" -> ",") avant de loader ta connection, toto sera égal à Pierre