A voir également:
- Inserrer une phrase dans 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
- Roulettechat texte - Forum Visual Basic
- Inverser les mots dans une phrase ✓ - Forum C# / .NET
2 réponses
Ca devrait donner un trucs comme ca :
On place sur la feuille une zone Texte. (Text1 dans l'exemple)
z$="Fichier.txt"
close
open z$ for input as #1
text1=input$(lof(1),#1)
close
num = 1
pos = 1
Do While num < 5
If Mid$(Text1.Text, pos, 2) = vbCrLf Then
num = num + 1
End If
pos = pos + 1
Loop
Text1 = Mid$(Text1, 1, pos - 1) + vbCrLf + "La ligne de Int19" + vbCrLf + Mid$(Text1, pos + 1)
open z$ for output as #1
print #1, Text1
close
On place sur la feuille une zone Texte. (Text1 dans l'exemple)
z$="Fichier.txt"
close
open z$ for input as #1
text1=input$(lof(1),#1)
close
num = 1
pos = 1
Do While num < 5
If Mid$(Text1.Text, pos, 2) = vbCrLf Then
num = num + 1
End If
pos = pos + 1
Loop
Text1 = Mid$(Text1, 1, pos - 1) + vbCrLf + "La ligne de Int19" + vbCrLf + Mid$(Text1, pos + 1)
open z$ for output as #1
print #1, Text1
close