PureBasic

Code : Tout sélectionner

a$="12351255.687435554"

For i=1 To Len(a$)
  If Mid(a$,i,1)="."
    Goto ok
  EndIf
Next
ok:

If i=7
b$=Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=8
b$=Mid(a$,i-7,1)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=9
b$=Mid(a$,i-8,2)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=10
b$=Mid(a$,i-9,3)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=11
b$=Mid(a$,i-10,1)+" "+Mid(a$,i-9,3)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=12
b$=Mid(a$,i-11,2)+" "+Mid(a$,i-9,3)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf
If i=13
b$=Mid(a$,i-12,3)+" "+Mid(a$,i-9,3)+" "+Mid(a$,i-6,3)+" "+Mid(a$,i-3,Len(a$))
EndIf

Debug b$

Code : Tout sélectionner

Procedure.s Formatmonnaie(valeur$)
ind = 0
  ReplaceString(valeur$, ".", ",", #PB_String_InPlace, 1)
  For x =  Len(valeur$) To 1 Step -1
   ind = ind + 1
   valeur2$ = valeur2$ + Mid(valeur$,x,1)
   If ind = 3
    ind = 0
    If Mid(valeur$,x,1) <> ","
     valeur2$ = valeur2$ + " "
    EndIf
  EndIf
  Next 
  ProcedureReturn ReverseString(valeur2$)
EndProcedure

Debug Formatmonnaie("123456789.29")

Code : Tout sélectionner

Procedure.s StrNum(Number.s, decimal.l = 2) ; Formats a number string as a number string customized for a specified locale. 
  Protected result.s, fmt.NUMBERFMT 
  fmt\NumDigits     = decimal ; Specifies the number of fractional digits. 
  fmt\LeadingZero   = 0       ; Specifies whether to use leading zeroes in decimal fields. 
  fmt\Grouping      = 3       ; Specifies the size of each group of digits to the left of the decimal. 
  fmt\lpDecimalSep  = @","    ; Pointer to a null-terminated decimal separator string. 
  fmt\lpThousandSep = @"."    ; Pointer to a null-terminated thousand separator string. 
  fmt\NegativeOrder = 1       ; Specifies the negative number mode (LOCALE_INEGNUMBER). 
  result = Space(GetNumberFormat_(0, 0, Number, fmt, 0, 0)) 
  GetNumberFormat_(0, 0, Number, fmt, @result, Len(result)) 
  ProcedureReturn result 
EndProcedure 

Macro Mille(Number)
  StrNum(StrF(Number), 2)
EndMacro 

Debug Mille(8125243.67)

Code : Tout sélectionner

Procedure.s printusing(txt.s,mask.s,ForceMask.b=#False)
; de Thyphoon
  Result.s=""
  Quit=#False
  lt.b=Len(txt)+1
  lm.b=Len(mask)+1
  Repeat
    c.s=Mid(mask,lm,1)
    If c="#" And lt>0
      Result=Mid(txt,lt,1)+Result
      lt=lt-1
      lm=lm-1
    ElseIf c<>"" And lm>0
      Result=c+Result
      lm=lm-1
    Else
      lt=lt-1
      lm=lm-1
    EndIf
  Until (ForceMask=#False And lt<1) Or (ForceMask=#True And lm<1 And lt<1)
  ProcedureReturn Result
EndProcedure

Debug printusing("1250","###,###")
Debug printusing("8080000","### ### ### ###")
Debug printusing("26122009","##-##-####")
Debug printusing(RSet(Str(1250333), 9, "0"),"$### ### ###",#True)

Code : Tout sélectionner

a$="12345.6789"

For i=1 To Len(a$)
  If Mid(a$,i,1)="."
    Goto ok12345
  EndIf
Next
ok12345:
b$=Mid(a$,i-3,Len(a$))
s=0
For u=i-4 To 1 Step-1
If s=0
  b$=" "+b$
EndIf
s+1 : s%3
b$=Mid(a$,u,1)+b$
Next

Debug b$

Code : Tout sélectionner

a$="12345.6789"

For i=1 To Len(a$)
  If Mid(a$,i,1)="."
    Break
  EndIf
Next
b$=Mid(a$,i-3,Len(a$))
s=0
For u=i-4 To 1 Step-1
If s=0
  b$=" "+b$
EndIf
s+1 : s%3
b$=Mid(a$,u,1)+b$
Next

Debug b$

Code : Tout sélectionner

a$ = "123123123.36"
i.w=0
For x = Len(a$) To 1 Step -1
 i + 1
 If Mid(a$,x,1) <> "." And i= 3
  b$ =  " " + Mid(a$,x,1)+ b$ 
  i + 1
 Else
  b$ =  Mid(a$,x,1) + b$
  If Mid(a$,x,1) = ".": i = 0:EndIf
 EndIf 
 If i > 3 : i = 0: EndIf
Next 
 
Debug b$

Code : Tout sélectionner

12.4 567

Code : Tout sélectionner

Procedure.s Formatmonnaie(a$)
ReplaceString(a$, ".", ",", #PB_String_InPlace, 1)
i.w=0
For x = Len(a$) To 1 Step -1
 b$ = Mid(a$,x,1)
 i + 1
 If b$ <> "," And i= 3
  c$ =  " " + b$ + c$ 
  i + 1
 Else
  c$ =  b$ + c$
  If b$ = ",": i = 0:EndIf
 EndIf 
 If i > 3 : i = 0: EndIf
Next 
ProcedureReturn c$
EndProcedure 
Debug Formatmonnaie("123456789.296")

Code : Tout sélectionner

Procedure.s FormatString_Separateur_de_Milliers(chaine$)
  
  Nombre_Negatif$ = "NON"
  
  ;cas particuliers des nombres négatifs, on enlève le signe
  If FindString(Chaine$, "-", 1) > 0
    Nombre_Negatif$ = "OUI"
    chaine$ = RemoveString(chaine$, "-", #PB_String_NoCase, 1, 1)
  EndIf
  
  Longueur=Len(chaine$)
  Position_Virgule=FindString(Chaine$, ".", 1) 
  
  ;si le point "." n'est pas trouvé, on cherche la virgule ","
  If Position_Virgule=0
    Position_Virgule=FindString(Chaine$, ",", 1) 
  EndIf
  
  ;cas particulier des nombres entiers
  If Position_Virgule=0
    Position_Virgule = Longueur + 1 
  EndIf
  
  Partie_gauche$ = Left(Chaine$,Position_Virgule-1)
  Partie_Droite$ = Right(Chaine$, Longueur - Position_Virgule+1)
  
  Nombre_Espace_a_Prevoir = (Len(Partie_gauche$))/3 
    
  ; Pour inserer les espaces, il est plus facile d'inverser la chaine en premier
  chaine_inverse$ = ReverseString(Partie_gauche$)
  
  ; insertion des espaces tous les 3 chiffres + l'espace lui-même = 4 caractères
  For i=1 To Nombre_Espace_a_Prevoir
   chaine_inverse$ = InsertString(chaine_inverse$, " ", 4*i)
  Next i
 
  ; on inverse et on ajoute la partie décimale
  Resultat.s=ReverseString(chaine_inverse$) + Partie_Droite$
  
  ; si le nombre était négatif on ajoute le  "-" qui sera toujours collé au bon endroit
  If Nombre_Negatif$ = "OUI"
    Resultat = "-" + Resultat
  EndIf
  
  ProcedureReturn Resultat
EndProcedure

a$ = "12351255.687435554"
b$ = "1234567"
c$ = "-1245789.9865"
d$ = "-1245789"

Debug FormatString_Separateur_de_Milliers(a$)
Debug FormatString_Separateur_de_Milliers(b$)
Debug FormatString_Separateur_de_Milliers(c$)
Debug FormatString_Separateur_de_Milliers(d$)