Un Post-it sur le bureau

' Postit.bas un post-it sur le bureau
DIM w0, h0, wf, hf, pv, ph, fpo$, ftm$, tpo, dl$, rc$, go
DIM a$, b$, d$, t$, m$, i%, j%, k%, x%, ll%
DIM ht, hm, hl, ha, he, hb, tm, tl, ta, te, tb, lb
DIM art$(2000), nart%
DIM no%, LS%, AL2%, ED%, BTR%, BTO%, BQ%, BS%, BC%, BV%, BA%, BR%, BH%
DATA "janvier","février","mars","avril","mai","juin","juillet","août"
DATA "septembre","octobre","novembre","décembre"
LABEL Fin, Agrandir, Reduire, Redim, Valide, Mef, Supart, rq, rr, rs, rt, ru
LABEL Copier, Coller, Raz, Aide

fpo$ = "C:\LANGAGES\Panoramic\Postit.txt": ' ***** emplacement à ajuster *****
ftm$ = "Z:\Ftmp.txt": ' ***** fichier de manoeuvre, à ajuster *****
dl$ = "**** ": ' séquence de début d'article
rc$ = "<#": ' retour chariot interligne

ht = 24: ' hauteur titre
hm = 24: ' hauteur menu
hl = 100: ' hauteur initiale fenêtre de visualisation
ha = 18: ' hauteur alpha
he = 24: ' hauteur zone edit
hb = 26: ' hauteur zone bouton
h0 = ht+hm+hl+ha+he+hb: ' hauteur totale
tm = ht
tl = ht + hm
ta = tl + hl
te = ta + ha
tb = te + he
pv = 30: ' paliers d'agrandissement ou de réduction de la fenêtre
ph = 40

w0 = 320: ' *** Taille de la fenêtre à ajuster selon les goûts !
lb = w0/6: hb = 18
LEFT 0, 10: TOP 0, 10: WIDTH 0, w0: HEIGHT 0, h0: BORDER_HIDE 0
COLOR 0, 255,255,220
wf = w0 - 8
tpo = 10: ' taille police
ll% = INT((w0-20)/8): ' largeur ligne maxi, en caractères

no% = 0: ' numéro d'objet
no% = no% + 1: ALPHA no%: TOP no%, -8: LEFT no%, 80: HEIGHT no%, ht: WIDTH no%, w0-80
FONT_NAME no%, "Arial Black": FONT_SIZE no%, 20: FONT_BOLD no%
CAPTION no%, "Post-it"
no% = no%+1: BUTTON no%: TOP no%, 2: LEFT no%, w0-lb: WIDTH no%, lb
FONT_SIZE no%, tpo: CAPTION no%, "Quitter": ON_CLICK no%, Fin: BQ% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, 0: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "Supprimer": ON_CLICK no%, Supart: BS% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, lb: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "Copier": ON_CLICK no%, Copier: BC% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, 2*lb: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "Coller": ON_CLICK no%, Coller: BV% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, 3*lb: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "Agrandir": ON_CLICK no%, Agrandir: BA% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, 4*lb: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "Réduire": ON_CLICK no%, Reduire: BR% = no%
no% = no% + 1: BUTTON no%: TOP no%, ht+5: LEFT no%, 5*lb: WIDTH no%, lb: HEIGHT no%, hb
CAPTION no%, "?": ON_CLICK no%, Aide: BH% = no%
' LS%: List principale
no% = no% + 1: LIST no%: TOP no%, tl: LEFT no%, 4: HEIGHT no%, hl: WIDTH no%, wf
FONT_SIZE no%, tpo: FONT_NAME no%, "Lucida Console": COLOR no%, 255,255,128
LS% = no%

no% = no% + 1: ALPHA no%: TOP no%, ta: WIDTH no%, w0
FONT_SIZE no%, tpo
CAPTION no%, "  Entrer le nouveau texte ici:": AL2% = no%
no% = no% + 1: EDIT no%: TOP no%, te: LEFT no%, 5: HEIGHT no%, 16: WIDTH no%, wf
FONT_SIZE no%, tpo: ED% = no%
no% = no% + 1: BUTTON no%: TOP no%, tb: LEFT no%, w0/2-lb: WIDTH no%, lb
FONT_SIZE no%, tpo: CAPTION no%, "RAZ": ON_CLICK no%, Raz: BTR% = no%
no% = no% + 1: BUTTON no%: TOP no%, tb: LEFT no%, w0/2: WIDTH no%, lb
FONT_SIZE no%, tpo: CAPTION no%, "OK": ON_CLICK no%, Valide: BTO% = no%
GOSUB Mef
END
Fin:
TERMINATE

Agrandir:
go = 0
IF (ht+hm+hl+ha+he+hb) < (SCREEN_Y-10)
    hl = hl + pv: go = 1
END_IF
IF w0 < (SCREEN_X - 20)
    w0 = w0 + ph: go = 1
END_IF
IF go = 1 THEN GOSUB Redim
RETURN

Reduire:
go = 0
IF hl > 60
    hl = hl - pv
END_IF
IF w0 > 200
    w0 = w0 - ph: go = 1
END_IF
IF go = 1 THEN GOTO Redim
RETURN

Redim:
lb = w0/6
wf = w0 - 8
ll% = INT((w0-20)/8): ' largeur ligne maxi, en caractères
h0 = ht+hm+hl+ha+he+hb: ' hauteur totale
tl = ht + hm
ta = tl + hl
te = ta + ha
tb = te + he
WIDTH 0, w0: HEIGHT 0, h0
WIDTH LS%, wf: HEIGHT LS%, hl
WIDTH ED%, wf
TOP AL2%, ta
TOP ED%, te
TOP BTR%, tb
TOP BTO%, tb
WIDTH BQ%, lb: WIDTH BS%, lb: WIDTH BC%, lb: WIDTH BV%, lb: WIDTH BA%, lb
WIDTH BR%, lb: WIDTH BH%, lb: WIDTH BTR%, lb: WIDTH BTO%, lb
LEFT BQ%, w0-lb
LEFT BC%,lb: LEFT BV%,2*lb: LEFT BA%,3*lb: LEFT BR%,4*lb: LEFT BH%,5*lb
LEFT BTR%, w0/2-lb: LEFT BTO%, w0/2
GOSUB Mef
RETURN

Valide:
a$ = RTRIM$(TEXT$(ED%)): IF a$ = "" THEN RETURN
RESTORE
FOR i% = 1 TO VAL(MID$(DATE$, 4, 2))
    READ m$
NEXT i%
d$ = LEFT$(DATE$, 2) + " " + m$ + " " + RIGHT$(DATE$, 4)
FILE_OPEN_APPEND 1, fpo$
    FILE_WRITELN 1, dl$ + d$ + " à " + TIME$ + " ****"
    FILE_WRITELN 1, a$
FILE_CLOSE 1
GOSUB Mef
TEXT ED%, "": ' effacement de l'Edit
RETURN

Mef:
' mise du fichier en ordre chronologique inverse, et chargement dans List LS%
nart% = 0
IF FILE_EXISTS(fpo$) = 0
    FILE_OPEN_WRITE 1, fpo$
    RESTORE
    FOR i% = 1 TO VAL(MID$(DATE$, 4, 2))
        READ m$
    NEXT i%
    d$ = LEFT$(DATE$, 2) + " " + m$ + " " + RIGHT$(DATE$, 4)
    FILE_WRITELN 1, dl$ + d$ + " à " + TIME$ + " INIT ****"
    FILE_WRITELN 1, "Initialisation"
    FILE_CLOSE 1
END_IF
FILE_OPEN_READ 1, fpo$
WHILE FILE_EOF(1) = 0
  FILE_READLN 1, a$
  IF LEFT$(a$, 5) = dl$
      FILE_READLN 1, b$: a$ = a$ + CHR$(13) + CHR$(10) + b$
      nart% = nart% + 1: art$(nart%) = a$
  END_IF
END_WHILE
FILE_CLOSE 1
FILE_OPEN_WRITE 1, ftm$
    FOR i% = nart% TO 1 STEP -1
        a$ = RTRIM$(art$(i%))
        k% = INSTR(a$, CHR$(13))
        FILE_WRITELN 1, LEFT$(a$, k%-1): a$ = MID$(a$, k%+2, LEN(a$)-k%-1)
rq:
        IF LEN(a$) > ll%
            FOR j% = ll%+1 TO 1 STEP -1
                IF MID$(a$, j%, 1) = " " THEN EXIT_FOR
            NEXT j%
            IF j% = 0
                FILE_WRITELN 1, LEFT$(a$, ll%)+CHR$(31)
                a$ = MID$(a$, ll%+1, LEN(a$)-ll%)
            ELSE
                FILE_WRITELN 1, LEFT$(a$, j%-1)
                a$ = MID$(a$, j%+1, LEN(a$)-j%)
            END_IF
            GOTO rq
        END_IF
        FILE_WRITELN 1, a$
    NEXT i%
FILE_CLOSE 1
FILE_LOAD LS%, ftm$
FILE_DELETE ftm$
RETURN

Supart:
IF ITEM_INDEX(LS%) = 0
    MESSAGE "Sélectionner une ligne d'un article pour le supprimer"
    RETURN
END_IF
x% = ITEM_INDEX(LS%)
rr:
a$ = ITEM_READ$(LS%, x%)
IF LEFT$(a$, 5) <> dl$ THEN x% = x% - 1: GOTO rr
IF INSTR(a$, "INIT") > 0
    MESSAGE "Suppression du 1er article (Init) interdite !": RETURN
END_IF
i% = MESSAGE_CONFIRMATION_YES_NO("Supprimer cet article")
IF i% = 1
    FILE_OPEN_READ 1, fpo$
    FILE_OPEN_WRITE 2, ftm$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1, b$
            IF b$ = a$
                FILE_READLN 1, b$: ' ignore la ligne et la suivante
            ELSE
                FILE_WRITELN 2, b$
            END_IF
        END_WHILE
    FILE_CLOSE 1
    FILE_CLOSE 2
    ' Recopie du fichier temporaire dans le fichier Postit.txt
    FILE_OPEN_READ 1, ftm$
    FILE_OPEN_WRITE 2, fpo$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1, a$: FILE_WRITELN 2, a$
        END_WHILE
    FILE_CLOSE 1
    FILE_CLOSE 2
    GOSUB Mef
END_IF
RETURN

Copier:
' copie d'un article dans le clipboard
IF ITEM_INDEX(LS%) = 0
    MESSAGE "Sélectionner un article pour copier son contenu dans le presse-papier"
    RETURN
END_IF
x% = ITEM_INDEX(LS%): b$ = ""
rs:
a$ = ITEM_READ$(LS%, x%)
IF LEFT$(a$, 5) <> dl$ THEN x% = x% - 1: GOTO rs
x% = x% + 1: b$ = ITEM_READ$(LS%, x%)
rt:
x% = x% + 1
IF x%<= COUNT(LS%)
    a$ = ITEM_READ$(LS%, x%)
    IF LEFT$(a$, 5) <> dl$
        IF RIGHT$(b$, 1) = CHR$(31)
            b$ = LEFT$(b$, LEN(b$)-1) + a$
        ELSE
            b$ = b$ + " " + a$
        END_IF
        GOTO rt
    END_IF
END_IF
CLIPBOARD_STRING_COPY b$
RETURN

Coller:
a$ = CLIPBOARD_STRING_PASTE$
ru:
k% = INSTR(a$, CHR$(13)+CHR$(10))
IF k% > 0 AND k% < (LEN(a$)-1)
    a$ = LEFT$(a$, k%-1) + rc$ + MID$(a$, k%+2, LEN(a$)-k%-1): GOTO ru
END_IF
TEXT ED%, a$
RETURN

Raz:
TEXT ED%, ""
RETURN

Aide:
a$ = CHR$(9) + CHR$(9) + CHR$(9) + "POST-IT" + CHR$(10) + CHR$(10)
a$ = a$ + "          Saisie et affichage de courts textes aide-mémoire"  + CHR$(10) + CHR$(10)
a$ = a$ + "Saisir le texte à mémoriser (une seule ligne, de longueur quelconque)" + CHR$(10)
a$ = a$ + "    dans la zone de saisie, en bas, puis clic 'OK'." + CHR$(10)
a$ = a$ + "    (on peut insérer un saut de ligne par la séquence '<#')." + CHR$(10)
a$ = a$ + "Le texte validé sera horodaté, mémorisé dans le fichier Postit.txt, et"+ CHR$(10)
a$ = a$ + "    affiché dans la fenêtre supérieure."
a$ = a$ + CHR$(10)
a$ = a$ + "Les textes déjà mémorisés sont présentés dans le tableau au-dessus,"+CHR$(10)
a$ = a$ + "    dans l'ordre chronologique inverse (les plus récents en tête)." + CHR$(10)
a$ = a$ + "    (les sauts de ligne éventuels sont représentés par la séquence '<#')."+CHR$(10)
a$ = a$ + CHR$(10)
a$ = a$ + "Touche 'Supprimer': supprimer un article sélectionné." + CHR$(10)
a$ = a$ + "    Sélectionner une ligne quelconque de l'article, puis 'Supprimer'"+CHR$(10)
a$ = a$ + "Touche 'Copier': copier l'article sélectionné dans le clipboard."+CHR$(10)
a$ = a$ + "Touche 'Coller': coller le clipboard (texte) dans la zone de saisie."+CHR$(10)
a$ = a$ + "    (les sauts de ligne éventuels sont représentés par la séquence '<#')."+CHR$(10)
a$ = a$ + "Touches 'Agrandir/Réduire': modifier la taille de la fenêtre."+CHR$(10)
a$ = a$ + CHR$(10) + "Touche 'RAZ': effacer la zone de saisie." + CHR$(10)
a$ = a$ + "Touche 'OK': valider la saisie -> affichage et écriture dans le fichier."
MESSAGE a$
RETURN

    IF LEFT$(a$, 5) <> dl$ THEN x% = x% - 1: GOTO rr

fpo$ = "Postit.txt": ' ***** emplacement à ajuster *****
ftm$ = "Ftmp.txt": ' ***** fichier de manoeuvre, à ajuster *****

' Postit.bas un post-it sur le bureau DE PAPY35
DIM w0, h0, wf, hf, t8, h8, fpo$, ftm$, tp, tp9, dl$
DIM a$, b$, d$, t$, m$, i%, j%, k%, x%, ll%
DIM art$(2000), nart%
DIM no%, BQ%, LS%, AL1%, AL2%, ED%, BV%
dim r,g,b
DATA "janvier","février","mars","avril","mai","juin","juillet","août"
DATA "septembre","octobre","novembre","décembre"
LABEL Fin, Valide, Mef, Supart, rq, rr

fpo$ = "Postit.txt": ' ***** emplacement à ajuster *****
ftm$ = "Ftmp.txt": ' ***** fichier de manoeuvre, à ajuster *****
dl$ = "**** ": ' début d'article
r=235:g=235:b=235:' Couleurs du Form
w0 = 600: h0 = 200: ' *** Taille de la fenêtre à ajuster selon les goûts !
LEFT 0, 10: TOP 0, 10: WIDTH 0, w0: HEIGHT 0, h0: BORDER_SMALL 0
border_hide 0
COLOR 0, 250,250,235: CAPTION 0, ""
picture 10:LEFT 10, 1: TOP 10, 1: WIDTH 10, w0: HEIGHT 10, h0
color 10,r,g,b
wf = w0 - 8
tp = 10: ' taille police
no% = 0: ' numéro d'objet
ll% = INT((w0-40)/8): ' largeur ligne maxi, en caractères
t8 = 28: h8 = h0-100
tp9 = h0-70

no% = no%+1: BUTTON no%: TOP no%, 2: LEFT no%, w0-84: WIDTH no%, 80
FONT_SIZE no%, tp: CAPTION no%, "Quitter": ON_CLICK no%, Fin: BQ% = no%
no% = no% + 1: LIST no%: TOP no%, t8: LEFT no%, 4: HEIGHT no%, h8: WIDTH no%, wf
FONT_SIZE no%, tp: FONT_NAME no%, "Lucida Console": COLOR no%, 255,255,0
ON_CLICK no%, Supart: LS% = no%
no% = no% + 1: ALPHA no%: TOP no%, -8 : WIDTH no%, w0-80: LEFT no%,int(width(0)/2)-80
FONT_NAME no%, "Arial Black": FONT_SIZE no%, 20: FONT_BOLD no%:color no%,r,g,b
CAPTION no%, "Post-it": AL1% = no%
no% = no% + 1: ALPHA no%: TOP no%, tp9: WIDTH no%, w0:color no%,r,g,b
FONT_SIZE no%, tp
CAPTION no%, "  Entrer le nouveau texte ici:": AL2% = no%
no% = no% + 1: EDIT no%: TOP no%, tp9+16: LEFT no%, 5: HEIGHT no%, 16: WIDTH no%, wf
FONT_SIZE no%, tp: ED% = no%
no% = no% + 1: BUTTON no%: TOP no%, tp9+42: LEFT no%, w0/2-40: WIDTH no%, 70
FONT_SIZE no%, tp: CAPTION no%, "OK": ON_CLICK no%, Valide: BV% = no%
GOSUB Mef
END
Fin:
TERMINATE

Valide:
a$ = TEXT$(ED%): IF a$ = "" THEN RETURN
RESTORE
FOR i% = 1 TO VAL(MID$(DATE$, 4, 2))
    READ m$
NEXT i%
d$ = LEFT$(DATE$, 2) + " " + m$ + " " + RIGHT$(DATE$, 4)
FILE_OPEN_APPEND 1, fpo$
    FILE_WRITELN 1, dl$ + d$ + " à " + TIME$ + " ****"
    FILE_WRITELN 1, a$
FILE_CLOSE 1
GOSUB Mef
TEXT ED%, "": ' effacement de l'Edit
RETURN

Mef:
' 2d_rectangle 2,2,width(0)-4,height(0)-4
' mise du fichier en ordre chronologique inverse, et chargement dans List LS%
nart% = 0
IF FILE_EXISTS(fpo$) = 0
    FILE_OPEN_WRITE 1, fpo$
    RESTORE
    FOR i% = 1 TO VAL(MID$(DATE$, 4, 2))
        READ m$
    NEXT i%
    d$ = LEFT$(DATE$, 2) + " " + m$ + " " + RIGHT$(DATE$, 4)
    FILE_WRITELN 1, dl$ + d$ + " à " + TIME$ + " INIT ****"
    FILE_WRITELN 1, "Initialisation"
    FILE_CLOSE 1
END_IF
FILE_OPEN_READ 1, fpo$
WHILE FILE_EOF(1) = 0
  FILE_READLN 1, a$
  IF LEFT$(a$, 5) = dl$
      FILE_READLN 1, b$: a$ = a$ + CHR$(13) + CHR$(10) + b$
      nart% = nart% + 1: art$(nart%) = a$
  END_IF
END_WHILE
FILE_CLOSE 1
FILE_OPEN_WRITE 1, ftm$
    FOR i% = nart% TO 1 STEP -1
        a$ = art$(i%)
        k% = INSTR(a$, CHR$(13))
        FILE_WRITELN 1, LEFT$(a$, k%-1): a$ = MID$(a$, k%+2, LEN(a$)-k%-1)
rq:
        IF LEN(a$) > ll%
            FOR j% = ll%+1 TO 1 STEP -1
                IF MID$(a$, j%, 1) = " " THEN EXIT_FOR
            NEXT j%
            FILE_WRITELN 1, LEFT$(a$, j%-1)
            a$ = MID$(a$, j%+1, LEN(a$)-j%): GOTO rq
        END_IF
        FILE_WRITELN 1, a$
    NEXT i%
FILE_CLOSE 1
FILE_LOAD LS%, ftm$
FILE_DELETE ftm$
RETURN

Supart:
i% = MESSAGE_CONFIRMATION_YES_NO("Supprimer cet article")
IF i% = 1
    x% = ITEM_INDEX(LS%)
rr:
    a$ = ITEM_READ$(LS%, x%)
    IF LEFT$(a$, 5) <> dl$ THEN x% = x% - 1: GOTO rr
    IF INSTR(a$, "INIT") > 0
        MESSAGE "Suppression du 1er article (Init) interdite !": RETURN
    END_IF
    FILE_OPEN_READ 1, fpo$
    FILE_OPEN_WRITE 2, ftm$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1, b$
            IF b$ = a$
                FILE_READLN 1, b$: ' ignore la ligne et la suivante
            ELSE
                FILE_WRITELN 2, b$
            END_IF
        END_WHILE
    FILE_CLOSE 1
    FILE_CLOSE 2
    ' Recopie du fichier temporaire dans le fichier Postit.txt
    FILE_OPEN_READ 1, ftm$
    FILE_OPEN_WRITE 2, fpo$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1, a$: FILE_WRITELN 2, a$
        END_WHILE
    FILE_CLOSE 1
    FILE_CLOSE 2
    GOSUB Mef
END_IF
RETURN