StringRegExp - не получается правильно сформировать массив

[saavaage]

есть текстовый файл (dict1.txt), содержащий следующие строки:

book|книга
table|стол
chair|стул
retail|розница
tail|хвост
dog|собака
horse|конь,лошадь

необходимо получить массив вида:

book
книга
table
стол
chair
стул
retail
розница
tail
хвост
dog
собака
horse
конь,лошадь

нашел в дебрях интернета следующую конструкцию:

$aRExp = StringRegExp($sText, "(?m)^\s*([^\s]+)\s+([^\s]+)", 3)

но она отрабатывает на пробел, а не на '|'

В регулярных выражениях я "ни бум-бум", прошу помощи...

 

[madmasles]

saavaage
В StringRegExp() я сам "плаваю", но так у меня работает:

#include <Array.au3>

$hFile = FileOpen('test.txt', 0)
$sText = FileRead($hFile)
FileClose($hFile)
$aText = StringSplit(StringStripCR(StringReplace($sText, '|', @LF)), @LF, 2)
_ArrayDisplay($aText)

 

[r35p3ct]

saavaage [?]

необходимо получить массив вида:

$aRExp = StringRegExp($sText, '(.*)\|(.*)\r', 3)

 

[gregaz]

По-моему предыдущий вариант не захватывает последнюю строчку

А вот мой вариант через через Рег.Выражения :

#include<Array.au3>
$hFile = FileOpen('test.txt', 0)
$sText = FileRead($hFile)
ConsoleWrite($sText& @LF)
$aText=StringRegExp($sText,"(.+?)(?:\||\r\n|$)",3)
_ArrayDisplay($aText)

 

[madmasles]

r35p3ct
Последняя строка (horse|конь,лошадь) съедается.

 

[r35p3ct]

Не обратил внимание... :whistle:

$aRExp = StringRegExp($sText, '(\w*)\|(\S*)', 3)

 

[saavaage]

Спасибо всем. Все предложенные варианты (вкл. последний r35p3ct) отрабатывают на 100%.
Вопрос - какой наиболее оптимальный (скорость обработки), если таких строк будет 10000 - 15000? Не просветите?
PS Сам испытать пока не могу, т.к. племянник еще не набивал слова в словари...

 

[gregaz]

Вопрос - какой наиболее оптимальный (скорость обработки), если таких строк будет 10000 - 15000? Не просветите?
PS Сам испытать пока не могу, т.к. племянник еще не набивал слова в словари...

Не обзательно набивать .
Для короткого теста мой вариант работает медленнее , чем вариант от r35p3ct
Ошибся наоборот

 

[saavaage]

но есть небольшое но:
скрипт r35p3ct отрабатывает некорректно, если между "Конь, лошадь" есть, например, пробел, то "лошадь" съедается...

 

[gregaz]

saavaage [?]

если между "Конь, лошадь" есть, например, пробел, то "лошадь" съедается...

Это все легко устраняется добавлением \s? (думаю автор устранит)

 

[r35p3ct]

но есть небольшое но:
скрипт r35p3ct отрабатывает некорректно, если между "Конь, лошадь" есть, например, пробел, то "лошадь" съедается...

Вариант с пробелом учитывается)

$aRExp = StringRegExp($sText, '(\w*)\|(\V*)', 3)

 

[saavaage]

тема решена. Всем спасибо!

 

[gregaz]

С оценкой быстродействия я ошибся (не там установил таймер)
все-таки скорость поже выше в моем варианте в 2 раза


Добавлено:

Сообщение автоматически объединено: 31 Окт 2010

И еще в 2 раза быстрее работает вариант :

$aText=StringSplit($sText,"|" & @cr)

 

[saavaage]

gregaz, уже пробовал такой вариант, но, к сожалению, он влечет такой некрасивый вывод: см. аттач

 

[Garrett]

saavaage
Поставьте флаг 2

$aText=StringSplit($sText,"|" & @cr, 2)

 

[madmasles]

saavaage
У меня так быстрее всего работает:

$aText = StringSplit(StringStripCR($sText), '|' & @LF, 2)

 

[saavaage]

gregaz, артефакты (квадратики - символы перехода на новую строку) остались

madmasles, спасибо

To all, пока сравнить не могу. Но, как дойдет до реального словаря, обязательно отпишусь по скорости обработки.

Спасибо всем еще раз!