Programme qui relève les mots des phrase

@echo off
Setlocal EnableExtensions EnableDelayedExpansion
chcp 65001 >nul

set "phrase="
cls & echo. & echo Rentrez la phrase ?
set /p "phrase="

if not exist "%~dp0Stockage_mots" (mkdir "%~dp0Stockage_mots")
cd /d %~dp0Stockage_mots

set "phrase=!phrase! #"
set position=0
set "mot="

:debut
set caractere=!phrase:~%position%,1!

if "!caractere!"=="#" (call :resume & exit)

if not "!caractere!"==" " (
	if not "!caractere!"=="," (
		if not "!caractere!"=="." (set mot=!mot!!caractere!))) else (echo 1 fois; >>!mot!.txt & set "mot=")

set /a position+=1
goto :debut

:resume
cls
for %%A in (*.txt) do (

	set count=0
	for /f "usebackq delims=" %%E in ("%%~A") do set /a count+=1
	echo. & echo ==^>^> !count! ### %%~nA

)

echo. & pause
del /f /q "*.txt"
goto :eof

@echo off
Setlocal EnableExtensions EnableDelayedExpansion
chcp 65001 >nul

:debut
set "phrase="
cls & echo. & echo rentrer la phrase ?
set /p "phrase="

for /f "tokens=1,2, delims=#" %%A in (list.txt) do set phrase=!phrase:%%A={%%A}+1

echo. & echo !phrase! >>log.txt
echo. & pause
goto :debut