comment lire un fichier texte
Publié : ven. 09/févr./2007 20:09
Comment lire svp un fichier texte en mode visuel
Page 1 sur 1
Publié : ven. 09/févr./2007 20:46
Pas compris!
Re: comment lire un fichier texte
Publié : ven. 09/févr./2007 21:32
avec le gadget editeur !purebasss a écrit :Comment lire svp un fichier texte en mode visuel
Publié : ven. 09/févr./2007 22:55
Code : Tout sélectionner
File$ = OpenFileRequester("Ouvrir",""," Fichiers Textes|*.txt",0)
If File$
OpenFile(0,File$)
*Buffer = AllocateMemory(Lof(0)*4)
ReadData(0,*Buffer,Lof(0))
Text$ = PeekS(*Buffer)
OpenConsole()
Print(Text$)
Repeat
ForEver
EndIf
Publié : sam. 10/févr./2007 0:39
ou la console 
comme ça aussi , pas de truc compliqué
comme ça aussi , pas de truc compliqué
File$ = OpenFileRequester ( "Ouvrir" , "" , " Fichiers Textes|*.txt" ,0)
If File$
OpenConsole ()
OpenFile (0,File$)
While Eof (0)=0
Print ( ReadString (0, #PB_Ascii )+ Chr (10) )
Wend
Input ()
EndIf