[Hancog]

Невозможно дать корректный ответ на некорректно поставленный вопрос. »

По моему выше дал конкретнее некуда ))

[Hancog]

##################################### Здесь расположен Ваш 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").ReadA ll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs for /f "delims=" %%j in (' call echo %%%%i%% ') do ( »

Georgio Еще спросить хотел можно ли добавить к всем файлам их запуск после создания,т.е что бы вот файл создался и сразу запустился,не для всех файлов нужен запуск,просто если к примеру я после всего bat пишу "D:\Work\87\~ ~\1.txt файл открывается,но только после того как все остальные создадутся,а нужно сразу

[Georgio]

Еще спросить хотел можно ли добавить к всем файлам их запуск после создания,т.е что бы вот файл создался и сразу запустился,не для всех файлов нужен запуск »

Код:

@echo off
goto:#

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

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

for /l %%i in (1 1 %quantity%) do (
 set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs
 for /f "tokens=1,2 delims=/" %%j in ('
 "call set /p=%%%%i%%<nul"
 ') do (
  cscript //nologo .vbs>"%%j"
  if not "%%k"=="" (
   start "" notepad "%%j"
   )
  )
 )
del .vbs

exit /b

[Hancog]

@echo off goto:# ##################################### Здесь расположен Ваш 1-ый текст! ##################################### Здесь расположен Ваш 2-ой текст! ##################################### Здесь расположен Ваш 3-ий текст! ##################################### Здесь расположен Ваш 4-ый текст! ##################################### Здесь расположен Ваш 5-ый текст! ##################################### Здесь расположен Ваш 6-ой текст! ##################################### Здесь расположен Ваш 7-ой текст! ##################################### Здесь расположен Ваш 8-ой текст! ##################################### Здесь расположен Ваш 9-ый текст! ##################################### :# set quantity=9 for %%i in ( "D:\Work\109\1.txt/start" "D:\Work\109\2.txt" "D:\Work\109\3.txt" "D:\Work\109\4.txt" "D:\Work\109\5.txt/start" "D:\Work\109\6.txt" "D:\Work\109\7.txt" "D:\Work\109\8.txt" "D:\Work\109\9.txt/start" ) do ( set /a count+=1 call set %%count%%=%%i ) for /l %%i in (1 1 %quantity%) do ( set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0 ").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs for /f "tokens=1,2 delims=/" %%j in (' "call set /p=%%%%i%%<nul" ') do ( cscript //nologo .vbs>"%%j" if not "%%k"=="" ( start "" notepad "%%j" ) ) ) del .vbs exit /b »

А как сделать что бы он открывался чем стоит в системе,к примеру вот у меня первый текст (файл) это .wsh скрипт,а он открывается как текстовой документ

[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

[Hancog]

Последние извиняюсь что каждый раз тревожу,а как сделать так что если путь к примеру D:\Work\110\1.txt нету он сам создавал,ну т.е папки что бы сами создавались,что бы их не нужно было вручную создавать
И да еще что бы он запускался с любой папки,просто к примеру если сам bat лежит не в деректории D:\Work\110 ,а на рабочем столе,и его запустить не чего не произойдет,все работает только если батник в той дирректории где нужно