Author Topic: Разделить текст на две части. (До запятой и после)  (Read 1130 times)

0 Members and 1 Guest are viewing this topic.

Dlmx

  • Зашел в гости
  • *
  • Posts: 9
    • View Profile
Здравствуйте! Очень прошу помочь.

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

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

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

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

Code: (clickermann) [Select]
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
« Last Edit: November 24, 2021, 01:39:17 PM by Dlmx »

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Code: (clickermann) [Select]
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