PureBasic

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : FormatInteger()
; Nom du Fichier : FormatInteger.pbi
; Version du fichier : 1.0.0
; Programmation : OK
; Programmé par : Gnozal
; Date : 17-10-2008
; Mise à jour : 07-10-2011
; Codé avec PureBasic V4.60
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Procedure.s FormatInteger(Number.s)
  
  NumberLen = Len(Number)
  Start = NumberLen % 3
  FormatedNumber.s = Left(Number, Start)
  
  For i = Start + 1 To NumberLen - Start Step 3
    FormatedNumber + " " + Mid(Number, i, 3)
  Next
  
  ProcedureReturn LTrim(FormatedNumber)
EndProcedure

Macro FormatDouble(Number)
  
  FormatInteger(StringField(Number, 1, ".")) + "." + StringField(Number, 2, ".")
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< CODE D'ESSAI <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<

Debug FormatInteger("1000")
Debug FormatInteger("10000")
Debug FormatInteger("100000")

Debug FormatDouble("1000.25")
Debug FormatDouble("10000.32")
Debug FormatDouble("100000.14")

; Debug FormatInteger("1000000")
; Debug FormatInteger("10000000")
; Debug FormatInteger("100000000")
; Debug FormatInteger("1000000000")
; Debug FormatInteger("10000000000")
; Debug FormatInteger("100000000000")
; Debug FormatInteger("1000000000000")
; Debug FormatInteger("10000000000000")
; Debug FormatInteger("100000000000000")

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

Code : Tout sélectionner

Procedure.s PrintUsing(Chaine.s, Format.s)
  If Left(Chaine,1)="-" 
    Sign.s = "-"
    Chaine = Mid(Trim(Chaine),2)
  Else
    Sign.s=""
  EndIf
  PosVirgCh = FindString(Trim(Chaine),".",1)
  
  If PosVirgCh = 0 : PosVirgCh = Len(Trim(Chaine))+1 : EndIf
  PosvirgFo = FindString(Format,".",1)
  If PosvirgFo = 0 : PosvirgFo = Len(Trim(Format))+1 : EndIf
  NbrCarFo = CountString(Mid(Format,1,PosvirgFo),"#")
  NbrDecFo = CountString(Mid(Format,PosvirgFo),"#")
  NbrCarCh = PosVirgCh-1
  PosSep =1
  While Mid(Format,PosSep,1)="#"
    PosSep+1
  Wend
  Sep.s=Mid(Format,PosSep,1)
  NbrCarNFo = NbrCarFo
  DerCarFo.s= Mid(Trim(Format),1,PosSep)
  NFormat.s = Mid(Trim(Format),1,PosvirgFo-1)
  While NbrCarNFo < NbrCarCh
    NFormat.s = DerCarFo + NFormat
    NbrCarNFo + PosSep -1
  Wend
  Nchaine.s = Mid(Trim(Chaine),1,PosVirgCh-1)
  Ret.s = LSet(Mid(Trim(Chaine),PosVirgCh+1),NbrDecFo,"0")
  If NbrDecFo > 0
    Ret = "."+Ret
  EndIf
  CarCh =1
  For CarFo = 1 To Len(NFormat)
    Car.s = Left(Right(NFormat,CarFo),1)
    If Car ="#"
      Ret = Left(Right(Nchaine,CarCh),1)+Ret
      CarCh+1
    Else
      Ret = Car + Ret
    EndIf
    If CarCh > Len(Nchaine)
      CarFo = Len(NFormat)
    EndIf
  Next
  ProcedureReturn  Sign + Ret
EndProcedure

; Test
MessageRequester("Résultat",PrintUsing("-123.00","### ###"))
MessageRequester("Résultat",PrintUsing("-123","### ###.##"))
MessageRequester("Résultat",PrintUsing("-123.456","### ###.##"))
MessageRequester("Résultat",PrintUsing("1234567890.5","###,###.##"))
MessageRequester("Résultat",PrintUsing("12345678905258","##/## ##:##"))