Mise en forme de fichier source Panoramic (nième version)

DIM a$, b$, c$, i%, j%, l%, f$
LABEL Trih

HEIGHT 0, 900: WIDTH 0, 840
LIST 1: HEIGHT 1, 800: WIDTH 1, 400
DLIST 2
LIST 3: HEIGHT 3, 800: LEFT 3, 410: WIDTH 3, 400
f$ = "C:\Temp\Test.txt"
FILE_LOAD 1, f$
GOSUB Trih
END

Trih:
IF COUNT(1) > 0
  FOR i% = 1 TO COUNT(1)
      a$ = ITEM_READ$(1, i%): b$ = ""
      l% = LEN(a$)
      FOR j% = 1 TO l%
          c$ = RIGHT$("0"+HEX$(ASC(LEFT$(a$,1))), 2)
          b$ = b$ + c$
          a$ = RIGHT$(a$, LEN(a$) - 1)
      NEXT j%
      ITEM_ADD 2, b$
  NEXT i%
  SORT 2
  FOR i% = 1 TO COUNT(2)
      a$ = ITEM_READ$(2, i%): b$ = ""
      l% = LEN(a$)
      FOR j% = 1 TO l% STEP 2
          c$ = CHR$(HEX(LEFT$(a$, 2)))
          b$ = b$ + c$
          a$ = RIGHT$(a$, LEN(a$) - 2)
      NEXT j%
      ITEM_ADD 3, b$
  NEXT i%
END_IF
RETURN

FILE_LOAD 1, f$
t1 = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
GOSUB Trih
t2 = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
MESSAGE "Durée= " + STR$(t2-t1)
END

rem  ' ==>DIRECT>
full_space 0
dim a,a$ ,w$,f$ ,b,c$ ,v ,b$ , i%  : label tri
memo 1:font_size 1,10:height 1,height(0)-50
for a=1 to 255:item_add 1,str$(a)+chr$(9)+chr$(a):next a
item_add 1, chr$(145)
button 3:caption 3,"tri":on_click 3,tri

w$=""  : ' {list windows

dlist 10  :' left 10,260 : height 10,height(1) :width 10,200
for i%=32 to 32+120
    item_add 10,chr$(i%) : ' création de la chaine selon windows
next i%
sort 10  :' et tri
for a=1 to count(10):w$=w$+item_read$(10,a):next a  :' création de la chaine de tri windows }

' création chaine Made in France , selon son désir
F$=" 0123456789AÂÄÆBCÇDEÉÈÊFGHIÏÎJKLMNOÔÖPQRSTUÙÛÜVWXYZaàâbcçdeéèêëfghiïjklmnoôöpqrstuùûüvwxyz_'.@$:,;()[]%*/+-<=>?!/\"

memo  2:left 2,310:width 2,width(0)-350:height 2,200:font_size 2,12 :' teste du prg
item_add 2,F$
item_add 2,w$
clear 1:font_size 1,8

 file_load 1,"C:\temp\DIR.tmp"  :' là ou il y a les mots clés
 
end
tri:
clear 10
' on remplace chaque caractère selon son ?? homologue windows
hide 1
for a=1 to count(1)
    a$=item_read$(1,a) :b$="":c$=""
    for b=1 to len(a$)
      b$=mid$(a$,b,1)
      v=instr(F$,b$)
      c$=c$+mid$(w$,v,1)
    next b
    item_add 10,c$
next a
sort 10  :' on fait le tri selon windows
clear 1
' on remplace les caractères par les notres.
for a=1 to count(10)
    a$=item_read$(10,a) :b$="":c$=""
    for b=1 to len(a$)
      b$=mid$(a$,b,1)
      v=instr(W$,b$)
      c$=c$+mid$(F$,v,1)
    next b
    item_add 1,c$
next a
show 1

DIM a$, b$, i%, j%, f$

dim  k%, ca%, cb%, done%
LABEL Trih, tribin

HEIGHT 0, 900: WIDTH 0, 840
LIST 1: HEIGHT 1, 800: WIDTH 1, 400
DLIST 2
LIST 3: HEIGHT 3, 800: LEFT 3, 410: WIDTH 3, 400
f$ = "C:\Temp\Test.txt"
FILE_LOAD 1, f$
' GOSUB Trih
gosub tribin
END

tribin:
for i%=1 to count(1)
    a$ = item_read$(1,i%)
' message a$
    if count(3)=0
        item_add 3,a$
    else
        done% = 0
        for j%=1 to count(3)
            b$ = item_read$(3,j%)
            for k%=1 to len(b$)
                ca% = asc(mid$(a$,k%,1))
                cb% = asc(mid$(b$,k%,1))
                if ca%>cb% then exit_for
                if ca%<cb%
                    item_insert 3,j%,a$
                    done% = 1
                    exit_for
                end_if
            next k%
            if done%=1 then exit_for
        next j%
        if done%=0 then item_add 3,a$
    end_if
next i%
return

Trih:
FOR i% = 1 TO COUNT(1)
    a$ = ITEM_READ$(1, i%): b$ = ""
    FOR j% = 1 TO LEN(a$)
        b$ = b$ + RIGHT$("0"+HEX$(ASC(MID$(a$, j%, 1))), 2)
    NEXT j%
    ITEM_ADD 2, b$
NEXT i%
SORT 2
FOR i% = 1 TO COUNT(2)
    a$ = ITEM_READ$(2, i%): b$ = ""
    FOR j% = 1 TO LEN(a$) STEP 2
        b$ = b$ + CHR$(HEX(MID$(a$, j%, 2)))
    NEXT j%
    ITEM_ADD 3, b$
NEXT i%
RETURN

        Trih    Tribin
50 l.      0s        0s
100 l.    1s        1s
200 l.    2s        7s
300 l.    3s        15s
450 l.    5s        28s