Soyez le premier à donner votre avis sur cette source.
Vue 32 577 fois - Téléchargée 1 944 fois
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
ps : petite parenthèse en trop pour la commande d'exécution de EcrireFichier
Amicalement
MakBzh
Dim StrText as string = LireFichier ("C:\monfichier.txt")
ou
EcrireFichier ("C:\Monfichier.txt"), StrText)
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.