nomainwin
    GLOBAL Mois$, Jour$, crlf$, NbMots, categ, modif, index, NbDep
    DIM info$(10,10), ligne$(10), mot$(10), syntax$(10), cat(10)
 
    crlf$ = chr$(13)+chr$(10)
    Mois$ = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
    Jour$ = "Mar Mer Jeu Ven Sam Dim Lun"
    aDay$ = Date$("mm/dd/yyyy")
    j = date$(aDay$)
    date$ = JourSem$(j)+" "+mid$(aDay$,4,2)+" "+NomMois$(j)+" "+right$(aDay$,4)+space$(6)+left$(time$(),5)
 
    call ChargeFichierTxt "AideListe.txt"
           'réparti chaque ligne du fichier txt dans les différentes variables tableaux utilisées.
              'format -->  '1er champ  = cat()     catégories
       'caractère          '2ème champ = mot$()    les commandes de la liste de sélection
       'séparateur = ";"   '3ème champ = syntax$() la syntaxe à traduire.

    WindowWidth = 840
    WindowHeight = 770
    UpperLeftX = (DisplayWidth-WindowWidth)/3
    UpperLeftY = (DisplayHeight-WindowHeight)/4
 
    STATICTEXT #am.re, "Recherche :", 10, 0, 100, 25
    TEXTBOX #am.rech, 10, 30, 150, 28
   ' BUTTON #am.valRch, "Ok", [Recherche], UL, 132, 30', 26, 28
    LISTBOX #am.list, mot$(, selectionMade, 10, 65, 150, 650
    TEXTEDITOR #am.synt, 170, 65, 650, 300
    STATICTEXT #am.re, "Traduction :", 170, 385, 100, 25
    TEXTEDITOR #am.trad, 170, 415, 650, 300
    GROUPBOX #am.categ, "Catégorie", 170, 0, 650, 58
    RADIOBUTTON #am.cat0, "TOUT", doRadio, nil, 180, 30, 90, 20
    RADIOBUTTON #am.cat1, "Graphique", doRadio, nil, 270, 30, 90, 20
    RADIOBUTTON #am.cat2, "Fichiers", doRadio, nil, 360, 30, 90, 20
    RADIOBUTTON #am.cat3, "Texte", doRadio, nil, 450, 30, 90, 20
    RADIOBUTTON #am.cat4, "Sprites", doRadio, nil, 540, 30, 90, 20
    RADIOBUTTON #am.cat5, "Maths", doRadio, nil, 630, 30, 90, 20
    RADIOBUTTON #am.cat6, "Divers", doRadio, nil, 720, 30, 90, 20
    STATICTEXT #am.rappel, "Ne pas oublier de --->", 400, 385, 170, 25
    BUTTON #am.valider, "Valider", [Valider], UL, 580, 380
    BUTTON #am.aideJB, "Aide JB .chm", [Aide_chm], UL, 700, 380
 
    Open "Aide mémoire - Just Basic"+space$(20)+str$(NbMots)+" mots"+space$(20)+" le "+date$ for window_nf as #am
    #am "trapclose [quit]"
    #am "font Comic_Sans_MS 10 bold"
    #am.list "font Comic_Sans_MS 10"
    #am.list "singleclickselect"
    #am.synt "!font Comic_Sans_MS 10"
    '#am.valRch "!font Comic_Sans_MS 8 bold"
    #am.cat0 "set"
    index = 1
    #am.list "selectindex ";index
    call selectionMade "#am.list"
 
[Main.Loop]
    Timer 0
    Scan
    #am.rech "!contents? find$"
    If (find$ <> oldfind$) Then
        gosub [FindinListBox]
    End If
    oldfind$ = find$ : find$ = ""
    Timer 100, [Main.Loop]
 
wait
 
    [FindinListBox]
        On Error GoTo [Error]
        i = 1
        #am.list "Selectionindex? index"
        If index = 0 Then
            #am.list "selectindex 1" :index = 1
            find$ = "" :oldfind$ = ""
            RETURN
        else
            #am.list "selection? selected$"
            #am.rech "!contents? find$"
            If Lower$(Mid$(selected$, 1, Len(find$))) = Lower$(find$) or _
              (Left$(selected$,1) = "-" and Lower$(Mid$(selected$, 3, Len(find$))) = Lower$(find$)) Then
                RETURN
            Else
              Do Until i = 0
                #am.list "Selectindex "; i
                #am.list "selection? selected$"
                #am.rech "!contents? find$"
                If Lower$(Mid$(selected$, 1, Len(find$))) = Lower$(find$) or _
                  (Left$(selected$,1) = "-" and Lower$(Mid$(selected$, 3, Len(find$))) = Lower$(find$)) Then
                    call selectionMade "#am.list"
                    Exit Do
                Else
                    If selected$ = "" Then Exit Do
                End If
                i = i + 1
              Loop
            End If
        End If
        [Error]
    RETURN
 
    [Aide_chm]
        if fileExists(DefaultDir$, "JustBASICHelp.chm") then  'le fichier " JustBASICHelp.chm" doit bien sûr être présent dans le même répertoire.
            run "hh.exe JustBASICHelp.chm"
        end if
    wait
 
   ' [Recherche]
   '     #am.rech "!contents? rech$"
   '     if rech$ <> "" then
   '         lg = len(rech$)
   '         for i = 1 to NbMots
   '             if lower$(left$(syntax$(i),lg)) = lower$(rech$) then index = i :exit for
   '         next
   '         #am.list "selectindex ";index
   '         call selectionMade "#am.list"
   '     end if
   ' wait

    [Valider]
        #am.trad "!contents? string$"
        syntax$(index) = string$
        if left$(mot$(index),1) <> "-" then
            mot$(index) = "- "+mot$(index)  'marque les commandes traduites.
            #am.list "reload"
        end if
       ' selection$ = syntax$(index)
       ' #am.synt "!contents selection$"
        #am.list "selectindex "; index
       ' modif = 1
       call selectionMade "#am.list"
    wait
 
    sub ChargeFichierTxt file$
      if fileExists(DefaultDir$, file$) then
        open file$ for input as #bgk
        WHILE EOF(#bgk)=0
            NbMots = NbMots + 1 'Compte les lignes du fichier.
            LINE INPUT #bgk, n$
        WEND
        close #bgk
        REDIM ligne$(NbMots + 20)   'dimensionne les var tableaux aux nbre de mots existant + 20 ajouts potentiels
        REDIM mot$(NbMots + 20)
        REDIM syntax$(NbMots + 20)
        REDIM cat(NbMots + 20)
        open file$ for input as #bgk
        WHILE EOF(#bgk)=0
            k = k + 1
            LINE INPUT #bgk, ligne$(k) 'Charge le tableau
            cat(k) = val(word$(ligne$(k),1,";"))
            mot$(k) = word$(ligne$(k),2,";")
            syntax$(k) = word$(ligne$(k),3,";")
            synt$ = syntax$(k)
            syntax$(k) = replaceString$(synt$, "|", crlf$)
        WEND
        close #bgk
        NbDep = NbMots
      else
        notice "Manque le fichier "+file$
        end
      end if
    end sub
 
    sub categories catg   'filtre par catégories, future fonction...

    end sub
 
    sub selectionMade handle$
        #am.list "selection? selection$"
        #am.list "selectionindex? index"
        selection$ = syntax$(index)
        #am.synt "!contents selection$"
        #am.synt "!disable"
        #am.trad "!contents selection$"
        categorie$ = "#am.cat"+str$(cat(index))
        #categorie$ "set"
        #am.trad "!modified? answer$"
        if answer$ = "true" then modif = 1   'pour la sauvegarde en quittant
    end sub
 
    sub doRadio handle$
        cat(index) = val(right$(handle$,1))
        modif = 1
       ' call categories categ
    end sub
 
    FUNCTION Month(days)
        d$ = date$(days)
        Month = val(left$(d$,2))
    END FUNCTION
 
    FUNCTION JourSem$(Jour)
        JourSem$ = word$(Jour$, Jour mod 7+1)
    END FUNCTION
 
    FUNCTION NomMois$(Jour)
        NomMois$ = word$(Mois$, Month(Jour))
    END FUNCTION
 
    FUNCTION fileExists(path$, filename$)
        'DIM info$(10,10)   doit déjà être déclarée
        files path$, filename$, info$()  ' path$ = DefaultDir$ en général...
        fileExists = val(info$(0, 0))  'non zéro si vrai
    END FUNCTION
 
    FUNCTION replaceString$(replaceString$, a$, b$)   'remplacement de caractère(s) dans une chaîne.
        i = LEN(a$) : j = LEN(b$)
        WHILE INSTR(replaceString$, a$, a) > 0
            c = INSTR(replaceString$, a$, a)
            replaceString$ = LEFT$(replaceString$, c-1); b$; MID$(replaceString$, c + i)
            a = c + j
        WEND
    END FUNCTION
 
    [quit]
        if modif then
            open "AideListe.txt" for output as #sv   'sauvegarde des tableaux mot$() & syntax$()
            for i = 1 to NbDep
                if mot$(i) <> "" then             ' formatage des lignes de texte qui s'enregistre dans le fichier "AideListe.txt"
                    synt$ = TRIM$(syntax$(i))
                    syntax$(i) = replaceString$(synt$, crlf$, "|")
                    #sv, str$(cat(i))+";"+mot$(i)+";"+syntax$(i)
                end if
            next
            close #sv
        end if
        Close #am
    End