[VBA-E] modifier un fichier texte avant import

Version imprimable

03/04/2007, 17h14
hka75

[VBA-E] modifier un fichier texte avant import

Bonjour a tous :D

J'aimerai savoir s'il est possible de parcourir un fichier csv à partir d'excel sans pour autant l'importer.

Je m'explique, j'ai un fichier csv qui contient des retours chariot qui me cause des problèmes en import. Je souhaite donc les supprimer avant.

Ex de ligne:

Col1 Col2 ... Col6
_BQ Dupont blablabla
_FI Durand blablabla
blabla
_FZ Toto blablablabla

J'ai bien essayé avec la méthode Open pour supprimer les chr(10) pour les lignes qui ne commence pas par "_" mais celle ci me vide le fichier ?

En definitif je doit avoir un truc du genre

Col1 Col2 ... Col6
_BQ Dupont blablabla
_FI Durand blablablablabla
_FZ Toto blablablabla

Si quelqu'un a une solution :yaisse2:

Merci
03/04/2007, 18h34
Invité

Bonsoir Hka75,

Je pense la méthode Open est la bonne.
Mais à mon avis il faut ouvrir votre fichier en lecture et ouvir un fichier vide en écriture.

Vous affectez les données valides à des variables puis les écrivez dans le nouveau fichier.

Open "c:\xxxx\yyyy.csv" For Input As #1

Open "c:\xxxx\zzzz.csv" For Output As #1

Amicalement.
03/04/2007, 20h08
ouskel'n'or
Un vrai csv ne te poserait pas ce problème. Essaie ça :
Code:

1 2 3 4 5 6 7 8 Sub LectureDunFichierTexte() Open "d:\txt\fichier.csv" For Input As #1 Do While Not EOF(1) Line Input #1, ligne MsgBox ligne Loop Close #1 End Sub
Si ta ligne est trop longue, et que le msgbox t'empêche de voir les coupures, colle-la dans une cellule.
Après tu nous dis
A+

J'ai tenter de supprimer se f... caractére mais rien à faire

j'utilise le code suivant qui balaye la zone, mais ne supprime pas le retour à ligne.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Public Sub ImportTextFile(FName As String, Sep As String)
 
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
 
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
Range("A1").Select
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Close
Open FName For Input Access Read As #1
 
While Not EOF(1)
    Line Input #1, WholeLine
    If Right(WholeLine, 1) <> Sep Then
        WholeLine = WholeLine & Sep
    End If
    ColNdx = SaveColNdx
    Pos = 1
    NextPos = InStr(Pos, WholeLine, Sep)
    While NextPos >= 1
        TempVal = Mid(WholeLine, Pos, NextPos - Pos)
        Cells(RowNdx, ColNdx).Value = TempVal
        Pos = NextPos + 1
        ColNdx = ColNdx + 1
        Z = Cells(RowNdx, 1).Value
        If Left(Z, 1) <> "_" Or Left(Z, 2) <> "AS" Then
        A = Replace(Z, chr(10), "|")
        End If
 
        NextPos = InStr(Pos, WholeLine, Sep)
 
    Wend
    RowNdx = RowNdx + 1
Wend
 
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
 
End Sub

J'essai de remplacer le retour par un caractére bidon ( "|"), histoire de voir si ça fonctionne.

Help :cry:

03/04/2007, 21h05
ouskel'n'or

Tu as essayé ce que je t'ai dit ?
03/04/2007, 21h23
hka75

Oui, j'ai fait le test, mais je ne vois pas où tu veut en venir.:D

Ton code retourne l'intégralité de mon fichier csv, ligne par ligne.

Je me suis peut etre mal exprimé mais ce que je souhaite faire , c'est le traiter avant import .:)

Alors je me suis mal exprimé. Ce que j'aimerais savoir c'est si tu as, comme dans ton exemple
Code:

1 2 3 4 5 Col1 Col2 Col6 _BQ Dupont blablabla _FI Durand blablabla blabla _FZ Toto blablablabla
ou si tu as
Code:

1 2 3 4 Col1 Col2 Col6 _BQ Dupont blablabla _FI Durand blablablablabla _FZ Toto blablablabla
Et ça, pour le savoir, je te demandais d'insérer tes lignes dans une feuille de calculs Excel, juste pour voir. Si la totalité de ta ligne "Durant" se trouve dans la 1ère cellule de la feuille, alors ton problème est ailleurs.
Code:

1 2 3 4 5 6 7 8 9 10 Sub LectureDunFichierTexte() Dim i Open "d:\txt\fichier.csv" For Input As #1 Do While Not EOF(1) Line Input #1, ligne i = i+1 Cells(i,1).value = ligne Loop Close #1 End Sub
Pourquoi je te demande ça ? Parce que je n'ai jamais vu de csv faire ce que tu as observé.
Un fois le test fait, j'ai une solution si tu as effectivement un caractère indésirable mais comme je ne la considère pas comme infaillible, je préfèrerais que le problème vienne "d'ailleurs"
Elle consisterait, cette solution, à vérifier le nombre de mots dans une ligne et si ce nombre = 1, alors le mot va sur la ligne du dessus... Un bricollage !
Retirer les sauts de ligne en est un autre car sans saut de ligne, tu as des lignes qui font tout le fichier :(
A+

04/04/2007, 12h58
hka75

Bonjour,

En fait, j'ai le problème suivant:

Col1 Col2 Col6
_BQ Dupont blablabla
_FI Durand blablabla
blabla
_FZ

Ce que je cherche à faire, c'est de remonter sur la ligne du dessus les commentaires qui ne commence pas par "_".

L'idée consiste à traiter le fichier à l'aide d'excel, et de l'importer ensuite.

merci beaucoup pour vos réponses.:D

Alors c'est simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LectureDunFichierTexte()
Dim i
    Open "d:\txt\fichier.csv" For Input As #1
    Do While Not EOF(1)
        Line Input #1, ligne
        if instr(ligne,"_") = 1 then
            i = i + 1
            Cells(i,1).value = ligne
         else
            Cells(i,1).value = Cells(i,1).value & ligne
        endif            
    Loop
    Close #1
End Sub

A+

NB - Si tu veux créer un tableau intermédiaire, rien ne t'en empêche, le principe reste le même.

04/04/2007, 20h19
hka75

Merci pour ta réponse, :D

je vais faire les modifs pour récuperer l'ensemble des colonnes.

Pour ça le plus pratique est de passer par un tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim Tableau()
    Do While Not EOF(1)
        Line Input #1, ligne
        if instr(ligne,"_") = 1 then
            i = i + 1
            Redim Preserve Tableau(i)
            Tableau(i) = ligne
         else
            Tableau(i) = Tableau(i) & ligne
        endif            
    Loop

Et pour placer les données dans les colonnes

Code:

1
2
3
4
5
6
For NoLigne = 1 to Ubound(Tableau)
    LesColonnes = Split(Tableau(NoLigne)," ") 'séparateur Espace
    For NoCol = 0 tu Ubound(LesColonnes)
         Cells(NoLigne, NoCol+1).value = LesColonnes(NoCol)
    Next
Next

Mais tu as peut-être pensé à une autre méthode ;)

04/04/2007, 21h13
hka75

je passe également par un tableau.

Merci encore pour le coup de main et pour les précisions :king: