salut,
voici quelques fonctions pour traiter les chaînes de caractères:
fonction Length: affiche le nombre de caractères saisie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53 @echo off & setlocal enabledelayedexpansion enableextensions set "str=%*" if not defined str (set /p str=Entrez une chaine: %) echo. call :length "%str%" call :count "%str%" call :reverse "%str%" call :ucase "%str%" call :2hexa "%str%" set length set [ set reverse set ucase set hexa pause endlocal & goto:eof :length for /f "tokens=1* delims=][" %%a in (' "%comspec% /u /c echo:%~1|more|find /n /v """ ') do Set /A "length=%%a-4" goto:eof :count for /f %%: in (' "%comspec% /u /c echo:%~1|more|sort" ') do Set /A "[%%:]+=1" goto:eof :reverse for /f "tokens=1* delims=:" %%a in (' "%comspec% /u /c echo:%~1|more|findstr /o ." ') do Set "reverse=%%b!reverse!" goto:eof :ucase for /f "tokens=1* delims=µ" %%a in (' "tree \µµµ%1|find ":\"" ') do Set "ucase=%%b" goto:eof :2hexa <nul>$asc$ set/p"=%~1" for /l %%i in (1 1 %length%) do <nul>>$hex$ set/p"=µ" for /f "skip=1 tokens=3" %%i in (' fc /b $hex$ $asc$ ') do Set "hexa=!hexa!%%i-" set "hexa=%hexa:~0,-1%" & del $asc$ $hex$ goto:eof
fonction count: compte le nombre de lettre dans la chaine
fonction reverse: inverse la chaine
fonction ucase: transforme la chaîne en majuscule
fonction hexa: affiche la valeur hexadecimal de chaque lettre
Partager