Pbl avec remplacement de chaîne
TP
-
8 mars 2001 à 15:24
AlexLG Messages postés 9 Date d'inscription vendredi 24 janvier 2003 Statut Membre Dernière intervention 9 août 2004 - 5 juin 2003 à 22:26
AlexLG Messages postés 9 Date d'inscription vendredi 24 janvier 2003 Statut Membre Dernière intervention 9 août 2004 - 5 juin 2003 à 22:26
A voir également:
- Pbl avec remplacement de chaîne
- Vba longueur chaine ✓ - Forum Visual Basic
- Parcourir une chaine de caractère en python - Forum Python
- Longueur d une chaine de caractere ✓ - Forum VB.NET
- Longueur maximale string ✓ - Forum Visual Basic 6
- Chaine de caractère ✓ - Forum Python
2 réponses
Un exemple parmis plusieurs autres :
Private Sub Command1_Click()
Dim Chaine As String
Dim Temp As String
Dim lStart As Long
Dim lLength As Long
Dim lFile As Long
Dim Found As Boolean
Found = False
On Error Resume Next
lFile = FreeFile
Open "C:Mon Fichier.txt" For Input As #lFile
Do While Not EOF(lFile)
Line Input #lFile, Temp
lStart = InStr(1, Temp, "Chaine Rechercher")
If (lStart <> 0 And Found = False) Then
lLength = Len("Chaine Rechercher")
Chaine = Chaine & Mid$(Temp, 1, lStart) & "Nouvelle Chaine" & Mid$(Temp, lStart + lLength) & vbCrLf
Found = True
Else
Chaine = Chaine & Temp & vbCrLf
End If
Loop
Close #lFile
lFile = FreeFile
Open "C:Mon Fichier.txt" For Output As #lFile
Print #lFile, Chaine;
Close #lFile
End Sub
Private Sub Command1_Click()
Dim Chaine As String
Dim Temp As String
Dim lStart As Long
Dim lLength As Long
Dim lFile As Long
Dim Found As Boolean
Found = False
On Error Resume Next
lFile = FreeFile
Open "C:Mon Fichier.txt" For Input As #lFile
Do While Not EOF(lFile)
Line Input #lFile, Temp
lStart = InStr(1, Temp, "Chaine Rechercher")
If (lStart <> 0 And Found = False) Then
lLength = Len("Chaine Rechercher")
Chaine = Chaine & Mid$(Temp, 1, lStart) & "Nouvelle Chaine" & Mid$(Temp, lStart + lLength) & vbCrLf
Found = True
Else
Chaine = Chaine & Temp & vbCrLf
End If
Loop
Close #lFile
lFile = FreeFile
Open "C:Mon Fichier.txt" For Output As #lFile
Print #lFile, Chaine;
Close #lFile
End Sub
AlexLG
Messages postés
9
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
9 août 2004
5 juin 2003 à 22:26
5 juin 2003 à 22:26
J'i trouvé une petite erreur dans ton code, voici la correction (il manquait -1 sur la fonction mid) :
@ +,
AlexLG
Private Sub Command1_Click()
Dim Chaine As String
Dim Temp As String
Dim lStart As Long
Dim lLength As Long
Dim lFile As Long
Dim Found As Boolean
Found = False
On Error Resume Next
lFile = FreeFile
Open "C:Mon Fichier.txt" For Input As #lFile
Do While Not EOF(lFile)
Line Input #lFile, Temp
lStart = InStr(1, Temp, "Chaine Rechercher")
If (lStart <> 0 And Found = False) Then
lLength = Len("Chaine Rechercher")
Chaine = Chaine & Mid$(Temp, 1, lStart) & "Nouvelle Chaine" & Mid$(Temp, lStart + lLength) & vbCrLf
Found = True
Else
Chaine = Chaine & Temp & vbCrLf
End If
Loop
Close #lFile
lFile = FreeFile
Open "C:Mon Fichier.txt" For Output As #lFile
Print #lFile, Chaine;
Close #lFile
End Sub
@ +,
AlexLG
