'$lang: "qb"
REM                                renomer
REM                               =========
   
    qot$ = CHR$(34)
    
    Dir$="dir *.* /b /o n>dir$.$$$"
    Shell Dir$  
  
    OPEN "i", #3, "dir$.$$$"
    OPEN "o", #8, "$renomer.bat"
    
    If UCase$(Mid$(Command$,1,1)) = "U" Then indic$ = "U"
    If UCase$(Mid$(Command$,1,1)) = "L" Then indic$ = "L"
    If indic$ <> "" Then Print #8,"Mode Manuel"
debut:
    GoSub lecture
    If fichier$ = "***" Then GoTo fin
    GoSub trait
    GoTo debut
lecture:
    IF EOF(3) THEN fichier$="***": return
    LINE INPUT #3, fichier$
    minus$ = LCASE$(fichier$)
    maxi$ = UCase$(fichier$)
    Return
auto:
    For i=1 To Len(fichier$)
    	If Mid$(fichier$,i,1) <> Mid$(maxi$,i,1) Then indic$ = "U": Print #8, "Mode Automatique Majuscule ";i:Return 
    	If Mid$(fichier$,i,1) <> Mid$(minus$,i,1) Then indic$ = "L": Print #8, "Mode Automatique Minuscule ";i: Return  
    Next i
    Return
trait:
    If minus$=maxi$ Then Return
    If indic$ = "" Then GoSub auto 
    If indic$="U" And fichier$=maxi$ Then Return
    If indic$="L" And fichier$=minus$ Then Return
    If indic$ = "U" Then 
    	   Print #8, "ren ";qot$;fichier$;qot$; " "; qot$;maxi$;qot$ 
    Else Print #8, "ren ";qot$;fichier$;qot$; " "; qot$;minus$;qot$ 
    EndIf
    Return

fin:
    Print #8, "del dir$.$$$"
    Print #8, "del $renomer.bat"
    Close 8
    Close 3

    Shell "call $renomer.bat"
    End

============================================= C R O S S - R E F E R E N C E =============================================
separateurs # ,;()=<>+\
commandes #defint#$include#call#command$#time$#sound#space$#date$#return#shell#chr$#rem#print#lcase$#ucase$#open#close#if#on#then#goto#gosub#eof#line#input#instr#val#mid$#len#asc#lprint#do#while#wend##play#int#beep#kill#end#else#dim#for#or#and#not#next#to#select#case#str$#elseif#endif#width#cls#
sauf #a-z#
============================================= C R O S S - R E F E R E N C E =============================================
Nom    Ligne Paragraphe
====== ===== ============================================================================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
auto	0027 lecture
auto	0035 trait
debut	0016 
debut	0020 debut
fin	0018 debut
fin	0044 trait
lecture	0017 debut
lecture	0021 debut
trait	0019 debut
trait	0033 auto
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
Dir$	0007 
Dir$	0008 
fichier$	0018 debut
fichier$	0022 lecture
fichier$	0023 lecture
fichier$	0024 lecture
fichier$	0025 lecture
fichier$	0028 auto
fichier$	0029 auto
fichier$	0030 auto
fichier$	0036 trait
fichier$	0037 trait
fichier$	0039 trait
fichier$	0040 trait
indic$	0013 
indic$	0014 
indic$	0015 
indic$	0029 auto
indic$	0030 auto
indic$	0035 trait
indic$	0036 trait
indic$	0037 trait
indic$	0038 trait
maxi$	0025 lecture
maxi$	0029 auto
maxi$	0034 trait
maxi$	0036 trait
maxi$	0039 trait
minus$	0024 lecture
minus$	0030 auto
minus$	0034 trait
minus$	0037 trait
minus$	0040 trait
qot$	0005 
qot$	0039 trait
qot$	0039 trait
qot$	0039 trait
qot$	0039 trait
qot$	0040 trait
qot$	0040 trait
qot$	0040 trait
qot$	0040 trait
 -------------------------------------------- liste des variables numeriques --------------------------------------------
		0039 trait
	If	0029 auto
	If	0030 auto
i	0028 auto
i	0029 auto
i	0029 auto
i	0029 auto
i	0030 auto
i	0030 auto
i	0030 auto
i	0031 auto
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" "	0039 trait
" "	0040 trait
""	0015 
""	0035 trait
"$renomer.bat"	0011 
"***"	0018 debut
"***"	0022 lecture
"call $renomer.bat"	0050 fin
"del $renomer.bat"	0046 fin
"del dir$.$$$"	0045 fin
"dir *.* /b /o n>dir$.$$$"	0007 
"dir$.$$$"	0010 
"i"	0010 
"L"	0014 
"L"	0014 
"L"	0030 auto
"L"	0037 trait
"Mode Automatique Majuscule "	0029 auto
"Mode Automatique Minuscule "	0030 auto
"Mode Manuel"	0015 
"o"	0011 
"ren "	0039 trait
"ren "	0040 trait
"U"	0013 
"U"	0013 
"U"	0029 auto
"U"	0036 trait
"U"	0038 trait
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1	0013 
1	0013 
1	0014 
1	0014 
1	0028 auto
1	0029 auto
1	0029 auto
1	0030 auto
1	0030 auto
3	0010 
3	0022 lecture
3	0023 lecture
3	0048 fin
34	0005 
8	0011 
8	0015 
8	0029 auto
8	0030 auto
8	0039 trait
8	0040 trait
8	0045 fin
8	0046 fin
8	0047 fin
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                                renomer	0002 
REM                               =========	0003 
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" " (non unique, 2fois)
"" (non unique, 2fois)
"***" (non unique, 2fois)
"L" (non unique, 4fois)
"ren " (non unique, 2fois)
"U" (non unique, 5fois)
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1 (non unique, 9fois)
3 (non unique, 4fois)
8 (non unique, 9fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
============================================= C R O S S - R E F E R E N C E =============================================
