Discussion :

[-={-_-}=-]

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 Ya pas un autre moyen?

Pouvez-vous m'aider svp.

Merci

[Godzestla]

Bonjour à tous,

Je suis tombé sur un post d'un autre forum où la personne conseillait de changer le delimiteur direct dans le registre 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.

[-={-_-}=-]

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?

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cafeine]

Hello,

une solution ici :
http://excel.developpez.com/sources/...mportRecordset