Разделить текст на две части. (До запятой и после)

[Dlmx]

Здравствуйте! Очень прошу помочь.

Скопированный текст:
$adr = Антона Петрова, 63
$adr = Нарымская, 20
$adr = Гоголя, 43Б
И т.д.

Нужно разделить, чтобы было так в переменной:
$uliz = Антона Петрова
$dom = 63

$uliz = Нарымская
$dom = 20

$uliz = Гоголя
$dom = 43Б

Код: Clickermann

KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#C)
KEYUP (#CTRL)
WAITMS (50)
$adr = FROMCLIP()
WAITMS (50)
// разделение на 2 переменной, улица и номер дома
WAITMS (50)
LCLICK(103,153)  // Клик в поле, куда улицу вводить
WAITMS (50)
TOCLIP($uliz)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS (50)
LCLICK(1224,604)  // Клик в поле, куда вводить номер дома
WAITMS (50)
TOCLIP($dom)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
HALT

[dramster]

Код: Clickermann

KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#C)
KEYUP (#CTRL)
WAITMS (50)
$adr = FROMCLIP()
WAITMS (50)
 
// разделение на 2 переменной, улица и номер дома
// только при условии, что разделитель между томом и улицей всегда запятая и пробел.
$dom = STRCUT2($adr, STRPOS($adr, ", ")+2, STRLEN($adr))
$uliz = STRCUT2($adr, 1, STRPOS($adr, ", ")-1)
print("улица ", $uliz, ", дом ", $dom) 
 
 
WAITMS (50)
LCLICK(103,153)  // Клик в поле, куда улицу вводить
WAITMS (50)
TOCLIP($uliz)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS (50)
LCLICK(1224,604)  // Клик в поле, куда вводить номер дома
WAITMS (50)
TOCLIP($dom)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
HALT