[Iska]

кирилицы нету »

Да ну?! Ладно, я допускаю, что у Вас пользователь имеет латинское имя. А что у Вас в «\profile\name», в «\ntp\app_page_names», в «\ntp\promo_line»?

[Georgio]

да мне больше в принципе не чего не надо,разобраться как 2 в 1 сделать и все »

Разбирайтесь:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion
<"%~f0" (for %%i in (.) do call:sub)
exit /b

:sub
 setlocal enableextensions enabledelayedexpansion
 :sub.1
  (
  set "line="
  set /p "line="
  if not "!line!"==":::::::::::::::::::::::::::::::::::::" goto %0.1
  )
  copy nul "some file 1.cfg">nul
 :sub.2
  (
  set "line="
  set /p "line="
  if not "!line!"=="#####################################" (echo.!line!& goto %0.2)
  )>>"some file 1.cfg"
  copy nul "some file 2.cfg">nul
 :sub.3
  (
  set "line="
  set /p "line="
  if "!line!"=="*************************************" goto %0.4
  echo.!line!
  goto %0.3
  )>>"some file 2.cfg"
 :sub.4
  endlocal
  exit /b


:::::::::::::::::::::::::::::::::::::
Здесь
расположен
Ваш первый текст!
#####################################
Здесь
расположен
Ваш второй текст!
*************************************

.

[Hancog]

Разбирайтесь: »

Подскажите пожалуйста как сделать 9 файлов? и как указать путь к файлам,а не что бы в той папке где батник было

[Hancog]

ап тему

[Georgio]

Код:

@echo off
set quantity=9
for %%i in (
 "D:\Work\82\1.txt"
 "D:\Work\82\2.txt"
 "D:\Work\82\3.txt"
 "D:\Work\82\4.txt"
 "D:\Work\82\5.txt"
 "D:\Work\82\6.txt"
 "D:\Work\82\7.txt"
 "D:\Work\82\8.txt"
 "D:\Work\82\9.txt"
 ) do (
 for /f %%j in ('
  set /a quantity+12
 ') do (
  <"%~f0">%%i more +%%j
  )
 )
exit /b
####################
Здесь (начиная со слова "Здесь")
расположен
Ваш текст!

[Hancog]

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

[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

[Hancog]

Спасибо

[Hancog]

Еще спросить хотел,не получается сохранить файлы где переменные пути т.е к примеру в %appdata%
Просто я так понял что он создает отдельный vbs и через него уже записует,а в нем не поддержуется такой вид пути,точнее подерживается но по другомы выглядит,поэтому подскажите пожалуйста

[Iska]

Hancog, Вы сейчас о чём? Ваш вопрос как-то связан с данной темой?