ce petit code apparament simple peut servir.
Je dis apparement car les retours a la ligne ds vb.net n'ont plus de retour chariot.(vblf au lieu de vbcrlf) or pour enregistrer le fichier il faut les deux. enfin voilà :
Source / Exemple :
Public Function LireFichier(ByVal CheminFichier As String) As String
Dim MyChaine As String
Dim FreeF As Integer
FreeF = FreeFile() 'Possibilité de mettre 1
FileOpen(FreeF, CheminFichier, OpenMode.Input)
MyChaine = InputString(FreeF, FileLen(CheminFichier))
FileClose(FreeF)
Return MyChaine
End Function
Public Sub EcrireFichier(ByVal CheminFichier As String, ByVal Texte As String)
Dim FreeF As Integer
FreeF = FreeFile() 'Possibilité de mettre 1
Texte = Replace(Texte, vbLf, vbCrLf)
FileOpen(FreeF, CheminFichier, OpenMode.Output)
Print(FreeF, Texte)
FileClose(FreeF)
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.