Bonjour a tous ! J'aimerais par exmple remplacer le 3eme ligne
d'un fichier et la remplacer par "developpez.com" mais je sais comment comment on fait !Pouvez-vous m'aider
Bonjour a tous ! J'aimerais par exmple remplacer le 3eme ligne
d'un fichier et la remplacer par "developpez.com" mais je sais comment comment on fait !Pouvez-vous m'aider
Une idée serait de créer un autre fichier. Ensuite tu lis ligne à ligne ton fichier et lorsque tu arrives à la 3eme ligne au lieu de l'ecrire dans le new fichier, tu ecris "Developpez.com".
C'est pas forcement la bonne solution mais ca marche !
Salut voici un exemple qui n'est surement pas le meilleur :
Private Sub test()
'Déclaration d'un tableau pour contenir les données précédentes
Dim MonTableau(3) As String
'Si le fichier existe, on l'ouvre on et assigne les valeurs des lignes au tableau
Try
'Déclaration d'un stream en lecture
Dim strRead As New System.IO.StreamReader("c:\test.txt")
MonTableau(0) = strRead.ReadLine()
MonTableau(1) = strRead.ReadLine()
MonTableau(2) = strRead.ReadLine()
'Fermeture du stream
strRead.Close()
Catch
End Try
'Déclaration d'un stream en lecture
Dim strWrt As New System.IO.StreamWriter("c:\test.txt")
'Ecriture des valeurs contenu dans le tableau
strWrt.WriteLine(MonTableau(0))
strWrt.WriteLine(MonTableau(1))
strWrt.WriteLine("Developpez.com")
strWrt.Close()
End Sub
A+ Tof
J'ai eu exactement la meme idéemais le code est trop lourd ...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager