Серый форум — AHK: Непростая задача с копипастом

Re: AHK: Непростая задача с копипастом

2022-10-08T08:41:05Z

viviancels, не надо поднимать старые темы, создавайте свои.

Re: AHK: Непростая задача с копипастом

2022-10-08T06:26:15Z

Здравствуйте. Пытаюсь научиться построчно копировать часть строк в нужные строки. В примере нужно выделить name1 в переменную rel и http:\\123 в переменную url из 1й строки srt1, затем в str2 найти строку, которая содержит name1, и определить ее позицию, после которой искать url=
FoundPos находит 32 позицию, перед name2, а не перед name1, думаю, это потому что в переменную rel копируется значение name2 из второй (последней) строки. Казалось, что строки будут обрабатываться по порядку.


str1 =
(
name1 http:\\123
name2 http:\\456
)
str2 =
(
1234 name1 (1234)
url=555
5678 name2 (4321)
url=999
)
Loop, 1
{
	Loop, parse, str1, `n, `r
		{
		rel := regexreplace(A_LoopField, "`am)(.*) http.*", "$1")
		}
	Loop, parse, str1, `n, `r
		{
		url := regexreplace(A_LoopField, "`am).* (http.*)", "$1")
		}
	FoundPos := InStr(str2, rel)
	str2 := RegExReplace(str2, "url=", "url="url, 1, FoundPos)
	MsgBox % str2
}

Re: AHK: Непростая задача с копипастом

2011-06-25T19:01:10Z

Ну вот, уже чувствуется рост!

Re: AHK: Непростая задача с копипастом

2011-06-25T18:35:40Z

Эдвард пишет:

Столкнулся с такой проблемой: при активации скрипта вставки строки в тег [Текст] всякий раз возникает ошибка, указывающая именно на данную командную строку. Применяю код, который дан в примере:
NewStr := RegExReplace(Haystack, "(").*?(")", "$1" OutputVar "$2", "", 1)
Что делаю не так? И как исправить ошибку?

Виноват – балбес! Только сейчас вспомнил, что буквальные кавычки должны заключаться в ещё одни кавычки. Код поправил, всё заработало:

NewStr := RegExReplace(Haystack, "().*?()", "$1" OutputVar "$2", "", 1)

Re: AHK: Непростая задача с копипастом

2011-06-25T18:05:41Z

teadrinker пишет:

1. В первой строке заменится значение title:

Newtitle = 1000 КБ

htmltext =
(

   
   
   
   

)

Newhtmltext := RegExReplace(htmltext, "(title="").*?("" width)", "$1" Newtitle "$2", "", 1)
MsgBox, % Newhtmltext

Столкнулся с такой проблемой: при активации скрипта вставки строки в тег [Текст] всякий раз возникает ошибка, указывающая именно на данную командную строку. Применяю код, который дан в примере:

NewStr := RegExReplace(Haystack, "(").*?(")", "$1" OutputVar "$2", "", 1)

Что делаю не так? И как исправить ошибку?

Re: AHK: Непростая задача с копипастом

2011-06-25T04:27:09Z

OFF: Эдвард, суть процесса познания, дающего в итоге бесценный опыт — в непрерывной череде совершаемых ошибок и откровений. Вообще, опыт — это не столько наше знание о том, как нужно делать, но, прежде всего, знание того, как (и почему) нельзя делать. Так что, не переживайте по этому поводу — это нормально.

P.S. У нас в разделе Коммьюнити была большая подборка на тему: «Чтобы получить правильный ответ — нужно правильно задать вопрос, чтобы правильно задать вопрос — нужно знать большую часть ответа». Жаль, удалили в процессе чистки.

Re: AHK: Непростая задача с копипастом

2011-06-24T22:09:28Z

teadrinker пишет:

Следует как следует разобраться с Loop, parse на примерах, которых на форуме достаточно.

Примеров по данной программе, к сожалению, крайне мало. Выуживать информацию приходится по крупицам. Мозги иногда просто закипают.

Вот полный скрипт однострочного копирования, который с горем пополам удалось вывести:

#c::
FileReadLine, OutputVar, E:\Мастерская\Сайт\39\4.txt, 1
    MsgBox, %OutputVar%
FileReadLine, Haystack, E:\Мастерская\Сайт\39\400.html, 89
    MsgBox, %Haystack%
NewStr := RegExReplace(Haystack, "(title="").*?("" width)", "$1" OutputVar "$2")
MsgBox, % NewStr

FileRead, InputVar, E:\Мастерская\Сайт\39\400.html
MsgBox, %InputVar%
Replacement = %NewStr%
Loop, parse, InputVar, `n, `r
   NewString .= (A_Index = 89 ? Replacement : A_LoopField) . "`n"
   NewString := RegExReplace(NewString, "(.*)\R$", "$1")  
MsgBox, % NewString
FileDelete, E:\Мастерская\Сайт\39\400.html
FileAppend, %NewString%, E:\Мастерская\Сайт\39\400.html

В отличие от примера с буквальными значениями, который приведён Вами выше, в данном случае вместо выражения [A_LoopField = "Третья строка"] применено [A_Index = 89]. Кроме того, пришлось задействовать команду FileDelete, чтобы содержимое html-файла не дублировалось. Такие, казалось бы, мелочи дались большим мыслительным трудом, тогда как небольшая подсказка могла значительно ускорить процесс познания.

Re: AHK: Непростая задача с копипастом

2011-06-24T21:09:23Z

Следует как следует разобраться с Loop, parse на примерах, которых на форуме достаточно.

Re: AHK: Непростая задача с копипастом

2011-06-24T13:15:10Z

teadrinker пишет:

1. В первой строке заменится значение title

Спасибо! С этим понятно.

teadrinker пишет:

2

А вот здесь застопорился, т. к. в приведённом примере скрипта производятся операции с буквальными значениями, а в моём случае необходимо разбирать именно переменную (в которой весь html), назначая определённую строку для замены. Чисто теоретически код мог бы выглядеть вот так:

FileRead, InputVar, E:\Мастерская\Сайт\39\400.html ; чтение html-файла (запись в переменную InputVar)
Replacement = %NewStr% ; подставляемая строка
Loop, parse, InputVar, `n, `r ; разбор содержимого html-файла
If A_Index = 2 ; «если вторая строка»
   NewString .= (A_LoopField = "" ? Replacement : A_LoopField) . "`n" ; вставка новой строки вместо второй в содержимом html-файла
   NewString1 := RegExReplace(NewString1, "(.*)\R$", "$1") ; правка  
MsgBox, % NewString ; показ нового содержимого html-файла

Однако в данном случае с html-файлом ничего не происходит – он остаётся в прежнем виде.

Отсюда вопрос: что я делаю не так? Какие командные строки следует исправить?

Re: AHK: Непростая задача с копипастом

2011-06-23T23:50:58Z

1. В первой строке заменится значение title:

Newtitle = 1000 КБ

htmltext =
(

   
   
   
   

)

Newhtmltext := RegExReplace(htmltext, "(title="").*?("" width)", "$1" Newtitle "$2", "", 1)
MsgBox, % Newhtmltext

Replacement = Изменённая строка

String =
(
Первая строка
Вторая строка
Третья строка
Четвертая строка
)

; заменяем строчку "Третья строка"
Loop, parse, String, `n, `r
   NewString .= (A_LoopField = "Третья строка" ? Replacement : A_LoopField) . "`n"
   
; удаляем последний перенос строки, если существует:
NewString1 := RegExReplace(NewString1, "(.*)\R$", "$1")  
MsgBox, % NewString

Re: AHK: Непростая задача с копипастом

2011-06-23T17:28:58Z

Заранее благодарю за ответ.

Re: AHK: Непростая задача с копипастом

2011-06-23T17:24:51Z

teadrinker пишет:

нужно задать вопрос.

Хорошо.

1. Какое выражение (шаблон) применить для замены строкой-донором подстроки между определёнными группами символов (например, [title="] и [" width)]? Если ещё точнее, какими символами заменить точку, заключённую в кавычки, в данной командной строке:

NewStr := RegExReplace(Haystack, ".", OutputVar)

2. Какой скрипт применить для полной замены одной строки в содержимом html-файла одной строкой из переменной?

Re: AHK: Непростая задача с копипастом

2011-06-23T10:36:34Z

Эдвард, чтобы получить ответ, нужно задать вопрос.

Re: AHK: Непростая задача с копипастом

2011-06-22T23:14:41Z

Решил пока немного упростить задачу, применив скрипт лишь к одной строке:

#c::
FileReadLine, OutputVar, E:\Мастерская\Сайт\39\4.txt, 8
    MsgBox, %OutputVar%

FileReadLine, Haystack, E:\Мастерская\Сайт\39\400.html, 2
    MsgBox, %Haystack%

NewStr := RegExReplace(Haystack, ".", OutputVar)

File = E:\Мастерская\Сайт\39\400.html
Str = %NewStr%
Loop, Read, %File%
{
    If A_Index = 2
        Text .= Str . "`n"
    Text .= A_LoopReadLine . "`n"
}
FileDelete, %File%
FileAppend, %Text%, %File%
MsgBox, Готово.

Но столкнулся с проблемой шаблонов. Т. е. для моего случая, когда донорская блокнотная строка должна вставляться в html-строку между (!) определёнными символами (группами символов) (в данном случае, между title=" и " width), ничего подходящего не нашлось (в основном почему-то все шаблоны затёсаны на операции именно с заменяемым полем, а не его окружением).

И ещё небольшой глючок: в конце всей операции как бы исправленная строка встаёт не вместо второй строки html-файла, а добавляется между первой и второй. Видимо, прежде чем вставлять исправленную строку, надо сначала удалить старую, но такого скрипта пока не вычислил.

Re: AHK: Непростая задача с копипастом

2011-06-22T18:38:51Z

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