balayer un .txtRésolu

Question

Bonjour !

je développe d'habitude en VBA et là je dois faire un bout de programme en VBS ( avec le notepad ) alors je galère complètement....

Je voudrais juste créer un petit prog pour récupérer des données dans un .txt et les exporter sous Excel...le pbm c'est que je ne sais pas comment balayer ce fichier pour récupérer uniquement les valeurs qui m'intéressent...Ou alors découper le fichier .txt de manière à pouvoir le réouvrir sous Excel?

Si qqun pouvait me venir en aide..Merci d'avance!

cs_ITALIA · Accepted Answer

Pour balayer un fichier TXt :

Open "C:\MonText.txt" For Input As #1
   Do Until EOF(1)
        Line Input #1, ligne
        ' ici je stock la valeur ligne dans la variable string Ligne
    Loop
Close #1

It@li@

SofieV · Answer

Merci, c'est déjà un bon début pour moi!

En fait ce que je comprends pas c'est comment je fais un test sur le contenu du fichier? Par ex.  si je retrouve "nodes" ds mon .txt alors je copie les 50 lignes suivantes sous Excel?

cs_ITALIA · Answer

Open "C:\MonText.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ligne

If (1,Ligne,"nodes")<>0 then ' si "nodes" trouvé dans une Ligne
 ' Copie de ta Ligne
End if

Loop
Close #1

It@li@

SofieV · Answer

merci bcp!

cs_rene38 · Answer

Bonjour
petite correction :
If Instr(1,Ligne,"nodes")<>0 then

cs_ITALIA · Answer

Oups une pitite erreur !!!!
n'oublie pas d'accepter une ou plusieurs reponses !!!!

It@li@

Balayer un .txt

6 réponses

Discussions similaires