set "var="
 

@echo off
title Base de datos Clientes
color fc
 
If not exist "%homedrive%\clientes.txt" (echo.>"%homedrive%\clientes.txt")
 
 
:############################################################
 
REM En esta parte no he correjido nada importante, solo sintaxis y gramática xD, el "ELSE" del final...
 
REM Reseteando variables...
 
 
:MENU
 
Set o=
set check=
Set de=
set bo=
 
cls
echo.
echo %time%
echo  ##########
echo.
echo.
echo  1.- Agregar Cliente
echo  2.- Buscar dentro de la Base de datos
echo  3.- Mostrar el contenido de la Base de datos
echo  4.- Borrar Base de datos
echo.
echo.
set /p o= Elija una opci¢n: 
if not defined o (goto :menu)
if %o%==1 (goto :add)
if %o%==2 (goto :b) 
if %o%==3 (goto :x) 
if %o%==4 (goto :dl)
goto :menu
 
 
 
:############################################################
 
REM Aqui nos aseguramos de que ningún campo queda vacío...
 
 
:add
 
set name=
set dire=
set n=
set c=
set t=
set s=
 
 
cls
echo.
set /p name=- Nombre de cliente: & Call :verify name
set /p dire=- Direcci¢n        : & Call :verify dire
set /p n=- N£mero           : &    Call :verify n
set /p c=- Compras Recientes: &    Call :verify c
set /p t=- Talla            : &    Call :verify t
set /p s=- Sexo             : &    Call :verify s
echo Cliente   : %name%>>%homedrive%\clientes.txt
echo Direcci¢n : %dire%>>%homedrive%\clientes.txt
echo N£mero    : %n%>>%homedrive%\clientes.txt
echo Compras   : %c%>>%homedrive%\clientes.txt
echo Talla     : %t%>>%homedrive%\clientes.txt
echo Sexo      : %s%>>%homedrive%\clientes.txt
echo -------------------------------------------------;>>%homedrive%\clientes.txt
echo Generado Correctamente.
echo+
pause
goto :menu
 
 
:verify
if not defined %1 (
	set %1=Ninguno
	goto :eof
) ELSE (
	goto :eof
)
 
 
:############################################################
 
 
REM no te recomiendo usar setlocal si hay productos o datos que contengan caracteres especiales como "Nike!" ...pues no los vas a encontrar xD
 
REM en el metodo de buscqueda no he podido hacer nada mejor, habria sido fácil usando tail y txtback porque cada cliente esta separado en 7 líneas, pero bueno, no me he kerido comer más el coco  :xD
 
:b
cls
echo+
set /p bo=- ¨Que desea buscar dentro de la Base de datos?: 
 
find "%bo%" "%homedrive%\clientes.txt" >nul
If %errorlevel% equ 0 (
	find "%bo%" "%homedrive%\clientes.txt"
	echo+
	pause
	goto :menu
) ELSE (
	echo+
	echo No se ha encontrado ninguna coincidencia, Intentelo de nuevo...
	echo+
	pause
	goto :menu
)
 
 
 
Goto :menu
 
 
:############################################################
 
 
REM Ahora el código reconoce varias respuestas (si,SI,Si,sI,sí,Sí - No,no,NO,nO) en cambio tu código solo reconocia dos (Aunque no te lo parezca así era).
 
:dl
 
 
cls
echo.
echo  Se borrar… la base de datos, ¨Est… seguro?  Si/No
echo  Se perder…n todos los datos guardados...
set /p de=^>^>
 
echo %de%| findstr /I "^S.$" >nul
If %errorlevel% equ 0 (goto :del)
 
echo %de%| findstr /I "^NO$" >nul
If %errorlevel% equ 0 (goto :menu)
 
Goto :menu
 
:############################################################
 
REM Mas vale prevenir que curar, Los HDD's a veces se estropean, mejor nos aseguramos de que la lista se borre de verdad xD
 
:del
 
cls
echo+
echo  Borrando...
ping -n 2 localhost >nul
 
del /q /f "%homedrive%\clientes.txt" >nul 2>&1
IF %ERRORLEVEL% EQU 0 (
        echo Eliminado.
	echo+
        pause
        goto :menu
) ELSE (
        cls        
        echo No se pudo borrar la lista.
	echo+
        pause
	goto :checkeo
)
 
 
:############################################################
 
REM Y esta parte me la invento xD
 
 
:checkeo
cls
echo  ¨Quiere iniciar un escaneo de errorer de su disco duro? Si/No
echo  Se reiniciar… el Pc...
set /p CHECK=^>^>
 
echo %CHECK%| findstr /I "^S.$" >nul
If %errorlevel% equ 0 (
             echo S | chkdsk %homedrive% /F /R /X >nul
             shutdown -r -t 10
)
 
 
echo %CHECK%| findstr /I "^NO$" >nul
If %errorlevel% equ 0 (goto :menu)
 
Goto :menu
 
 
:############################################################
 
REM En el antiguo código, Sí la lista es demasiado larga no se mostraría entera... Queda corregido por si acaso.
 
:x
cls
echo.
type "%homedrive%\clientes.txt" | More /E /C
echo+
pause
goto :menu

type "clientes.txt" | findstr "^cliente"

type "clientes.txt" | find "clientes"