PureBasic

Code : Tout sélectionner

#NewFile = 0
#LineMax = 50  ; <-- Maximum, 520 chez moi : Et vous ???
#CharMax = 20  ; <-- Maximum, 100 chez moi : Et vous ???

; En mettant le maximum en nbre de caractères et en nbres de lignes,
; ça me donne une taille de 64 Ko sur le disque (65536 octets).

; Est-ce que c'est la limite pour lire un fichier en mémoire???

;- Message
NoMsg$ = "Il n'y a pas de fichier à lire. !"
Var$ = Chr(34)+"NewFile"+Chr(34)
L1$ = "Créez d'abord un fichier en mettant la variable "+Var$+" à 1."+Chr(10)
L2$ = "Lancez ensuite le programme pour créer un nouveau fichier"+Chr(10)+Chr(10)
L3$ = "Mettez ensuite la variable "+Var$+" à 0 pour lire le fichier"+Chr(10)
L4$ = "Vous pourrez créer un nouveau fichier quand vous le voudrez"+Chr(10)
L5$ = "en mettant de nouveau la variable "+Var$+" à 1"+Chr(10)+Chr(10)
L6$ = "Chris ;o)"
Message$ = L1$+L2$+L3$+L4$+L5$+L6$

;- Création du fichier
;/ Cette partie crée un petit fichier texte composé de
;/ caractères aléatoires. (Les lettres en majuscules)
;/ #LineMax est le nombre maxi de lignes que vous voulez mettre dans le fichier.
;/ #CharMax est le nombre maxi de caractères par ligne.
;/ Si #NewFile est à 1, crée un nouveau fichier.

If #NewFile = 1
  If CreateFile(0,"Random.txt")
    For Line = 0 To #LineMax
      Ligne$ = ""
      For Char = 1 To #CharMax
        idx = Random(25) : idx + 65
        Ligne$ + Chr(idx)
      Next Char
      Ligne$ = "Ligne " + Str(Line) + " = " + Ligne$ + " ---> Fin"
      WriteStringN(Ligne$)
    Next Line
    CloseFile(0)
  EndIf
EndIf

;- Chargement du fichier en mémoire
Fichier$ = "Random.txt"                     ; Initialisations
LenFile.l = FileSize(Fichier$)              ; Longueur du fichier

If ReadFile(0,Fichier$)                     ; Si on peut ouvrir le fichier
  If AllocateMemory(0,LenFile,0)            ; on réserve une zone mémoire
    *Pointer = MemoryID()                   ; on crée un pointeur sur son adresse
    ReadData(*Pointer,LenFile)              ; on charge le fichier en mémoire
  EndIf
  CloseFile(0)                              ; et on le referme
Else
  MessageRequester(NoMsg$,Message$,#PB_MessageRequester_Ok|#MB_ICONSTOP)
  End
EndIf

;- Lecture des données depuis la mémoire
start = 1 : pos = 0                         ; Initialisations
RetChar$ = Chr(13) + Chr(10)                ; Retour chariot

tmp$ = PeekS(*Pointer,LenFile)              ; Chargement du fichier dans un string
Repeat
  pos = FindString(tmp$,RetChar$,start)     ; recherche du retour chariot
  g$ = Mid(tmp$,start,pos-start)            ; récupération de la ligne
  start = pos + 2                           ; mise à jour des variables
  If g$ <> ""                               ; Si la ligne n'est pas vide
    Debug g$                                ; on l'affiche
  EndIf
Until pos = 0;                              ; jusqu'à a fin du fichier