[Iska]

blackeangel, у Вас там в файле Unix'овские концы строк. И хотелось бы увидеть образцы Ваших файлов, из которых Вы будете делать замену (разумеется, так же — в архиве).

Вот примерная болванка на WSH на пробу:

Скрытый текст

Код:

Option Explicit

Dim strSourceFile
Dim strReplaceFile

Dim strContent
Dim strReplace


strSourceFile = "C:\Мои проекты\init\init.rc"
strReplaceFile = "C:\Мои проекты\init\Replace.rc"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		If .FileExists(strReplaceFile) Then
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With .OpenTextFile(strReplaceFile)
				strReplace = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.Global = True
				.MultiLine = True
				.IgnoreCase = True
				.Pattern = "^(    #Camera\n)([\s\S]+?)(\n    #/dev/RT_Monitor)$"
				
				If .Test(strContent) Then
					strContent = .Replace(strContent, "$1" & strReplace & "$3")
				Else
					WScript.Echo "Can't find pattern [" & .Pattern & "]."
					WScript.Quit 3
				End If
			End With
			
			With .CreateTextFile(strSourceFile + ".txt")
				.Write strContent
				.Close
			End With
		Else
			WScript.Echo "Can't find replace file [" & strReplaceFile & "]."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

Сохраните приведённый код в файл с расширением .vbs, замените выделенное на пути к Вашим реальным исходному и заменяющему файлам. Результирующий файл получит имя исходного плюс «.txt». Посмотрите, что получается.

Foreigner, sed это программа, так понимаю, для поиска и замены текста? »

Это портированная из Unix утилита, редактор потока (Stream EDitor — SED). Для Windows можно взять, например, отсюда.

[Georgio]

blackeangel, надо было предупредить, что у Вас исходный файл в формате UNIX.


Код:

Код:

@echo off

set "file=init.rc"
set "marker_1=#Camera"
set "marker_2=#/dev/RT_Monitor"

for /f "delims=:" %%i in ('
 2^>nul findstr/iln /c:"%marker_1%" /c:"%marker_2%" "%file%"
') do (
 if not defined x (set x=%%i) else (set y=%%i)
)
for %%i in ("%file%") do (
 for %%? in (1 2 3) do 2>nul del "%%~ni_%%?%%~xi"
 for /f "delims=" %%j in ('2^>nul findstr/n "^" %%i') do (
  set z=%%j
  for /f "delims=:" %%k in ("%%j") do (
   if %%k leq %x% (set n=1) else (if %%k lss %y% (set n=2) else (set n=3))
   for /f %%l in ('set/a n') do >>"%%~ni_%%l%%~xi" cmd/v/c echo.!z:*:^^=!
  )
 )
)

exit/b

.


Полученные файлы будут в формате Windows.

[blackeangel]

Iska, спасибо большое конечно за vbs, но на моей машине эти скрипты не запустятся,так же как и js

[Iska]

но на моей машине эти скрипты не запустятся,так же как и js »

Запрет на исполнение скриптов?

[blackeangel]

Iska, наверное, поэтому предпочтение exe и bat

[blackeangel]

Georgio, спасибо, скрипт отработал великолепно

[blackeangel]

Foreigner, спасибо за вывод из файла нужных строк

[blackeangel]

Сделал сегодня так

Код:

echo #blackeangel>>init.rc
::выносит нужные строки в файл 
:: 1й кусок
sed.exe -n "/# Copyright/,/#Camera/ p"  init.rc | sed -r "/^.+#.+$/ d" > init1.rc
:: 2й кусок
sed.exe -n "/#Camera/,/#\/dev\/RT_Monitor/ p"  init.rc | sed -r "/^.+#.+$/ d" > init2.rc
:: 3й кусок
sed.exe -n "/#\/dev\/RT_Monitor/,/#blackeangel/ p"  init.rc | sed -r "/^.+#.+$/ d" > init3.rc

На выходе получил файл без комментариев содержащих пробелы.В чем проблема?
Файлы прилагаются,оригинал и разбитые

[blackeangel]

blackeangel, надо было предупредить, что у Вас исходный файл в формате UNIX. Полученные файлы будут в формате Windows.

А как тогда вернуть назад в формат Unix?

[Marakas5]

Здравствуйте! Облазил весь интернет, решения не нашел, как модифицировать примеры в этом топике под себя понять не могу, поэтому прошу вашей помощи, надеюсь, не откажете.
Ситуация следующая: имеется file.txt, который нужно разбить на равное количество строк (с этим я справился), но сохранить результаты в разные папки (их список построчно лежит в list.txt) с одним и тем же (finish.txt) именем. Папок физически на диске нет, т.е. их надо сначала создать. Названия папок могут содержать точки.
Подскажите, пожалуйста, как это можно реализовать. Большое вам спасибо.