Modifier un fichier texte
gogofre
Messages postés
2
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2005
-
28 juil. 2005 à 13:45
gogofre Messages postés 2 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 29 juillet 2005 - 29 juil. 2005 à 13:10
gogofre Messages postés 2 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 29 juillet 2005 - 29 juil. 2005 à 13:10
A voir également:
- Modifier un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Souligner texte illustrator - Forum Graphisme/design
- Bug DXF DXW avec illustrator - Forum Graphisme/design
2 réponses
mythic_kruger
Messages postés
241
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005
29 juil. 2005 à 09:23
29 juil. 2005 à 09:23
Qu'est-ce que tu penses de ça (en 5 minutes)
Sur un formulaire mets 1 boutton, et 2 gros textbox avec propriété MultiLine sur true.
Option Explicit
Private Sub Command1_Click()
'Ouvre le fichier ligne par ligne et se sert d'un flag pour déterminer
's'il s'agit de la ligne 0, 1, ou une autre.
'Text1 affiche le fichier tel qu'il est
'Text2 affiche le texte après transformation
Dim flag As Byte, L As String, s As String
Open App.Path & "\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, L
Text1 = Text1 & L & vbCrLf
If flag = 0 Then
s = s & Replace(L, ",", ", ") & vbCrLf
flag = 1
Else
If flag = 1 Then
s = s & Replace(L, ",", "") & vbCrLf
Else
s = s & L & vbCrLf
End If
End If
Loop
Close #1
Text2 = Left(s, Len(s) - 2)
End Sub
Sur un formulaire mets 1 boutton, et 2 gros textbox avec propriété MultiLine sur true.
Option Explicit
Private Sub Command1_Click()
'Ouvre le fichier ligne par ligne et se sert d'un flag pour déterminer
's'il s'agit de la ligne 0, 1, ou une autre.
'Text1 affiche le fichier tel qu'il est
'Text2 affiche le texte après transformation
Dim flag As Byte, L As String, s As String
Open App.Path & "\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, L
Text1 = Text1 & L & vbCrLf
If flag = 0 Then
s = s & Replace(L, ",", ", ") & vbCrLf
flag = 1
Else
If flag = 1 Then
s = s & Replace(L, ",", "") & vbCrLf
Else
s = s & L & vbCrLf
End If
End If
Loop
Close #1
Text2 = Left(s, Len(s) - 2)
End Sub
gogofre
Messages postés
2
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2005
29 juil. 2005 à 13:10
29 juil. 2005 à 13:10
Merci bien,
C'est tres sympa, je vais essayer de me débrouiller avec ca.
C'est tres sympa, je vais essayer de me débrouiller avec ca.