[Данные, строки] Выборка данных

[Tapok]

Как с помощью рег. выр. заменить

Илл. 5. Введение.png
Илл. 5.1. Один.png
Илл. 9.1.0. Два.png
Илл. 9.1.10. Три.png
Илл. 12.12.100. Четыре.png

на

5
Введение
5.1
Один
9.1.0
Два
9.1.10
Три
12.12.100
Четыре

 

[СН3СН2ОН]

$t= 'Илл. 12.12.100. Четыре.png'
$arr_t001 = StringRegExp($t, '(?si) (.*?)\. ',1)
$arr_t002 = StringRegExp($t, '(?si).*? .*? (.*?)\.',1)
ConsoleWrite($arr_t001[0] & @CRLF&$arr_t002[0]& @CRLF)

 

[Tapok]

Спасибо!!! :beer:

 

[madmasles]

Tapok,
Можно и так.

#include <Array.au3>

$sTxt = FileRead(@ScriptDir & '\1.txt')
$aRes = StringRegExp($sTxt, '(\d+(?:\.\d+)*)\.\h+([ЁёА-Яа-я]+)\.', 3)
_ArrayDisplay($aRes)

 

[CreatoR]

Мой вариант:

$vTest = _
	'Илл. 5. Введение.png' & @CRLF & _
	'Илл. 5.1. Один.png' & @CRLF & _
	'Илл. 9.1.0. Два.png' & @CRLF & _
	'Илл. 9.1.10. Три.png' & @CRLF & _
	'Илл. 12.12.100. Четыре.png'
 
$sRet = StringRegExpReplace($vTest, '(?si)Илл\. ((?:\d+\.)*)(\d+)\.? (.*?)\.png', '\1\2' & @CRLF & '\3')
ConsoleWrite($sRet & @LF)

 

[C2H5OH]

Не успел немного.
Мне было интересно вставить перевод строки в результат.
Так что просто до кучи

$text = "Илл. 5. Введение.png" & @CRLF & _
        "Илл. 5.1. Один.png" & @CRLF & _
		"Илл. 9.1.0. Два.png" & @CRLF & _
		"Илл. 9.1.10. Три.png" & @CRLF & _
		"Илл. 12.12.100. Четыре.png"

$pattern = "(?smi)^.*? (.*?)\. (.*?)\.png"
$res = StringRegExpReplace($text, $pattern, "$1"&@CRLF&"$2")
MsgBox(0,"",$res)

 

[Tapok]

Большая просьба чуть исправить код, чтобы обрабатывал строки вида

Илл.9.1.46_1 Окончание стрельбы.png

Плюс поправка к первоначальной постановке задачи :-\ Выглядит все так:

Илл.5 Введение.png
Илл.5.1 Один.png
Илл.9.1.0 Два.png
Илл.9.1.10 Три.png
Илл.12.12.100 Четыре.png

 

[edyapd]

Если вы приведёте свой текст к определёной структуре:
Между Илл. и 9. поставите пробел
После _1 поставите "."
То скрипт от C2H5OH прекрасно справится с вашей задачей.

Плюс поправка к первоначальной постановке задачи :-\ Выглядит все так:

Однако, батенька. Да вы сами не знаете чего вам надо ;D

Переделал pattern от C2H5OH

$pattern = "(?smi)^.*?\.(.*?) (.*?)\.png"

Пробуйте

 

[Tapok]

работает, и чтобы

Илл.9.1.46_1 Окончание стрельбы.png

видело тоже, дополните пожалуйста

 

[edyapd]

У меня всё видит. Может опять чего-то не правильно написали?

 

[CreatoR]

Tapok
Подчёркивание будет только перед последней цифрой?

Впрочем неважно:

$vTest = _
    'Илл.5. Введение.png' & @CRLF & _
    'Илл. 5_1. Один.png' & @CRLF & _
    'Илл. 9.1.0. Два.png' & @CRLF & _
    'Илл. 9.1.10.Три.png' & @CRLF & _
    'Илл. 12.12.100. Чет ыре.png'
 
$sRet = StringRegExpReplace($vTest, '(?si)Илл\.\h*([\d\._]*\d+)[\._]?\h*(.*?)\.png', '\1' & @CRLF & '\2')
ConsoleWrite($sRet & @LF)

 

[Tapok]

У меня всё видит. Может опять чего-то не правильно написали?

Да, сглючил я...

"Илл.9.1.10_1 ...

Код не добавил, а результата хотел...
Спасибо большое!