PureBasic

Code : Tout sélectionner

; -----------------------------------------------------------------------------
Compteur1=0                        ;  A chaque séquence 
Compteur2=1                        ;  Compteur pour calcul des limite 
n=1                                      ;  Partie à afficher 
limite = Pow(10 ,Compteur2)  ;  Première limite... 
; ------------------------------------------------------------------------------
For i=0 To 1200               ; Valeur arbitraire pour l'exemple. = 1200 ... 
     If i=limite
          Compteur1=0         ; nouveau départ de compteur 
          Compteur2+1         ; Nouvelle valeur 
          Affiche$=Left("00000000",n)+Str(Compteur1)
          limite = Pow(10 ,Compteur2)+limite ; Nouvelle limite 
          n+1
     Else 
          Affiche$=Left("00000000",n-1)+Str(Compteur1)
     EndIf
     If Len(Affiche$)>Compteur2
          Affiche$=Right(Affiche$,n)
     EndIf     
     Debug "Original ="+Str(i)+" Formaté ="+Affiche$
     Compteur1+1
Next i
Debug "Etc..."
End

Code : Tout sélectionner

Debug Ajoute("5", "5")

Code : Tout sélectionner

Procedure.S Ajoute(Nombre1$, Nombre2$)
  
  Nombre1 = Val(Nombre1$)
  Nombre2 = Val(Nombre2$)
  
  ProcedureReturn StrU(Nombre1 + Nombre2)
  
EndProcedure

Debug Ajoute("9223372036854775807", "9223372036854775808")

Code : Tout sélectionner

Procedure.S Ajoute(Nombre1$, Nombre2$)
  ProcedureReturn StrU(Val(Nombre1$) + Val(Nombre2$))
EndProcedure

Debug Ajoute("9223372036854775807", "9223372036854775808")

Code : Tout sélectionner

Procedure.S Ajoute(Nombre1.S, Nombre2.S)
  
  Protected ParseNombre1.Q, ParseNombre2.Q, Resultat.S
  
  ParseNombre1.Q = Val(Nombre1.S)
  ParseNombre2.Q = Val(Nombre2.S)
  
  Resultat.S = StrU(ParseNombre1.Q + ParseNombre2.Q)
  ProcedureReturn Resultat.S
  
EndProcedure

Debug Ajoute("9223372036854775807", "9223372036854775808")

Code : Tout sélectionner

file$ = OpenFileRequester("S�lectionnez le fichier 1","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
If file$
  If ReadFile(0, file$) 
    length1 = Lof(0) ; Lit la taille en octets du fichier 
    *MemoryID1 = AllocateMemory(length1) ; alloue un bloc m�moire de la taille du fichier "length"
    If *MemoryID1                       ; si l'allacation a bien fonctionner ont continue
      ReadData(0, *MemoryID1, length1)   ; Lit les donn�es du fichier et les place dans le bloc m�moire "*MemoryID" de la taille correspondant � "length"
      *Fichier1.String = @*MemoryID1     ; "*Fichier" a pour valeur l'adresse o� r�side la cha�ne de caract�res en m�moire "*MemoryID"
      Fichier1$ = *Fichier1\s            ; "Fichier$" � pour valeur le texte o� r�side la cha�ne de caract�res en m�moire "*MemoryID"
    EndIf
    CloseFile(0)
  EndIf
EndIf

file$ = OpenFileRequester("S�lectionnez le fichier 1","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
If file$
  If ReadFile(0, file$) 
    length2 = Lof(0) ; Lit la taille en octets du fichier 
    *MemoryID2 = AllocateMemory(length2) ; alloue un bloc m�moire de la taille du fichier "length"
    If *MemoryID2                       ; si l'allacation a bien fonctionner ont continue
      ReadData(0, *MemoryID2, length2)   ; Lit les donn�es du fichier et les place dans le bloc m�moire "*MemoryID" de la taille correspondant � "length"
      *Fichier2.String = @*MemoryID2     ; "*Fichier" a pour valeur l'adresse o� r�side la cha�ne de caract�res en m�moire "*MemoryID"
      Fichier2$ = *Fichier2\s            ; "Fichier$" � pour valeur le texte o� r�side la cha�ne de caract�res en m�moire "*MemoryID"
    EndIf
    CloseFile(0)
  EndIf
EndIf

If length1 > length2
  length3 = length1
ElseIf length2 > length1
  length3 = length2
Else
  length3 = length1
EndIf

*MemoryID3 = AllocateMemory(length3 + 1) ; alloue un bloc m�moire de la taille du fichier "length"

If *MemoryID3                       ; si l'allacation a bien fonctionner ont continue
  
A = ElapsedMilliseconds()

For I = length3 - 1 To 0 Step -1
  
  Chiffre1 = Val(PeekS(*MemoryID1 + I, 1, #PB_Ascii))
  Chiffre2 = Val(PeekS(*MemoryID2 + I, 1, #PB_Ascii))

  Resultat = Chiffre1 + Chiffre2 + Retenue

  If Len(Str(Resultat)) > 1
    Retenue = Val(Mid(Str(Resultat), 1, 1))
  Else
    Retenue = 0
  EndIf
  
  If Len(Str(Resultat)) = 1
    Chiffre3 = Val(Mid(Str(Resultat), 1, 1))
    Else
      Chiffre3 = Val(Mid(Str(Resultat), 2, 1))
    EndIf
    
  PokeS(*MemoryID3 + Position, Str(Chiffre3), -1, #PB_Ascii)
  Position + 1
  
Next

B = ElapsedMilliseconds()

Debug ReverseString(PeekS(*MemoryID3, -1, #PB_Ascii))
EndIf