Sujet Précédent Sujet Suivant

Extraction des information d'un fichier

pegguy - 26 juil. 2001 à 10:49
Ftpman Messages postés 12 Date d'inscription lundi 21 janvier 2002 Statut Membre Dernière intervention 6 février 2002 - 30 janv. 2002 à 23:40

Private Sub Form_Load()
'0n Error Resume Next 'Les erreurs sont ignorees'
Open "c:\it\stat\STAT01-05 2001\stat26e.txt" For Input As #1
Open "c:\it\stat\STAT01-05 2001\stat26e1.txt" For Output As #2
Dim i As Integer
Dim texte, texte2, texte3 As String
Line Input #1, texte
If Len(texte) <> 0 Then
While Not EOF(1)
Line Input #1, texte
texte = Trim(texte)
texte = Mid$(texte, 6, Len(texte))
texte = texte + Chr$(13) + Chr$(10)
Print #2, texte
Wend
'End If
Close #1
Close #2
MsgBox ("Operation terminee")
End Sub

A voir également:

Extraction des information d'un fichier
Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
Fichier json - Conseils pratiques -Javascript
Extraction pdf - Conseils pratiques -PHP
Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET

1 réponse

Réponse 1 / 1

Ftpman Messages postés 12 Date d'inscription lundi 21 janvier 2002 Statut Membre Dernière intervention 6 février 2002
30 janv. 2002 à 23:40

comment on extrait toute les données d'un fichier txt pour aller les enregistrer dans un autres fichier?

Discussions similaires

logiciel pour lire un fichier .class

Ouvrir un fichier java

Lire informations fichier class dans un programme java

Extraire une donnée d'une cellule excel avec python

Lire classeur excel cellule par cellule