@echo off
setlocal enabledelayedexpansion
 
:main
set /p "dir=Directorio: "
for /f %%x in ('dir /b %dir%') do (call :fichero !dir! %% style="color: #448888;">x)
goto:eof
 
:fichero
set "file=%1\%2"
for /f "tokens=*" %%_ in (%file%) do (
   ((echo %%_ | find "puerta" > nul) || (echo %%_ | find "frente" > nul)) && (call :linea "%%_") || (echo %%_ >> tmp.txt)
)
copy tmp.txt !file! > nul
echo  !file! hecho
del tmp.txt
goto:eof
 
:linea
for /f "delims=; tokens=1-6*" %%a in (%1) do (
   set "num=%%f" & set "num=!num:~0,-1!"
   set /a num-=1
   echo %%a;%%b;%%c;%%d;%%e;!num!.;%%g; >> tmp.txt
)
goto:eof

LST;1;
costados\koa9\koa9gx70;ko-//-a9-gx7-0 ; ;1;1;0;2278.;325.;18.;0;0;0;0;0;0;0;0;;;;
costados\koa9\koa9gx70;ko-//-a9-gx7-0 ;M;1;1;0;2278.;325.;18.;0;0;0;0;0;0;0;0;;;;
wa;baldas fondo 2, 3, 5 y 6;;0;0;1;1162.;280.;18.;0;0;;;;;;;;;;
plb;puerta com·n batiente ;;0;0;1;2275.;297.;20.;0;1;2;192;0;0;0;0;0;0;;

LST;1;
costados\koa9\koa9gx70;ko-//-a9-gx7-0 ; ;1;1;0;2278.;325.;18.;0;0;0;0;0;0;0;0;;;;
costados\koa9\koa9gx70;ko-//-a9-gx7-0 ;M;1;1;0;2278.;325.;18.;0;0;0;0;0;0;0;0;;;;
wa;baldas fondo 2, 3, 5 y 6;;0;0;1;1162.;280.;18.;0;0;;;;;;;;;;
plb;puerta com·n batiente ;;0;0;1;2274.;297.;20.;0;1;2;192;0;0;0;0;0;0;;

@echo off
setlocal enabledelayedexpansion
rem Saber en que linea vamos a cambiar:
for /f "tokens=1 delims=:" %%# in ('type "file.txt" ^| findstr /i /n "puerta"') do (
	set "n_line=%%#"
)
rem La linea
for /f "tokens=*" %%_ in ('type "file.txt" ^| findstr /i "puerta"') do (
	set "linea=%%_"
)
set /a "count=0"
for /f "tokens=*" %%_ in (file.txt) do (
	set /a count+=1
	rem Mostrar normalmente:
	if !count! lss !n_line! (
		echo %%_
	)
	rem Sino, procesar:
	if !count! equ !n_line! (
		for /f "delims=; tokens=1-6*" %%a in ('echo !linea!') do (
			set "numero=%%f"
			set "numero=!numero:~0, -1!"
			set /a numero-=1
			echo %%a;%%b;;%%c;%%d;%%e;!numero!.;%%g
		)
	)
)
 

@echo off
setlocal enabledelayedexpansion
for /f "delims=: tokens=1-2*" %%a in ('type "file.txt" ^| findstr /i /n "puerta"') do (
	set "n_line=%%a"
)
for /f "tokens=*" %%_ in ('type "file.txt" ^| findstr /i "puerta"') do (
	set "linea=%%_"
)
for /f "delims=; tokens=1-6*" %%a in ('echo !linea!') do (
	set "numero=%%f"
	set "numero=!numero:~0, -1!"
	set /a numero-=1
	call:edit %%a "%%b" %%c %%d %%e !numero! "%%g"
	goto:eof
)
:edit
::
(
	echo %n_line%
	echo %1;%~2;;%3;%4;%5;%6.;%~7 %~8
	echo w
	echo e
) | edlin /b file.txt > nul 2>&1
goto:eof
 
 

opendir(DIRHANDLE,".")||die "ERROR: no se puede leer directorio actual\n"; 
foreach (readdir(DIRHANDLE)){ 
next if ($_ eq "." || $_ eq "..");  
next if (-d "$_" && ! -l "$_");  
print $_ . "\n";
open (ENTRADA,"<$_") || die "ERROR: No puedo abrir el fichero $_\n";
#Los copio dentro la carpeta 
open (SALIDA,">modificados/$_") || die "ERROR: No puedo abrir el fichero $d/$_\n";
 
 
while ($s=<ENTRADA>)
  {
	my ($a, $_, $num, $b) = $s =~ m/(([^;]*;){6})([0-9]*)(.*)$/; 
 
	if (($s =~ /puerta/ ) || ($s =~ /frente/ ))
	{
		print "Encontrado";		
		$num--;
		$s = $a . $_ . $num . $b;
	}
	print SALIDA $s;
  }
  close (ENTRADA);
  close (SALIDA);
} 
closedir DIRHANDLE;