[Данные, строки] Парсер html страниц с заменой текста между известными тегами

CreatoR · 24 Апр 2015

Tapok [?]

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

Я не понимаю, этот текст, кто будет задавать?
Вставить в таблице можно в любом порядке, заменять будет лишь соответствия.

Tapok · 24 Апр 2015

Текст задаю я. Если у нас 500 иллюстраций, все пронумерованы от 1 до 500, гиперссылки на них расположены на 50 листах и я хочу в начало документа вставить новую иллюстрацию, то как мне это сделать, чтобы нумерация не поехала?

CreatoR · 24 Апр 2015

Tapok [?]

я хочу в начало документа вставить новую иллюстрацию, то как мне это сделать, чтобы нумерация не поехала?

В начало документа, или речь про скрипт?
Последний скрипт всего навсего делает замены по шаблонам, ему не важно где находится искомый текст.
Если речь всё же про документ, то почему не вставлять в конец, или в нужную позицию? Почему нумерация должна куда то ехать, ведь текст задаётся жёстко, и заменяется соответственно.

Если требуется сортировка по тексту, то это уже другая песня (тема).

Tapok · 24 Апр 2015

В начало документа, или речь про скрипт?

В начало документа.

Если речь всё же про документ,

Речь идет о документе.

то почему не вставлять в конец,

Если идет описание чего-либо (введение) и в нем есть иллюстрации, то вставлять иллюстрацию для введения (самого начала описания чего-либо) в конец документа нет смысла, она должна быть рядом с описанием (в начале документа-во введении).

или в нужную позицию? Почему нумерация должна куда то ехать, ведь текст задаётся жёстко, и заменяется соответственно.

Как раз в нужную позицию документа я и хочу вставить дополнительную иллюстрацию, но допустим там уже вся нумерация занята, как быть?
Изначально, ссылки расставляются там, где нужно, но потом, при необходимости внутрь документа вклиниваются дополнительные иллюстрации, которые портят нумерацию, и в этом случае, видимо следует отсортировать все ссылки в документе, переназначив нумерацию. :blink:

Если требуется сортировка по тексту, то это уже другая песня (тема).

В целом же, если никаких новых иллюстраций внутрь документа с уже проставленными иллюстрациями не добавлять, то приведенный код очень даже подходит и на 100% выполняет свою задачу! :smile:

Еще раз большое спасибо! :beer:

Garrett · 25 Апр 2015

Tapok [?]

Как раз в нужную позицию документа я и хочу вставить дополнительную иллюстрацию, но допустим там уже вся нумерация занята, как быть?

1. Найти нужную позицию в документе.
2. Вставить в эту позицию ссылку на иллюстрацию.
3. Пересчитать (исправить) нижеследующую нумерацию иллюстраций.
4. Сформировать новый документ.

P.S. IMHO для каждой задачи есть свой инструмент, однако как пелось в одной песне: "Нормальные герои всегда идут в обход" :smile:

Tapok · 25 Апр 2015

А можно уточнить вышеприведенный код так, чтобы номер иллюстрации был вида "4.1.15" т.е. (см. илл. 4.1.15)
Как для этого случая написать код? :-\

Garrett · 26 Апр 2015

Tapok [?]

чтобы номер иллюстрации был вида "4.1.15"

Код:

Dim $aTable[][] = _
    [ _
        [1, 'Ягоды'], _
        [5, 'Фрукты'], _
        ['4.1.15', 'Овощи'] _
    ]

$sSpan = '<span ID="ACH-LINK" class="pic_ill/picture/Илл.%s.%s.png_name_Илл.^%s.^%s" title="">%s</span>'
$sFind = '(см. илл. %s)'

$sString = _
    '<p>1.3.4 Заголовок</p>' & @CRLF & _
    '<p>Подзаголовок 1 </p>' & @CRLF & _
    '<p>Текст 1</p>' & @CRLF & _
    '<p>Подзаголовок 2 </p>' & @CRLF & _
    '<p>Начало текста  (см. илл. 4.1.15) окончание текста. </p>' & @CRLF & _
    '<p>Начало текста  (см. илл. 5) окончание текста. </p>' & @CRLF & _
    '<p>Подзаголовок 3 </p>' & @CRLF & _
    '<p>Следующий текст  (см. илл. 5).</p>' & @CRLF

For $i = 0 To UBound($aTable) - 1
    $sFindFrmtd = StringFormat($sFind, $aTable[$i][0])

    $sString = StringReplace($sString, _
        $sFindFrmtd, _
        StringFormat($sSpan, $aTable[$i][0], $aTable[$i][1], $aTable[$i][0], $aTable[$i][1], $sFindFrmtd))
Next

ConsoleWrite($sString & @LF)

Tapok · 26 Апр 2015

Спасибо! Работает!!! :IL_AutoIt_1:

Еще вопрос, если файл для просмотра и замены один, то будет так:

$sString=FileRead("d:\project\start.txt")

А если их несколько, как сделать просмотр всех txt (html) файлов в папке?

alex33 · 26 Апр 2015

Tapok [?]

как сделать просмотр всех txt (html) файлов в папке?

Легко. К примеру с помощью функции _FileListToArray.
Поищи по форуму, этот вопрос задавался не раз...

Tapok · 26 Апр 2015

Да, действительно, есть такое!
В моем случае будет:
$FileList=_FileListToArray("d:\project\html", "*.html", 1)

Спасибо! :smile:

Добавлено:
Сообщение автоматически объединено: 26 Апр 2015

УРА! Оно проверяет и делает замену во всех файлах! :smile:

Код:

#include <File.au3>
#include <Array.au3>

$FileList=_FileListToArray("d:\project\html_0", "*.html", 1)
If @error=4 Then
    MsgBox (0,"","Файлы/папки не найдены.")
    Exit
EndIf
;_ArrayDisplay($FileList,"$FileList")

Dim $aTable[][] = _
    [ _
        ['5', 'Ягоды'], _
        ['4.1', 'Фрукты'], _
        ['4.1.15', 'Овощи'] _
    ]

$sSpan = '<span ID="ACH-LINK" class="pic_ill/picture/Илл.%s.%s.png_name_Илл.^%s.^%s" title="">%s</span>'
$sFind = '(см. илл. %s)'

For $j = 1 To $FileList[0] Step 1

$sString=FileRead("d:\project\html_0\"&$FileList[$j])

For $i = 0 To UBound($aTable) - 1
    $sFindFrmtd = StringFormat($sFind, $aTable[$i][0])

    $sString = StringReplace($sString, _
        $sFindFrmtd, _
        StringFormat($sSpan, $aTable[$i][0], $aTable[$i][1], $aTable[$i][0], $aTable[$i][1], $sFindFrmtd))
Next

;ConsoleWrite($sString & @LF)

FileWriteline("d:\project\html\"&$FileList[$j], $sString & @LF)

Next

Спасибо! :IL_AutoIt_1:
Добавлено:
Сообщение автоматически объединено: 26 Апр 2015

Теперь надо вынести заполнение соответствия номер-название иллюстрации из файла Autoit в отдельный файл txt и из него читать

Код:

Dim $aTable[][] = _
    [ _
        ['5', 'Ягоды'], _
        ['4.1', 'Фрукты'], _
        ['4.1.15', 'Овощи'] _
    ]

Причем количество строк (соответствий) заранее не задано :-\

Файл соответствий видимо должен выглядеть так:

5, Ягоды
4.1, Фрукты
4.1.15, Овощи

Garrett · 26 Апр 2015

Tapok [?]

Причем количество строк (соответствий) заранее не задано

IMHO вам в стол заказов.
Это раздел регулярных выражений! Ваши вопросы больше подходят для разделов AutoIt для новичков и Стол заказов

К выше сказанному, осмелюсь ещё раз заострить ваше внимание на замечание в ответе №19.
А именно:

Предупреждение За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Модератор.

Тема закрыта.

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Из ресурсов исполняемых файлов получить данные в виде строки-структуры	Общие вопросы по AutoIt	4	12 Апр 2024
	[Данные, строки] Поиск определенных данных в txt и копирование их в другой txt	Стол заказов	4	17 Ноя 2021
A	[Данные, строки] командная строка, кавычки	Общие вопросы по AutoIt	4	27 Апр 2020
A	[Данные, строки] Парсер строк между символами	Общие вопросы по AutoIt	6	22 Окт 2017
	Перенесено: [Данные, строки] Парсер html страниц с заменой текста между известными тегами	Общие вопросы по AutoIt	0	22 Апр 2015

Поиск

Поиск

[Данные, строки] Парсер html страниц с заменой текста между известными тегами

CreatoR

Must AutoIt!

Tapok

Новичок

CreatoR

Must AutoIt!

Tapok

Новичок

Garrett

Модератор

Tapok

Новичок

Garrett

Модератор

Tapok

Новичок

alex33

Скриптер

Tapok

Новичок

Garrett

Модератор