Код: Выделить всё
@echo off
goto:#
#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################
:#
set quantity=9
for %%i in (
"D:\Work\87\~ ~\1.txt"
"D:\Work\87\~ ~\2.txt"
"D:\Work\87\~ ~\3.txt"
"D:\Work\87\~ ~\4.txt"
"D:\Work\87\~ ~\5.txt"
"D:\Work\87\~ ~\6.txt"
"D:\Work\87\~ ~\7.txt"
"D:\Work\87\~ ~\8.txt"
"D:\Work\87\~ ~\9.txt"
) do (
set /a count+=1
call set %%count%%=%%i
)
for /l %%i in (1 1 %quantity%) do (
set /p="WScript.Echo(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))".vbs
for /f "delims=" %%j in ('
call echo %%%%i%%
') do (
cscript //nologo .vbs| clip
for /l %%i in (1 1 5000) do (
pausenul
)
mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(ClipboardData.GetData("text"))&Close()">%%j
)
)
del .vbs
exit /b