Bibliothèque de Subs (suite)

LABEL Sel, ToClip
DIM fs$, a$, b$, i%, k%, hl%, nl%

fs$ = "c:\PANORAMIC\SUB_Bib.bas": ' <======= À AJUSTER ==================
' L'en-tête du fichier SUB_Bib.bas comporte la liste des subs avec leur fonction,
' sous la forme: ' - NomSub() fonction
FILE_OPEN_READ 1, fs$: nl% = 0: ' calcul nb de lignes de la liste des subs
    FILE_READLN 1, a$
    WHILE LEFT$(a$,3) <> "' =": nl% = nl% + 1: FILE_READLN 1, a$: END_WHILE
FILE_CLOSE 1

HEIGHT 0, SCREEN_Y-40: BORDER_SMALL 0
CAPTION 0,"  -  SUB_BIB  -    Copie  d'une  SUB  dans  le  Clipboard  -"
LIST 1: WIDTH 1,580: HEIGHT 1,640
FONT_NAME 1,"Lucida Console": FONT_SIZE 1,9: FONT_COLOR 1,0,0,128
ON_CLICK 1, Sel
hl% = nl%*12+5: IF hl% > 640 THEN hl% = 640
HEIGHT 1, hl%
FILE_OPEN_READ 1, fs$
    FILE_READLN 1, a$
    WHILE LEFT$(a$,3) <> "' ="
        ITEM_ADD 1, a$: FILE_READLN 1, a$
    END_WHILE
FILE_CLOSE 1
ALPHA 2: TOP 2,hl%+5: LEFT 2,40: COLOR 2,255,255,0: FONT_BOLD 2
a$ = "Cliquer une Sub.  "
a$ = a$ + "La SUB ci-dessous sera automatiquement copiée dans le Clipboard"
CAPTION 2,a$
LIST 3: TOP 3,hl%+20: WIDTH 3,WIDTH(1): HEIGHT 3,HEIGHT(0)-hl%-55
FONT_NAME 3,"Lucida Console": FONT_SIZE 3,9: COLOR 3,255,255,180
MEMO 4: HIDE 4
END
' ------------------------------------------------------------------------------
Sel:
b$ = ITEM_INDEX$(1)
IF LEFT$(b$,4) <> "' - " THEN RETURN
CLEAR 3
b$ = MID$(b$, 5, 100): k% = INSTR(b$, "("): b$ = UPPER$(LEFT$(b$, k%-1))
FILE_OPEN_READ 1, fs$
    FILE_READLN 1, a$
    WHILE INSTR(UPPER$(a$), "SUB "+b$) = 0
        FILE_READLN 1, a$
    END_WHILE
    ITEM_ADD 3, a$
    FILE_READLN 1, a$
    WHILE INSTR(UPPER$(a$), "END_SUB") = 0
        ITEM_ADD 3, a$
        FILE_READLN 1, a$
    END_WHILE
    ITEM_ADD 3, a$
FILE_CLOSE 1
GOSUB ToClip
RETURN
' ------------------------------------------------------------------------------
ToClip:
CLEAR 4
k% = 0
FOR i% = 1 TO COUNT(3)
    a$ = ITEM_READ$(3, i%)
    ITEM_ADD 4, a$: k% = k% + LEN(a$)+2
NEXT i%
SELECT_TEXT 4,1,k%
CLIPBOARD_COPY 4
RETURN

SUB Supnul(rep$)
' Suppression de tous les fichiers vides (taille = 0) du répertoire rep$
DIM_LOCAL su_a$
IF VARIABLE("su_nbs%") = 0 THEN DIM su_nbs%
EXECUTE_WAIT "CMD.exe /C DIR " + rep$ + " >C:\Fdir.tmp"
IF RIGHT$(rep$,1) <> "\" THEN rep$ = rep$ + "\"
su_nbs% = 0
FILE_OPEN_READ 9, "C:\Fdir.tmp"
WHILE FILE_EOF(9) = 0
    FILE_READLN 9, su_a$
    IF su_a$<>"" AND LEFT$(su_a$,1)<>" " AND MID$(su_a$,37,1)<>"."
        IF MID$(su_a$, 34, 2) = " 0"
            FILE_DELETE CHR$(34)+r$+MID$(su_a$, 37,100)+CHR$(34)
            su_nbs% = su_nbs% + 1
        END_IF
    END_IF
END_WHILE
FILE_DELETE "C:\Fdir.tmp"
END_SUB

DIM r$, f$
OPEN_DIALOG 90
WIDTH 0,340: HEIGHT 0,400: FONT_BOLD 0: BORDER_SMALL 0
CAPTION 0, " - SUPPRESSION DES FICHIERS VIDES D'UN RÉPERTOIRE -"
f$ = FILE_NAME$(90): IF LEN(f$) < 3 THEN TERMINATE
r$ = FILE_EXTRACT_PATH$(f$)
PRINT "Répertoire: " + r$
Supnul(r$)
PRINT " -> " + STR$(su_nbs%) + " fichiers vides supprimés."
END

' ---------
Sub Codec(texte$)
b$ = "": DIM ic%: ' codage de texte$ => b$ par JL35 modifiée JC:' retourne b$
FOR ic% = 1 TO LEN(texte$)
b$=b$+CHR$(BIN_XOR(ASC(MID$(texte$,ic%,1)),200-ic%*2))
NEXT ic%: FREE ic%
End_Sub