@Echo OFF
 
 
REM               [PARÁMETROS]
REM                KG ARCHIVO
Call :ElHacker.net 75 test.txt
Pause
Exit
 
 
:ElHacker.net
Setlocal enabledelayedexpansion
 
REM Eliminamos las lineas en blanco del archivo...
Type "%~2" | FINDSTR /I "[a-z]" > "%TEMP%\%~2"
 
Echo+
Echo:			[ Peso: %~1 ] - Resultados: | MORE
ECHO:________________________________________________________________________________
For /F "Delims=:" %%X in ('findstr /I /N "Peso..%~1" "%TEMP%\%~2"') do (
	Title Peso: %~1
	Set /A "LINE=0"
	Set /A "LAST=%%X+1"
	Set /A "FIRST=!LAST!-4"
	FOR /F "Tokens=*" %%# in ('Type "%~2"') do (
		Set /A "LINE+=1"
		IF NOT "!LINE!" EQU "!LAST!" (
			IF "!LINE!" EQU "!FIRST!" (
				Set /A FIRST+=1
				ECHO %%#
			)
		)
	)
	ECHO:________________________________________________________________________________
)
Setlocal disabledelayedexpansion
Goto :EOF

Nombre: Pepe
Edad: 32
Altura: 1.8
Peso: 75

Nombre: paco
Edad: 11
Altura: 2,9
Peso: 95+

Nombre: cheguevara
Edad: 99
Altura: 7,9
Peso: 95
Nombre: chrisss
Edad: 1000
Altura: 2,19
Peso: 75

Este código no me va:  
move "123\*" "456\*"

move "123\*" "456\"

Set objShell = WScript.CreateObject("WScript.Shell") 
oWSH.SendKeys "X"

@Echo off
 
:: [PASO 1]
:: Ejecutar el proceso Winamp y darle PLAY.
START /D "%Programfiles%\Winamp\" winamp.exe
Call :Winamp_Key "x"
 
:: [PASO 2]
:: Si BSPLAYER está activo, cerrar "Ds Clock", "Ds Logo", "Text Ticker", y darle PAUSE a Winamp.
:: Si BSPLAYER no está activo, iniciar "Ds Clock", "Ds Logo", y darle PLAY a Winamp.
:Loop
Tasklist /FI "IMAGENAME eq bsplayer.exe"  | Find /I "bsplayer" >NUL && (
	For /F %%# in ('Tasklist ^| Find /I "DSLOGO"') Do (Taskkill /F /T /IM "%%#" >NUL 2>&1)
	Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1
	Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1
	Call :Winamp_Key "c"
) || (
	START /D "%Programfiles%\DS Clock\" dsclock.exe
	FOR /R %%_ in (*DsLogo.exe) do ("%%_")
	Call :Winamp_Key "x"
)
 
:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
	(
	 Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
	 Echo Do Until Success = True
	 Echo     Success = objShell.AppActivate("winamp"^)
	 Echo     Wscript.Sleep 250
	 Echo Loop
	 Echo objShell.SendKeys "%~1"
	 Echo Wscript.quit
	)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\winamp.vbs"
	Del /Q "%TEMP%\Winamp.vbs"
	Goto :EOF
)
 
Ping -n 3 LOCALHOST >NUL
Goto :Loop

@Echo OFF
CHCP 1250 >NUL
FOR /F "tokens=3*" %%A IN ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Music"') DO (SET "MyMusic=%%~nB")
Echo.
Echo El valor de MyMus es %MyMusic% | MORE
 
REM Test
:: Crear la capeta "C:\Mi Música"
MKDIR "%SYSTEMDRIVE%\%MYMUSIC%" && Echo la carpeta "%SYSTEMDRIVE%\%MYMUSIC%" se cre¢ correctamente.
 
Pause
Exit

@echo off
echo La salida del comando REG QUERY es:
REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Music"
echo.
echo Con el comando FOR asignamos solo la ruta anterior a la variable MyMus
FOR /F "tokens=3*" %%A IN ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Music"') DO (SET MyMus=%%B)
echo.
echo El valor de MyMus es %MyMus%
Pause
Exit