Epurer un fichier texte vers un autre

Question

Bonjour,
N'étant pas un pro de VB, je cherche un exemple à adaptater un pg existant ou une idée de code pour réaliser ce programme.

Objet : Exporter d'un fichier texte (A), tous les enregistrements qui ont de
de la position 5 à 7, la chaine de cractères Z99

Principe de programme :

Ouvrir un fichier texte A (1 champ par ligne)
Lire le premier enregistrement
    Si de la position 5 à 7, il existe le mot Z99, exporter cet
enregistrement dans un nouveau fichier (B) puis passer au suivant
Sinon   passer à l'enregistrement suivant
    Si de la position 5 à 7, il existe le mot Z99, exporter cet
enregistrement dans le fichier B (Append)
et ainsi de suite ...
Fermer les deux fichiers
Si ce problème se poser sous excel cela serait simple car je maitrise VBA
mais avec VB, j'ai besoin d'idées. Je pense pouvoir par la suite adapter le
code éventuellement fourni.
D'avance merci

cs_KifKif · Answer

KIfKif
Private Sub Form_Load()
Dim Dat$
Open "fichA" For Input As 1
Open "fichB" For Append As 2
While Not EOF(1)
Line Input #1, Dat$
da$ = UCase(Mid$(Dat$, 5, 3))
If da$ = "Z99" Then Print #2, Dat$
da$ = ""
Wend
Close
End Sub

Il y a sans doute mieux mais ceci fonctionne bien

à+
 :)

Epurer un fichier texte vers un autre

1 réponse

Discussions similaires