comment lire un fichier texte

[purebasss]

Comment lire svp un fichier texte en mode visuel

[nico]

Pas compris!

[Backup]

Comment lire svp un fichier texte en mode visuel

avec le gadget editeur !

[Anonyme]

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

Comme ceci?

[Backup]

ou la console

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