Bonjours,
Si quelqu'un pourais me traduire ce code vb.net en WinDev 14
Module Module1
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()
Texte = Replace(Texte, 0, 0)
FileOpen(FreeF, CheminFichier, OpenMode.Output)
Print(FreeF, Texte)
FileClose(FreeF)
End Sub
End Module
Merci d'avance
