[Georgio]

А как сделать что бы он открывался чем стоит в системе »

Код:

@echo off
goto:#


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


:#

for %%i in (
 "D:\Work\110\1.txt/start"
 "D:\Work\110\2.txt"
 "D:\Work\110\3.txt"
 "D:\Work\110\4.txt"
 "D:\Work\110\5.txt/start"
 "D:\Work\110\6.txt"
 "D:\Work\110\7.txt"
 "D:\Work\110\8.txt"
 "D:\Work\110\9.txt/start"
 ) do (
 set /a count+=1
 call set %%count%%=%%i
 )

for /f %%i in ('
"findstr /x ##################################### "%~fs0"| find /c /v """
') do (
 for /f %%j in ('
  set /a %%i-1
 ') do (
  for /l %%k in (1 1 %%j) do (
   set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%k))"<nul>.vbs
   for /f "tokens=1,2 delims=/" %%l in ('
   "call set /p=%%%%k%%<nul"
   ') do (
    rem "if defined %%k" is not the mistake.
    if defined %%k (
     cscript //nologo .vbs>"%%l"
     )
    if "%%m"=="start" (
     start "" "%%l"
     )
    )
   )
  )
 )
del .vbs

exit /b