Discussion :

[willytito]

Bonjour

J'utilise Access 2003
Je voudrais supprimer les lignes blances au début de mon fichier texte
Dans un 1er temps, tester s'il existe des lignes blanches
En second lieu les supprimer
Ligne blache (Retour chariot)

Si vous pouvez m'aider !
Merci
Willy

[PhilC]

Bonsoir,
Un exemple de code qui va supprimer les enregistrements vides de ton fichier texte.

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
Sub EffaceLigne()
Dim Enrgt As String
 
Open "c:\Test.txt" For Input As #1
Open "c:\Resultat.txt" For Output As #2
 
While Not EOF(1)
    Input #1, Enrgt
    If Not Left(Enrgt, 1) = "" Then
        Print #2, Enrgt
    End If
Wend
 
Close #1
Close #2
 
End Sub

[willytito]

Tout d'abord, merci

Est-il possible de supprimer la ligne blanche sans générer un nouveau nom de fichier.

Plus précisement, voici mon problème
J'utilise la fonction (DoCmd.TransferText) pour importer les données d'un fichier texte vers ma table Access

Mais mon fichier se présente de la manière suivante :
1ère ligne : Une ligne blanche
2ème ligne : mes entêtes de colonne
A partir de la 3ème ligne : Mes enregistrements

La fonction (DoCmd.TransferText) plante à cause de la 1ère ligne blanche
Je supprime cettte ligne manuellemnt et je voudrais l'automatiser
Ou permettre la lecture à partir de la 2ème ligne

Willy

[willytito]

J'ai utilisé la technique que vous m'avez proposé
C'est à dire, recopier le fichier dans un nouveau fichier en excluant la 1ère ligne, ça fonctionne
Mais j'ai un nouveau souci
Dans les données à transférer j'ai une (virgule) et celà pose un problème à la fonction (Input #)
Pour Input#, ma ligne s'arrete à la virgule
Tout ce qui est après la (Virgule) passe à la ligne suivante

Si quelqu'un a une idée pour contourner ce problème

Merci
Willy

[willytito]

J'ai pu résoudre le problème de la (Virgule)
Il suffisait de rajouter Line devant Input#
Line Input#, Variable
Et ça fonctionne

Merci pour l'idée de recopie
Willy