Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Прошу помощи в написание скрипта для HTML правки
Очень нужно чтоб от <table> до </table> все удалялось в том числе что находится между этими тагеми вместе с тегами.
Что я имею
Скрипт который копирует весь текст, а вот далее тупик
vk9::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
MyVar = TEXT1<table>aaaaaaaaaaa</table>TEXT2
OutputVar := RegExReplace(MyVar, "(<table>)(.*)(</table>)")
MsgBox, %OutputVar%
Не верно.
MyVar = TEXT1<table>aaaa`r`naaaaaaa</table>TEXT2
OutputVar := RegExReplace(MyVar, "(<table>)(.*)(</table>)")
MsgBox, %OutputVar%Malcev
Не совсем понимаю как вписать этот скрипт в свой.
Можешь кинуть полностью как будет выглядеть скрипт?
Задумано так что нажимаешь клавишу и текст от table> по </table удаляется.
vk9::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
}
SendInput, ^{vk56} ; ctrl+V
Return
edea28_, код следует оформлять тегом "code". Предложения должны начинаться с заглавной буквы и заканчиваться знаками препинания. Исправьте!
(<table>)(.*)(</table>)При вот таком написании будет удаляться всё между первым найденным "<table>" и первым найденным"</table>". А это скорее всего не то, что нужно ТС. Я думаю, что он хочет находить парные теги.
Надо находить первый "</table>", а потом к нему в уже пройденном тексте последний "<table>". И повторять всё это пока они не кончаться.
Foma Malcev teadrinker
Задумано это так:
Имею кусок кода например:
<div> </div>
<h4>Характеристики:</h4>
<table>
<tbody>
<tr>
<td>Артикул</td>
<td>EA07.003.001</td>
<tr>
<td>Напряжение питания</td>
<td>230 В; 50 Гц или 24 В АС/DC</td>
</table>
Блабла по теме дальше.
Нажимаю кнопку которую забиндил, весь текст выделяется, убирает лишнее, ИТОГ:
<div> </div>
<h4>Характеристики:</h4>
Блабла по теме дальше.
Короче говоря чистилка кода от лишних тегов.
Вот прошу скинуть более менее рабочий скрипт, в AHK плохо разбираюсь но очень интересно.
При вот таком написании будет удаляться всё между первым найденным "<table>" и первым найденным"</table>"
Нет.
teadrinker
Помогите разрабы с задумкой.
Правильно так:
html =
(
<div> </div>
<h4>Характеристики:</h4>
<table>
<tbody>
<tr>
<td>Артикул</td>
<td>EA07.003.001</td>
<tr>
<td>Напряжение питания</td>
<td>230 В; 50 Гц или 24 В АС/DC</td>
</table>
Блабла по теме дальше.
)
MsgBox, % RegExReplace(html, "s)<table>.*?</table>\R?")Как вставить в свой, подумайте сами.
teadrinker
У меня вообще нету вариантов как реализовать и доделать.
И я не совсем понял зачем кусок html кода использовать в скрипте
И я не совсем понял зачем кусок html кода использовать в скрипте
Только для того, чтобы показать, что регулярка работает правильно. По сути решение — только эта часть:
RegExReplace(html, "s)<table>.*?</table>\R?")которая решает задачу удаления всего лишнего. Ваша задача теперь только вставить результат.
У меня вообще нету вариантов как реализовать и доделать.
Это форум для тех, кто интересуется программированием, если что. Обычно такие люди и Гуглом умеют пользоваться. Попробуйте запрос «ahk вставить текст».
Что тут надо исправить чтоб RegExReplace понимал что я вставлю текст из буфера обмена. А потом исправленный текст вставлял обратно.
vk9::
MyVar = %Clipboard%
OutputVar := RegExReplace(%Clipboard%, "(<table>)(.*)(</table>)")
MsgBox, %OutputVar%
returnСкрипт с авто копированием текста.
vk9::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
}
MyVar = %Clipboard%
OutputVar := RegExReplace(%Clipboard%, "(<table>)(.*)(</table>)")
MsgBox, %OutputVar%
return
Что тут надо исправить
RegExReplace(%Clipboard%, "(<table>)(.*)(</table>)")
RegExReplace(html, "s)<table>.*?</table>\R?")
Вопрос, что тут надо исправить. (?)
teadrinker
Получилось все! Но я попробовал поменять тег
<table></table>
на
<table border="2"> </table>
И мне выдает ошибку и ругается про двойку и ""
Можно это исправить?
vk9::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
}
MyVar = %clipboard%
Clipboard := RegExReplace(Clipboard, "s)<table border="2">.*?</table>\R?")
SendInput, ^{vk56} ; ctrl+V
return
Исправил это так.
^vkA4::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43} ; ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
MsgBox, Буфер обмена пуст!
Return
}
StringReplace, ClipBoard, ClipBoard, <table border="2">,<tablez>, All
MyVar = %clipboard%
Clipboard := RegExReplace(Clipboard, "s)<tablez>.*?</table>\R?")
SendInput, ^{vk56} ; ctrl+V
return
Литеральные кавычки нужно удваивать:
RegExReplace(Clipboard, "s)<table border=""2"">.*?</table>\R?")teadrinker
Спасибо огромное!
У меня еще один маленький вопрос.
StringReplace, ClipBoard, ClipBoard, .,;, All
StringReplace, ClipBoard, ClipBoard, ,,;, All
Это скрипт меняет точку"." на точку с запятой ";"
Но запятую "," на точку с запятой ";" ведают ошибку при запуске.
Можно как то подправить ?
Запятую можно экранировать знаком акцента: `,
Лучше использовать StrReplace(), все литералы в кавычках.
teadrinker
Как то так?
StringReplace, ClipBoard, ClipBoard, StrReplace(","),;, All
Нет.
teadrinker
Блин, а как?(
А как в справке?
teadrinker
Да понял тебя.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
