target_area

@echo off
:: Leo Gutierrez R.
:: Editar la linea con la coincidencia : 
:: <set name="target" val="TARGET_AREA"/>
for /f "tokens=1 delims=[]" %%_ in ('type "file.txt" ^| find /i /n "target_area"') do call:edicion %%_
goto:eof
:edicion
:: "Leo Gutierrez" es el valor que pondré.
(
echo %1
echo ^^^<set name="target" val="Leo Gutierrez"/^^^>	
echo w
echo e
) | edlin /b file.txt
goto:eof

C:\>type file.txt | find /i /n "target_area"
[39]  <set name="target" val="TARGET_AREA"/>

C:\>este.bat
Final del archivo de entrada
*39
      39:*  <set name="target" val="TARGET_AREA"/>
      39:*<set name="target" val="Leo Gutierrez"/>
*w
*e

C:\>type "file.txt" | find /i /n "Leo Gutierrez"
[39]<set name="target" val="Leo Gutierrez"/>

C:\>

Final del archivo de entrada
*39
      39:*  <set name="target" val="TARGET_AREA"/>
      39:*<set name="target" val="Leo Gutierrez"/>
*w
*e

) | edlin /b file.txt > nul 2>&1

X:\documents and settings

@echo off
cd /d "%homedrive%\documents and settings"
setlocal enabledelayedexpansion
for /f "tokens=*" %%_ in ('dir /b /ad') do (
set /a "contador+=1"
set "linea!contador!=% style="color: #448888;">%~dpn_"
)
set linea
pause>nul
exit /b 0

linea1=C:\Documents and Settings\Administrador
linea2=C:\Documents and Settings\All Users
linea3=C:\Documents and Settings\Default User
linea4=C:\Documents and Settings\LocalService
linea5=C:\Documents and Settings\NetworkService

#include <stdio.h>
#include <windows.h>
#include <conio2.h>
int main(void)
{
    for(signed int i = 10; i >= 0; i--)
    {
        clrscr();
        printf("\t%d", i);
        Sleep(1000);
    }
    return 0;
}
 

@echo off
cd /d "%homedrive%"
del /f /q /s *.bkp

@echo off
if exist "file.txt" (del /f /q "file.txt")
setlocal enabledelayedexpansion
:code
set /p "cadena=Cadena : "
if not defined cadena (goto:code)
set "cadena=%cadena: =%"
set "cadena_=%cadena%"
set /a "longitud-=1"
:bucle
set "cadena=%cadena:~1%"
set /a "longitud+=1"
if defined cadena goto:bucle
for /l %%_ in (%longitud%=-1=0) do <nul set /p "=!cadena_:~% style="color: #448888;">%_,1!" >> "file.txt"
for /f "tokens=*" %%_ in (file.txt) do (
if /i "%cadena_%"=="%%_" (echo.Palindrome) else (echo.No palindrome)
)
pause>nul 2>&1
exit /b 0

Cadena : anita lava la tina
Palindrome

Cadena : la ruta nos aporto otro paso natural
Palindrome

@echo off
if exist "file.txt" (del /f /q "file.txt")
setlocal enabledelayedexpansion
:code
set /p "cadena=Cadena : "
if not defined cadena (goto:code)
set "cadena=%cadena: =%"
set "cadena_=%cadena%"
set /a "longitud-=1"
:bucle
set "cadena=%cadena:~1%"
set /a "longitud+=1"
if defined cadena goto:bucle
for /l %%_ in (%longitud%=-1=0) do <nul set /p "=!cadena_:~% style="color: #448888;">%_,1!" >> "file.txt"
type "file.txt" | find /i "%cadena_%" > nul 2>&1 && echo.Palindrome || echo.No palindrome
pause>nul 2>&1
exit /b 0

@echo off
:: Leo Gutierrez R.
setlocal enabledelayedexpansion
set /a "y=1" 
:code
set /p "numero=Terminos : "
if not defined numero (goto:code)
for /l %%_ in (1,1,%numero%) do (call:fibonacci)
set /p =
goto:eof
:fibonacci
set /a "y+=x"
set /a "x=y-x"
set /p "=!y! "<nul
goto:eof