Серый форум — AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Tue, 13 Aug 2019 15:21:00 +0000

Как вставку производить не в середину строки, а после нее?

txt = 
( 
Строка1Строка[[2222222222]]Строка1Строка1Строка
Строка2Строка2Строка2Строка2Строка2Строка2Строка
Строка3Строка3Строка3Строка3Строка3Строка3Строка
Строка4Строка[[3563373]]Строка4Строка4Строка
Строка5Строка5Строка5Строка5Строка5Строка5Строка
Строка6Строка((3563373))Строка6Строка6Строка
Строка7Строка7Строка7Строка7Строка7Строка7Строка
Строка8Строка((2222222222))Строка8Строка8Строка
) 

While % Pos := (RegExMatch(txt, "\[\[(\d+)]]", Match, !Pos ? 1 : Pos) + StrLen(Match))
     txt := RegExReplace(RegExReplace(txt, "m`a).*?\(\(" Match1 "\)\)[^\R]*\R?(?CCallout)"), "(\Q" Match "\E)", "$1`n" Matches, , 1), Matches := ""
MsgBox % txt
Return

Callout(Match) {
    Global Matches .= Match    
}

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Mon, 12 Aug 2019 19:03:12 +0000

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Mon, 12 Aug 2019 16:16:33 +0000

А как бы строки с числами в круглых скобках — перенести и вставить после строк, с числами в квадратных скобках? —

СтрокаСтрока[[2222222222]]СтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрока[[3563373]]СтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрока((3563373))СтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрока((2222222222))СтрокаСтрокаСтрока

СтрокаСтрока[[2222222222]]СтрокаСтрокаСтрока
СтрокаСтрока((2222222222))СтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрока[[3563373]]СтрокаСтрокаСтрока
СтрокаСтрока((3563373))СтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока
СтрокаСтрокаСтрокаСтрокаСтрокаСтрокаСтрока

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Sun, 09 Aug 2015 00:36:41 +0000

Огромное спасибо, Серж! Яростно плюсую))

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (serzh82saratov) — Sat, 08 Aug 2015 12:23:16 +0000

txt = 
( 
^@7896555@текст-с-неопределенным
-количеством-строк^
просто текст
^@1999@текст-с-
неопределенным-количеством-
строк^
[[1999]]
^@7896555@ещё текст^

[[7896555]]
просто текст 
) 

While % Pos := (RegExMatch(txt, "\[\[(\d+)]]", Match, !Pos ? 1 : Pos) + StrLen(Match))
     txt := RegExReplace(RegExReplace(txt, "\^@" Match1 "@.*?\^\R?(?CCallout)"), "(\Q" Match "\E)", "$1" Matches, , 1), Matches := ""
MsgBox % txt
Return

Callout(Match) {
    Global Matches .= Match    
}

При любом расположении, и если строк несколько.

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (serzh82saratov) — Sat, 08 Aug 2015 11:35:46 +0000


txt = 
(
[[7896555]]
 
[[1999]]

просто текст
^@1999@текст-с-
неопределенным-количеством-
строк^
^@7896555@текст-с-неопределенным
-количеством-строк^

просто текст
)
 
While % Pos := RegExMatch(txt, "\[\[(\d+)]]", Match, !Pos ? 1 : Pos)
    txt := RegExReplace(txt, "(.*)(\Q" Match "\E)(.*)(\^@" Match1 "@.*?\^)\R?(.*)"
        , "$1$2$4$3$5", , 1, Pos), Pos += StrLen(Match)
MsgBox % txt

На скорую руку. Ограничение: строки вида [[1999]] должны быть выше подходящего под них текста.

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Fri, 07 Aug 2015 18:59:13 +0000

Появилась необходимость в обработке не последовательно идущих (как в коде выше), а в обработке произвольных цифр, например 7896555, 67574, 547777, 27 и т.п. Допустимо ли подладить под это код? Если нет, подошла бы однократная обработка для файла с произвольными цифрами, т.е. находит в файле, например, ^@1999@текст-с-неопределенным-количеством-строк^ и единожды переносит в место, где располагается [[1999]].

Что в итоге даёт: [[1999]]^@1999@текст-с-неопределенным-количеством-строк^.

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Sun, 11 Jan 2015 21:21:13 +0000

Спасибо огромное!

Re: AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (Irbis) — Sun, 11 Jan 2015 07:01:42 +0000

C RegExReplace() компактней получится, но так быстрей.

txt = 
(
текст[[1]]текст[[2]]текст
текст[[3]]текст
текст
текст[[4]]текст
текст
текст[[1]текст]текст
текст[[2]текст]текст
текст[[3]текст]текст
текст[[4]текст]текст
)

while (P1 := 4+StrLen(A_Index)+InStr(txt, "[[" . A_Index . "]]",0,P1)) && (P2 := InStr(txt, "[[" . A_Index . "]",0,P1))
txt := SubStr(txt,1,P1-1) . SubStr(txt,P2,L := 1+InStr(txt,"]",0,P2+3+StrLen(A_Index))-P2)
     . SubStr(txt,P1,P2-P1) . SubStr(txt,P2+L)
MsgBox % txt

Сноски должны идти подряд, т.е. если не существует [[73]], то [[74]] не будет обработана.

AHK: Перенос фрагмента нумер-го текста в место, соответствующее номеру

null@example.com (DD) — Sun, 11 Jan 2015 05:09:08 +0000

Привет!

Нужно это, в частности, для переноса (в массиве текста) текста сносок — в основной текст.

Задача в том, чтобы находить внутри угловых скобок цифры с текстом следующего вида — [[цифры]любой-текст] — и затем целиком перемещать такое вхождение туда, где в тексте найденным в первом вхождении обрамлённым цифрам соответствуют цифры внутри двойных угловых скобок — [[цифры]]. Т.е., например, находит [[74]текст] и переносит найденное туда, где в тексте стоит [[74]], что в итоге даст — [[74]][[74]текст]. Стало быть, это —

текст[[1]]текст[[2]]текст
текст[[3]]текст
текст
текст[[4]]текст
текст
текст[[1]текст]текст
текст[[2]текст]текст
текст[[3]текст]текст
текст[[4]текст]текст

заменив на это —

текст[[1]][[1]текст]текст[[2]][[2]текст]текст
текст[[3]][[3]текст]текст
текст
текст[[4]][[4]текст]текст
текст
тексттекст
тексттекст
тексттекст
тексттекст