Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
 | | Sujet: Re: Bibliothèque de Subs (suite) Dim 24 Mar 2013 - 15:38 | |
| Moi je trouve çà classe!
Chacun sa méthode, mais celle-ci mérite des applaudissements.
Quant aux souris, je les laisse T.chater tranquilles.
A+ | |
|
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Bibliothèque de Subs (suite) Ven 29 Mar 2013 - 11:08 | |
| Allez, une toute petite Sub sans prétention (bon, sans grand intérêt non plus): suppression de tous les fichiers vides d'un répertoire (j'en avais...): - Code:
-
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 Usage (par exemple, cliquer sur un fichier quelconque du répertoire: - Code:
-
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 | |
|
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Bibliothèque de Subs (suite) Ven 29 Mar 2013 - 17:01 | |
| Merci JL35,
J'avais fait un truc similaire que je n'ai pas publié car je ne le trouvait pas pratique, hé bien je vais pouvoir le mettre à la poubelle car le tien me plait mieux.
A+ | |
|
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Bibliothèque de Subs (suite) Ven 29 Mar 2013 - 21:04 | |
| Une autre que tu avais publiée sous forme de label et que j'ai transformée en procédure ! - Code:
-
' ---------
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
Ta contribution sert..... A+ | |
|
Contenu sponsorisé
| | Sujet: Re: Bibliothèque de Subs (suite) | |
| |
|
Calendrier