[Georgio]

У меня в 9 файлах разный текст,как сделать что бы во всех файлах был нужный текст »

Код:

@echo off
goto:#

#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################

:#
set quantity=9
for %%i in (
 "D:\Work\79\1.txt"
 "D:\Work\79\2.txt"
 "D:\Work\79\3.txt"
 "D:\Work\79\4.txt"
 "D:\Work\79\5.txt"
 "D:\Work\79\6.txt"
 "D:\Work\79\7.txt"
 "D:\Work\79\8.txt"
 "D:\Work\79\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))"<nul>.vbs
 for /f %%j in ('
  call echo %%%%i%%
 ') do (
  cscript //nologo .vbs| clip
  for /l %%i in (1 1 5000) do (
   pause<nul>nul
   )
  mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(ClipboardData.GetData("text"))&Close()">%%j
  )
 )
del .vbs

exit /b