Регулярное выражение для вычленения начального фрагмента строки

[Rjevsky]

В общем нужно, что бы от Microsoft Windows XP Professional|C:\WINDOWS|\Device\Harddisk0\Partition1 осталось Microsoft Windows XP Professional.
слова могут меняться

 

[asdf8]

Re: Помогите с регулярными выражениями

$str = 'Microsoft Windows XP Professional|C:\WINDOWS|\Device\Harddisk0\Partition1'

$str = StringRegExpReplace($str, '^([^\|]+).+$', '\1')
ConsoleWrite('->' & $str & @CRLF)

 

[kaster]

Re: Помогите с регулярными выражениями

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

[Помогите с регулярными выражениями] это неприемлемое название темы, переименуйте тему иначе она будет закрыта.

С уважением, Модератор раздела.