USING associant nombres et textes

      rem programme using en ligne de commande avec textes
     
label tab ,using
label teste_programme
' ======================dim ligne using=========================================
dim tab$,TabMot$(20),TABa% ,TABb$,TABc$,TABd$,TABmot%,TABh$ ,TABi$,TABi%,TABj$,TABj%,Order$,TabNb(20)
dim n1,n2,n3,n4,n5,n6,n7,n8,n9
' ======================dim using===============================================
dim indexCodag%,longueurcodage%,NbDecimal%
dim nbTravail,zeronegatif,retourN ,nCoder
dim virg$,sansVirg$,using$,codag$,chiffre$,separation$,entier$,decimal$
dim n : rem variable de transfert pour la routine
' ==============================================================================
dim a%
width 0,1100:height 0,400
separation$="'" : virg$=","
        ' mémo pour voir les résultats
memo 1 :width 1,1000:full_space 1:font_size 1,12:font_name 1,"Courier New"

      gosub teste_programme

' ==============================================================================
      END
' ==============================================================================
tab:
 for a%=1 to 20:TabMot$(a%)="":TabNb(a%)=0:next a%
 TABb$="":TABc$="":TABj%=0:TABi%=0
 for a%=1 to len(order$)
    TABb$=mid$(Order$,a%,1)
    if TABb$="&" or TABb$="|" or TABb$="²"
      if TABb$="|" and a%>1 then TABi%=TABi%+1:TabMot$(TABi%)=TABc$ : TABc$=""
      if TABb$="&"
          TABc$="":TABj%=TABj%+1
          repeat
            a%=a%+1
            TABb$=mid$(Order$,a%,1)
            if TABb$="|" then exit_repeat
            TABc$=TABc$+TABb$
          until TABb$="|" or a%>= len(order$)
          TabNb(TABj%)=val(TABc$):TABc$=""
      end_if
      if TABb$="²"
          if mid$(Order$,a%+1,2)="n1" then TabNb(1)=n1:TABj%=1
          if mid$(Order$,a%+1,2)="n2" then TabNb(2)=n2:TABj%=2
          if mid$(Order$,a%+1,2)="n3" then TabNb(3)=n3:TABj%=3
          if mid$(Order$,a%+1,2)="n4" then TabNb(4)=n4:TABj%=4
          if mid$(Order$,a%+1,2)="n5" then TabNb(5)=n5:TABj%=5
          if mid$(Order$,a%+1,2)="n6" then TabNb(6)=n6:TABj%=6
          if mid$(Order$,a%+1,2)="n7" then TabNb(7)=n7:TABj%=7
          if mid$(Order$,a%+1,2)="n8" then TabNb(8)=n8:TABj%=8
          if mid$(Order$,a%+1,2)="n9" then TabNb(9)=n9:TABj%=9
          a%=a%+3 :TABc$=""
      end_if
    else
      if a%+1<=len(Order$)
          if mid$(Order$,a%,1)<>"&" then TABc$=TABc$+TABb$
      end_if
    end_if
 next a%

 ' décodage de la ligne de présentation : tab$ comme
 '    tab$="********/####.###,##/ ******|*****|/#####/|***"
 TABc$="":TABd$="" :TABi%=0 :TABj$="":TABmot%=0 :TABj%=0 :TABh$=""
 for TABa%=1 to len(tab$)
    TABb$=mid$(tab$,TABa%,1)
    if TABb$="/"
      using$="#"
      repeat
        TABa%=TABa%+1
        TABb$=mid$(tab$,TABa%,1)
        if TABb$<>"/"
          using$=using$+TABb$
        else
          using$=using$+"#"
          exit_repeat
        end_if
      until TABb$="/" or TABa%>=len(tab$) or TABa%>=len(tab$)
      TABj%=TABj%+1:n=TabNb(TABj%)
      gosub using
      TABj$=TABj$+codag$
    else
      if TABc$="*"
          if TABb$="*"
            TABi%=TABi%+1
            if TABi%<=len(TABh$)
                TABi$=mid$(TABh$,TABi%,1):TABj$=TABj$+TABi$
            else
                TABj$=TABj$+" "
            end_if
          else
            if TABb$="|"
                TABj$=TABj$+TABb$
            else
                TABj$=TABj$+" "
            end_if
            TABd$="":TABc$=""
          end_if
      else
          if TABb$="*"
            TABmot%=TABmot%+1 : TABh$=TabMot$(TABmot%):TABi%=1: if TABi%<=len(TABh$) then TABj$=TABj$+left$(TABh$,1)
            TABc$="*"
          else
            if TABb$="|"
                TABj$=TABj$+TABb$
            else
                TABj$=TABj$+" "
            end_if
          end_if
      end_if
    end_if
  next TABa%

 return
 ' ================insertion de la sous-routine==================================
using:
  retourN=n    :' seulement récuperer le nombre de départ non formaté
  nbTravail=n  :decimal$="":sansVirg$=Virg$
  NbDecimal%=len(using$)-instr(using$,",") : zeronegatif=0 :if instr(using$,",")=0 then NbDecimal%=0:sansVirg$=""
  if left$(str$(nbTravail),3)="-0." then zeronegatif=1
  nbTravail=int(nbTravail*power(10,NbDecimal%)+.5) :nCoder=nbTravail/power(10,NbDecimal%): codag$=str$(nbTravail)
  if zeronegatif=1 then codag$="-0"+mid$(codag$,2,len(codag$)-1)

  if NbDecimal%>0 then decimal$=right$(codag$,NbDecimal%)
  if NbDecimal%>0
    codag$="              "+left$(codag$,instr(codag$,decimal$)-1)
    longueurcodage%=instr(using$,",")-1:indexCodag%=len(codag$):entier$=""
  else
    codag$="              "+codag$
    longueurcodage%=len(using$):indexCodag%=len(codag$):entier$=""
  end_if
  while longueurcodage%>=1
    if indexCodag%>0
        chiffre$=mid$(codag$,indexCodag%,1)
        if chiffre$=" " and indexCodag%=len(codag$)
          entier$="0"
        else
          if mid$(using$,longueurcodage%,1)="."
              if chiffre$=" "
                entier$=chiffre$+" "+entier$
              else
                entier$=chiffre$+separation$+entier$
              end_if
              longueurcodage%=longueurcodage%-1
          else
              entier$=chiffre$ + entier$
          end_if
        end_if
    else
          entier$=" "+entier$
    end_if
    indexCodag%=indexCodag%-1 : longueurcodage%=longueurcodage%-1
  end_while
  codag$=entier$+sansVirg$+decimal$
 return
' ==============================================================================

' ==============================================================================
teste_programme:
  separation$="'" : virg$="," : print_target_is 1

  tab$="|****|**********|*********|**********|"
  Order$="|Nb|Libellé|Prix uni|PrixTotal|"                    :gosub tab: print TABj$
 ' ----------------
  tab$="|/##/|**********|/#####,#/|/##.###,#/|"
 
  n3=1.25*12: Order$="|&12|carottes|&1.25|²n3|"              :gosub tab: print TABj$
 ' ---------------
  n1=59 : n2=15.28 : n3=n1*n2 : Order$="|²n1|boites|²n2|²n3|" :gosub tab: print TABj$
  print
  print "lignes servant aux exemples"

  tab$="/##/ /##//##/":n1 = 15 : n2= 10 : n3= n1*n2: Order$="²n1|²n2|²n3":gosub tab:print tabj$
                                                              print "tab$=",tab$,"    Order$=",Order$
  n1 = 28 : n2= 5 : n3= n1*n2: Order$="²n1|²n2|²n3":gosub tab:print tabj$
  n1 = 51 : n2= 7 : n3= n1*n2: Order$="²n1|²n2|²n3":gosub tab:print tabj$
  print
  tab$="*******/#/|/###,#/|/###.###,#/|":n2=128.52:Order$="&12|²n2|&57935.63"
                                                    print "tab$:",tab$
  gosub tab:print tabj$, "    Order$=",Order$ ,"  n2=128.52"
  n3=687548:order$=" &5|&45|²n3":gosub tab:print tabj$, "    Order$=",Order$,"  n3=687548"
  print
print "remarque: si vous avez de meilleurs idées pour remplacer & et ² et qui soit accessible au clavier"
return
  ' ===========================================================================
  ' =======REMARQUES===========================================================
' Pour formater un nombre: la séquence est: "/##.###,#/" les slaschs deviennent
' dans le programme des "#", dont participe au formatage d'un nombre, se qui veut dire
' qu'un nombre de 2 chiffres entiers et 2 décimals se représentent ainsi
'      /##,#/
'      ^    ^
' soit__|__,_| par ###,##
'                        Pour la représentation de la virgule, et des séparateurs des milles
' séparation$="'" le signe qui vous plait, virg$="," ce qui vous plait. Mais dans la ligne
' de commande la représentation des séparations est le point, et la virgule pour les décimales soit
' "/#.###.###,#/"
' Le nombre à formater est déclaré soit directement dans la ligne de commande Order$
' Order$ avec & devant soit &123 pour 123 ou &123.45 pour envoyer 123.45
' chaque nombre a un numéro qui doit être dans l'ordre: n1 n2 n3 jusqu'à n9
' Si le nombre est calculé: par exemple  n1 = 15 : n2= 10 : n3= n1*n2
' dans ce cas:la représentation est:
' Order$="²n1|²n2|²n3" avec par exemple: tab$="/##/ /##/ /##/"
' Di on mélange les 2 méthodes:
' tab$="/#/|/###,#/|/###.###,#/|" , et n2=128.52, on a:
'        n1  n2      n3
' Order$="12|²n2|57935.63"
'
' Le texte est représenté par "*" pour pouvoir compter les espace

dim n, a$
n = 125.5
a$ = "|" + str$(n) + "|"
Message "####,## n=" + str$(n) + " order$=" + a$

dim f$,a%,b%,c% ,z%
dim a$,b$,c$ ,d$,s$ , copie_controle$

full_space 0
list 1 :full_space 1:height 1,200:font_size 1,12
open_dialog 2
save_dialog 5

memo 3:top 3,210:width 3,300:height 3,200 :font_size 3,14:font_bold 3:print_target_is 3
list 4:top 4,420 :height 4,screen_y -470:width 4,screen_x:color 4,250,250,200
    font_size 4,14:font_color 4,255,0,0:font_bold 4
   
list 6:left 6,310:top 6,210:width 6,500 :height 6,200
list 7:left 7,820:top 7,210:width 7,510 :height 7,200:color 7,240,240,240

f$=file_name$(2)    :  file_load 1,f$

for z%=1 to count(1)
  a$= item_read$(1,z%)
  b%=instr( upper$(a$),"DIM ")
  if b%>0
    b%=b%+4
    for c%=b% to len(a$)
        c$=mid$(a$,c%,1)
          if c$<>","
              d$=d$+c$
          else
              ' e$=
          end_if
    next c%
  end_if



next z%