PureBasic

Code : Tout sélectionner

  If ReadFile(0, "Texte.txt")  ; Si le fichier peut être lu , on continue...
    While Eof(0) = 0           ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
      Debug ReadString(0)      ; Affiche ligne par ligne le contenu du fichier
    Wend
    CloseFile(0)               ; Ferme le fichier précédemment ouvert
  Else
    MessageRequester("Information","Impossible d'ouvrir le fichier!")
  EndIf

Code : Tout sélectionner

rd=openfile(#pb_any,"basededonée.txt")
if rd

nombre_de_lignes=lof(rd)/7
fileseek(rd,random((nombre_de_lignes-1)*7))
debug readstring(rd)
closefile(rd)

Code : Tout sélectionner

Enumeration
  #Win_
  #Btn_ReadFile
  #Textpresentation
  #TextAleatoire
  #Status
EndEnumeration

Procedure RandomReadfile(filename.s)
  
  count = 0
  If ReadFile(0,filename)     
    While Eof(0) = 0     
      alea$ = ReadString(0) 
      count = count + 1 
    Wend 
    CloseFile(0)
    StatusBarText(#Status, 0, "Fichier composé de :  "+Str(count)+" lignes")
    xline = Random(count)    
  Else
    MessageRequester("Information","Impossible d'ouvrir le fichier!")
  EndIf
  

  If ReadFile(0, filename)
    countline = 0
     While Eof(0) = 0     
        alea$ = ReadString(0) 
        countline = countline + 1
        If countline = xline
          StatusBarText(#Status, 1, "Ligne lue  : "+Str(countline))
            If alea$ = ""
              SetGadgetText(#TextAleatoire,"pas de mot du jour; espace vide; zut! raté.") ; si une ligne est vide on remplace par autre chose
            Else 
              SetGadgetText(#TextAleatoire,alea$)
            EndIf            
          Break
        EndIf      
      Wend         
    CloseFile(0)   
  Else
    MessageRequester("Information","Impossible d'ouvrir le fichier!")
  EndIf

EndProcedure


If OpenWindow(#Win_,0,0,400,130,"Alea jacta est", #PB_Window_SystemMenu |#PB_Window_ScreenCentered |#PB_Window_TitleBar)=0  
  End 
Else
  
  If LoadFont(0,"Time new Roman",10,#PB_Font_Bold|#PB_Font_HighQuality)
    Font = FontID(0)
  Else 
    Font = #PB_Default
  EndIf 
  
  TextGadget(#Textpresentation,20,20,150,15,"les mots du jour :")
  ButtonGadget(#Btn_ReadFile,240,15,150,25,"lecture aléatoire")
  
  TextGadget(#TextAleatoire,20,50,360,45,"")
  SetGadgetFont(#TextAleatoire, Font)

    If CreateStatusBar(#Status, WindowID(#Win_))
      AddStatusBarField(#PB_Ignore)
      AddStatusBarField(#PB_Ignore)      
    EndIf
    StatusBarText(#Status, 0, "Fichier composé de : ")
    StatusBarText(#Status, 1, "Ligne lue : ")

    
  Repeat
   Event = WaitWindowEvent() 
    If Event = #PB_Event_Gadget
      Select EventGadget() 
          
        Case #Btn_ReadFile  
             file$ = "CHEMIN DE VOTRE FICHIER"
                RandomReadfile(file$)      
                  
                 
      EndSelect
    EndIf 
    
  Until Event = #PB_Event_CloseWindow
End 
EndIf 

Code : Tout sélectionner

If ReadFile(0,"Test.txt")
  While Eof(0) = 0 ;Regarde combien de ligne est constitué le Fichier TXT
    ReadString(0)
    l+1
  Wend
  Dim Liste.s(3,l) ;Crée le tableau en fonction du nombre de Ligne (l)
  l=1
  c=1
  FileSeek(0,0) ;Replace le curseur au début du fichier
  While Eof(0) = 0
    Debug position
    Delay(2000)
    If position = FindString(ReadString(0),";",1) ;Cherche le caractère ";"
      c+1   
    EndIf
  Wend
EndIf

Code : Tout sélectionner

#File = 0
#Sep = "|"

If ReadFile (0, "Liste-rem.txt" )
  While Eof (0) = 0 
    a$=a$+ ReadString (#File) 
  Wend 
EndIf 
    
compt= CountString (a$, #Sep)+1
            
For i=1 To compt 
  StringField (a$,i, #Sep)         
Next i
        
Dim colone1.s(compt/4) 
Dim colone2.s(compt/4)
Dim colone3.s(compt/4)
Dim colone4.s(compt/4)

For i=1 To compt Step 4
  Debug i
  colone1(i-1) = StringField (a$,i,#Sep) 
  colone2(i-1) = StringField (a$,i+1,#Sep) 
  colone3(i-1) = StringField (a$,i+2,#Sep)
  colone4(i-1) = StringField (a$,i+3,#Sep) 
Next i