Поиск текста и копирование значений

[Hellbender]

Есть необходимость поиска по тексту (сам текст скопирован в буфер обмена и может быть занесен в переменную) с последующим копированием данных, которые находятся правее от найденного.

Пример:
№ обращения: 586879

Нужно найти "№ обращения:" и занести в переменную значение "586879".

 

[gregaz]

Hellbender [?]

Нужно найти "№ обращения:" и занести в переменную значение "586879".

Так :

$iFragment =StringRegExpReplace ($sBufText,"(?si).*№\D*(\d+).*","\1") ; Чуть подправил

 

[Hellbender]

Так :

$iFragment =StringRegExpReplace ($sBufText,"(?si).*№\D*(\d+).*","\1") ; Чуть подправил

Помогло!))

А можно расшифровать это "(?si).*№\D*(\d+).*" и это "\1"?

 

[gregaz]

Hellbender [?]

А можно расшифровать это "(?si).*№\D*(\d+).*" и это "\1"?

; (?s) - символ .(точка) соответствует всему, включая переход на новую строку. По умолчанию символ . не включает переход на новую строку.
; (?i) - независимая от регистра написания группа

Заменить текст, если он содержит в себе : текст любой(.*) до знака № , а затем следует Фрагмент из нецифр (\D+) ,затем Фрагмент из цифр (\d+) , затем люой текст (.*) ,
на текст \1
где \1 это текст ,заключенный в скобках выражения (т.е. (\d+) )

 

[Hellbender]

Еще есть такая строка, в которой нужно определить филиал:

Филиал: С ЛЬВОВ Городоцкая ул, 152/2

Как быть с ней?

 

[gregaz]

Hellbender [?]

Как быть с ней?

$sText='Филиал: С ЛЬВОВ Городоцкая ул, 152/2'
;$sFragm=StringRegExpReplace($sText,'(?i)^[^:]+?:(.*)$','\1');Рез-тат : ' С ЛЬВОВ Городоцкая ул, 152/2'
$sFragm=StringRegExpReplace($sText,'(?i)^[^:]+?:\s?(.*)$','\1'); освободимся от пробела перед именем филиала

MsgBox(0,'$sFragm',$sFragm)

Добавлено:

Сообщение автоматически объединено: 7 Май 2010

Или так:

$sFragm=StringRegExpReplace($sText,'(?i)^[^:]+?:\s?','')

 

[Hellbender]

Я в тупике(( Неподдается мне эта функция и все тут...
Прошу помощи!
В общем есть блок текста следующего содержания:

=======================[ Системная информация ]=========================
* № обращения: 648986 * Инициатор: [email protected]
>
>
> Филиал: С ЛЬВОВ Городоцкая ул, 152/2
> Тип документа: Приходная накладная от прямого поставщика
> Ситуация: не правильно указано кол-во
> Вн. номер документа в Рубиконе: 2665
> Номер САП: AS31450133
> Дата проведения документа: 11.08.2010
=======================[ Системная информация ]=========================


Мне нужно из этого блока информации записать в каждую переменную отдельно следующую инфу:

648986
С ЛЬВОВ Городоцкая ул, 152/2
2665
AS31450133

Помгите плз с кодом.

 

[madmasles]

Hellbender
Попробуйте так:

$sFile = @ScriptDir & '\test.txt'

$hFile = FileOpen($sFile, 0)
$sText = FileRead($hFile)
FileClose($hFile)

$sVar_1 = StringRegExpReplace($sText, '(?s).*?\Q№ обращения: \E(\d+)\Q * Инициатор\E.*', '\1')
$sVar_2 = StringRegExpReplace($sText, '(?s).*?\QФилиал: \E(.*?)\r\n?.*', '\1')
$sVar_3 = StringRegExpReplace($sText, '(?s).*?\QРубиконе: \E(\d+)\r\n?.*', '\1')
$sVar_4 = StringRegExpReplace($sText, '(?s).*?\QСАП: \E(.*?)\r\n?.*', '\1')
MsgBox(0, '', $sVar_1 & @LF & $sVar_2 & @LF & $sVar_3 & @LF & $sVar_4)

 

[Hellbender]

Спасибо огромное!! :laugh:
Это именно то, что нужно!

 

[gregaz]

Вариант с получением массива переменных :

#include<Array.au3>
;.............
$aRezult=StringRegExp($sText,"(?:САП|Рубиконе|Филиал|\* № обращения):(.+?)[\r\n|*]",3)
_ArrayDisplay($aRezult)