Автор Тема: Разделить текст на две части. (До запятой и после)  (Прочитано 452 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Dlmx

  • Зашел в гости
  • *
  • Сообщений: 9
    • Просмотр профиля
Здравствуйте! Очень прошу помочь.

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

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

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

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

Код: Clickermann
  1. KEYDOWN (#CTRL)
  2. WAITMS (50)
  3. KEYPRESS (#C)
  4. KEYUP (#CTRL)
  5. WAITMS (50)
  6. $adr = FROMCLIP()
  7. WAITMS (50)
  8. // разделение на 2 переменной, улица и номер дома
  9. WAITMS (50)
  10. LCLICK(103,153)  // Клик в поле, куда улицу вводить
  11. WAITMS (50)
  12. TOCLIP($uliz)
  13. WAITMS (50)
  14. KEYDOWN (#CTRL)
  15. WAITMS (50)
  16. KEYPRESS (#V)
  17. KEYUP (#CTRL)
  18. WAITMS (50)
  19. LCLICK(1224,604)  // Клик в поле, куда вводить номер дома
  20. WAITMS (50)
  21. TOCLIP($dom)
  22. WAITMS (50)
  23. KEYDOWN (#CTRL)
  24. WAITMS (50)
  25. KEYPRESS (#V)
  26. KEYUP (#CTRL)
  27. HALT
« Последнее редактирование: Ноябрь 24, 2021, 01:39:17 pm от Dlmx »

dramster

  • Герой форума
  • *****
  • Сообщений: 1130
    • Просмотр профиля
Код: Clickermann
  1. KEYDOWN (#CTRL)
  2. WAITMS (50)
  3. KEYPRESS (#C)
  4. KEYUP (#CTRL)
  5. WAITMS (50)
  6. $adr = FROMCLIP()
  7. WAITMS (50)
  8.  
  9. // разделение на 2 переменной, улица и номер дома
  10. // только при условии, что разделитель между томом и улицей всегда запятая и пробел.
  11. $dom = STRCUT2($adr, STRPOS($adr, ", ")+2, STRLEN($adr))
  12. $uliz = STRCUT2($adr, 1, STRPOS($adr, ", ")-1)
  13. print("улица ", $uliz, ", дом ", $dom)
  14.  
  15.  
  16. WAITMS (50)
  17. LCLICK(103,153)  // Клик в поле, куда улицу вводить
  18. WAITMS (50)
  19. TOCLIP($uliz)
  20. WAITMS (50)
  21. KEYDOWN (#CTRL)
  22. WAITMS (50)
  23. KEYPRESS (#V)
  24. KEYUP (#CTRL)
  25. WAITMS (50)
  26. LCLICK(1224,604)  // Клик в поле, куда вводить номер дома
  27. WAITMS (50)
  28. TOCLIP($dom)
  29. WAITMS (50)
  30. KEYDOWN (#CTRL)
  31. WAITMS (50)
  32. KEYPRESS (#V)
  33. KEYUP (#CTRL)
  34. HALT