[Данные, строки] Удаление всех символов из строки после символа ;

[Death]

Есть текстовый документ, нарпимер:

кошка;собака
смерть;жизнь
слово;дело

Как удалить все символы после ; из каждой строки (в том числе и сам ; ) ?

Т.е.

кошка
смерть
слово

 

[sngr]

$file=FileRead(@ScriptDir&'\123')
$str=StringRegExpReplace($file,'(.*?);.*','\1')
MsgBox(0,'',$str)

 

[Death]

Спасибо!