PureBasic

salut

voila je suis sur un projet et j'ai besoin de lire un fichier ligne par ligne (toutes les ligne ) de nimporte quelle type de fichier
un read file marche masi je nobtient pas exactement le resultat voulu
comment faire pour passer de ligne ne ligen e? merci de vos reponce
un petit mmorceau de code:

Code : Tout sélectionner


for x =1 to 10000
read string 
action
write string
next x

Code : Tout sélectionner

nFile = OpenFile(#PB_Any, file$)
If nFile
  While ~Eof(nFile)
    chaine$ = ReadString()
    debug chaine$
  Wend
  CloseFile(nFile)
Endif

c bon j'ai reussi grace a un tableau et un peu d'aide
j'ai encore un probleme avec mon petit prog
c un criptuer de fichier (en theorie)
il marche tres bienbna vec les fichier texte mais avec les autre .....
voici mon code il fut la droopy lib
si quelqun sait d'ou vient mon probleme merci d'avance

Code : Tout sélectionner

; PureBasic Visual Designer v3.90 build 1361

Enumeration
  #ExplorerTree_0
  #Button_0
  #String_0
  #Frame3D_0
  #Frame3D_1
  #String_1
  #Frame3D_2
  #Frame3D_3
  #String_2
  #String_3
  #Frame3D_4
  #Button_2
  #ProgressBar_0
EndEnumeration




  If OpenWindow(0, 216, 0, 740, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")

    
     CreateGadgetList(WindowID())
      ExplorerTreeGadget(#ExplorerTree_0, 20, 30, 180, 240, "")
      ButtonGadget(#Button_0, 320, 170, 130, 40, "cripter")
      StringGadget(#String_0, 240, 40, 200, 30, "")
      Frame3DGadget(#Frame3D_0, 230, 20, 220, 60, "premiere clé de criptage")
      Frame3DGadget(#Frame3D_1, 230, 90, 220, 60, "deuxieme clé de ciptage")
      StringGadget(#String_1, 240, 110, 200, 30, "")
      Frame3DGadget(#Frame3D_2, 480, 20, 220, 60, "deuxieme clé de criptage (pour decripter)")
      Frame3DGadget(#Frame3D_3, 480, 90, 220, 60, "premiere clé de criptage (pour decripter)")
      StringGadget(#String_2, 490, 40, 200, 30, "")
      StringGadget(#String_3, 490, 110, 200, 30, "")
      Frame3DGadget(#Frame3D_4, 10, 10, 200, 270, "fichier a cripter ")
      ButtonGadget(#Button_2, 480, 170, 130, 40, "décripter")
      ProgressBarGadget(#ProgressBar_0, 220, 250, 490, 20, 0, 10000)
      
    
  EndIf
Dim ligne.s(10001,2)

Repeat




 Event = WindowEvent()
    If Event = #PB_EventGadget
    WaitWindowEvent()
   gad=EventGadgetID()
    If EventGadgetID() = #Button_0
      
        
;on lit les cle de criptage

          cle1$=GetGadgetText(#String_0)
          cle2$=GetGadgetText(#String_1)
;on cripte 
chemin$ = GetGadgetText(#ExplorerTree_0)
OpenFile(0,chemin$)
For x=1 To 10000
ligne.s(x,1)= ReadString()
ligne.s(x,1)= RC4Api(ligne(x,1),cle1$)
ligne.s(x,2)= RC4Api(ligne(x,1),cle2$)
SetGadgetState(#ProgressBar_0,x)
Next x
CloseFile(0)
OpenFile(1,(chemin$))
For z=1 To 10000
a$=ligne.s(z,2)
WriteStringN(a$)
SetGadgetState(#ProgressBar_0,10001-z) 
Next z
CloseFile (1)
EndIf
;si bouton decripter 
    If EventGadgetID() = #Button_2
      
        
;on lit les cle de criptage

          cle2$=GetGadgetText(#String_2)
          cle1$=GetGadgetText(#String_3)
;on cripte 
chemin$ = GetGadgetText(#ExplorerTree_0)
OpenFile(0,chemin$)
For x=1 To 10000
ligne.s(x,1)= ReadString()
ligne.s(x,1)= RC4Api(ligne(x,1),cle2$)
ligne.s(x,2)= RC4Api(ligne(x,1),cle1$)
SetGadgetState(#ProgressBar_0,x)
Next x
CloseFile(0)
OpenFile(1,(chemin$))
For z=1 To 10000
a$=ligne.s(z,2)
WriteStringN(a$):;
SetGadgetState(#ProgressBar_0,10001-z) 
Next z
CloseFile (1)
EndIf
;on lit les clé

;on decripte

;on ecrit le fichier decripter


   

    EndIf
Until WindowEvent()=#PB_Event_CloseWindow

voila

PureBasic

ligne par ligne lire un file totale

ligne par ligne lire un file totale