[megaloman]

bat (исключительно для собственного удовольствия)

Код:

@echo Off &Cls
	Set "FileIn=Z:\Box_In\ask1.txt" 
	Set "FileOut=Z:\Box_In\ask1_Out.txt" 

	If Not Exist "%FileIn%" (Echo !!! File "%FileIn%" not found &Pause &Exit /B 2) 
	>"%FileOut%" (For /F "usebackq delims=" %%s In (`findstr /R "^| [0-9][0-9][0-9][0-9][0-9][0-9][0-9]*" "%FileIn%"`) Do (
		Set "Out=%%s" &Call Echo "%%Out:~-18%%",))
Pause
Exit /B

Код:

@echo Off &Cls
	Set "FileIn=Z:\Box_In\ask2.txt" 
	Set "FileOut=Z:\Box_In\ask2_Out.txt" 
	
	Set "Out="
	If Not Exist "%FileIn%" (Echo !!! File "%FileIn%" not found &Pause &Exit /B 2) 
	For /F "usebackq delims= " %%s In (`findstr /R /B "[0-9][0-9]*" "%FileIn%"`) Do Call Set "Out=%%Out%%,%%s"
	Set "Out=%Out:~1%"
	>"%FileOut%" (Echo %Out%)
Pause
Exit /B

Код:

@echo Off &Cls
	Set "FileIn=Z:\Box_In\ask3.txt" 
	Set "FileOut=Z:\Box_In\ask3_Out.txt" 

	If Not Exist "%FileIn%" (Echo !!! File "%FileIn%" not found &Pause &Exit /B 2) 
	>"%FileOut%" (For /F "usebackq tokens=3 delims= " %%s In (`findstr /R ".* .*: .....-.....-..... |" "%FileIn%"`) Do Echo %%s)
Pause
Exit /B