[Автоматизация] Копирование необходимых строк из документа в другой

[Evochka Turkova]

Доброго времени суток! Собственно, имеется документик, в котором есть заголовки и строки, Выглядит это вот так:

Заголовок номер 1
текст
текст
текст
текст
текст
текст

Заголовок номер 2
текст
текст
текст
текст
текст
текст

Подскажите на примере, как можно найти в документе и скопировать в отдельный документ, только 4 верхние строки, идущие под заголовком номер 1. Сам заголовок копировать не нужно. Также заголовков номер 1 в документе много, разбросаны по документу.

Заранее благодарю!!!

 

[joiner]

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
	$fr = FileReadLine($fotest)
	If @error = -1 Then ExitLoop
	If $fr = 'Заголовок 1' Then
		Local $line = 1
		Do
			$fr = FileReadLine($fotest)
			FileWriteLine($fores, $fr)
			$line += 1
		Until $line = 5
	EndIf
WEnd
FileClose($fotest)
FileClose($fores)

 

[Evochka Turkova]

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
	$fr = FileReadLine($fotest)
	If @error = -1 Then ExitLoop
	If $fr = 'Заголовок 1' Then
		Local $line = 1
		Do
			$fr = FileReadLine($fotest)
			FileWriteLine($fores, $fr)
			$line += 1
		Until $line = 5
	EndIf
WEnd
FileClose($fotest)
FileClose($fores)

Спасибочки!!!!!!!
И малюсенькая просьба, добавить между каждыми найденными 4 строками, одну пустую строчку.

 

[joiner]

Until $line = 5;после этой строки
		FileWriteLine($fores, '');добавить эту

Добавлено:

Сообщение автоматически объединено: 19 Май 2015

нужно учесть: данный код подразумевает, что в искомом пункте не менее 4 строк. если в файле пункт будет пустым или строк будет меньше 4, то в конечный файл попадут лишние строки

 

[alex33]

joiner [?]

нужно учесть: данный код подразумевает, что в искомом пункте не менее 4 строк. если в файле пункт будет пустым или строк будет меньше 4, то в конечный файл попадут лишние строки

Можно так условие цикла сделать:

Until $line = 5 Or $fr = 'Заголовок 2'

и лишние строки не попадут.

 

[edyapd]

Можно так условие цикла сделать:

Until $line = 5 Or $fr = 'Заголовок 2'

и лишние строки не попадут.

Не факт. Так как в условии сказано

Также заголовков номер 1 в документе много, разбросаны по документу.

 

[joiner]

в принципе можно, если в названиях пунктов есть одинаковые слова или символы, к примеру, слово "пункт"

Спойлер

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
	$fr = FileReadLine($fotest)
	If @error = -1 Then ExitLoop
	If $fr = 'пункт 1' Then
		Local $line = 1
		While 1
			$fr = FileReadLine($fotest)
			If @error = -1 Then ExitLoop
			If $line = 5 Or StringInStr($fr, 'пункт') Then
				FileWriteLine($fores, '')
				ExitLoop
			Else
				If Not StringStripWS($fr, 3) = '' Then FileWriteLine($fores, $fr)
			EndIf
			$line += 1
		WEnd
	EndIf
WEnd
FileClose($fotest)
FileClose($fores)

но есть один неприятный момент, если слово "пункт" встречается в нужных для записи строках, то эти строки не будут записаны. так что, нужен символ или слово, которые встречаются только в названиях пунктов

 

[Evochka Turkova]

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
    $fr = FileReadLine($fotest)
    If @error = -1 Then ExitLoop
    If $fr = 'Заголовок 1' Then
        Local $line = 1
        Do
            $fr = FileReadLine($fotest)
            FileWriteLine($fores, $fr)
            $line += 1
        Until $line = 5
    EndIf
WEnd
FileClose($fotest)
FileClose($fores)

Почему-то ничего не копирует, если в заголовке присутствует знак :. Т.е если заголовок написан к примеру - Заголовок: 1. :'(

 

[joiner]

получается, что в документе может быть написано Заголовок 1 и Заголовок: 1 ?
если только Заголовок: 1 то измени

If $fr = 'Заголовок 1' Then

на

If $fr = 'Заголовок: 1' Then

или, с учетом обоих вариантов

If $fr = 'Заголовок 1' Or $fr = 'Заголовок: 1' Then

 

[Evochka Turkova]

joiner в том то и дело, что ничего не копируется, если присутствует двоеточие в названии заголовка.

 

[alex33]

А если через регулярное вырожение?

If StringRegExp($fr,'(?si)Заголовок[^\d]+1') Then

 

[edyapd]

Evochka Turkova, будет проще, если вы укажите какие заголовки присутствуют. Желаетельно прямо скопировать их сюда. Потому как отличие может быть не только в ":", но и в пробелах.
alex33, по моему, ваш паттерн надо добавить [^\d] после "1". Иначе под него попадут и 10..19 и 100..199 и т.д.

 

[Evochka Turkova]

edyapdalex33 не получается :stars:

Попробуйте на примере

Заголовок: 1

 

[joiner]

Evochka Turkova
у меня все работает.
сам текстовый документ

Спойлер

Заголовок: 1
1-1
1-2
1-3
1-4
1-5
1-6
Заголовок: 2
1
2
3
4
5
6
Заголовок 1
2-1
2-2
2-3
2-4
2-5
2-6
Заголовок: 6
2-1
2-2
2-3
2-4
2-5
2-6
Заголовок: 1
3-1
3-2
3-3
3-4
3-5
3-6

код для него. в коде условие, что может быть Заголовок 1 и Заголовок: 1

Спойлер

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
    $fr = FileReadLine($fotest)
    If @error = -1 Then ExitLoop
    If $fr = 'Заголовок 1' Or $fr = 'Заголовок: 1' Then
        Local $line = 1
        While 1
            $fr = FileReadLine($fotest)
            If @error = -1 Then ExitLoop
            If $line = 5 Or StringInStr($fr, 'Заголовок') Then
                FileWriteLine($fores, '')
                ExitLoop
            Else
                If Not StringStripWS($fr, 3) = '' Then FileWriteLine($fores, $fr)
            EndIf
            $line += 1
        WEnd
    EndIf
WEnd
FileClose($fotest)
FileClose($fores)

выше было правильно написано, что в строке Заголовок: 1 может быть разное количество пробелов
а может без пробела. повторюсь, у меня все работает

 

[edyapd]

joiner, у неё ещё после "1" пробел, по этому строки и не равны.
Evochka Turkova, попробуйте в скрипте который написал вам joiner, заменить строку

If $fr = 'Заголовок 1' Or $fr = 'Заголовок: 1' Then

на

If StringRegExp($fr,'(?si)Заголовок[^\d]*?1[^\d]*$') Then

 

[prokazzza]

$fotest = FileOpen('test.txt');исходный файл
$fores = FileOpen('res.txt', 1);файл для записи первых четырех строк из пунктов "Заголовок 1"
While 1
	$fr = FileReadLine($fotest)
	If @error = -1 Then ExitLoop
	If $fr = 'Заголовок 1' Then
		Local $line = 1
		Do
			$fr = FileReadLine($fotest)
			FileWriteLine($fores, $fr)
			$line += 1
		Until $line = 5
	EndIf
WEnd
FileClose($fotest)
FileClose($fores)

Вопрос знатокам, в теме обсуждалось что в документе строго 6 строк, а что если количество строк под заголовком рандомное? 1 или 48, ведь:

Until $line = 5

уже будет неактуально.

??

 

[ra4o]

Всё зависит от Вашей конкретной задачи . По какому-то признаку Вы ведь определяете, что начался другой заголовок, вот и ищите этот признак. Лучше - создайте свою тему, приведите пример документа , желаемый результат и вам обязательно помогут !