Author Topic: Сравнение текста  (Read 3275 times)

0 Members and 1 Guest are viewing this topic.

SIS123

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Сравнение текста
« on: September 13, 2016, 11:56:17 PM »
Подскажите пожалуйста как  реализовать функцию проверки много строчного текста текстовика и примерно такого же текста из буфера обмена браузера на идентичность.Проблема в том что в буфере обмене текст полный а текстовике можно только сверять конкретные строки 

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Сравнение текста
« Reply #1 on: September 14, 2016, 12:32:02 AM »
примерно такого же текста

а насколько он примерно такойже? если разница только в том, что в текстовике он разбит на строки, то просто ищи эти строки в строке буфера STRPOS ("str", "substr")

примерно так
Code: (clickermann) [Select]


FOR($str=1,$str<TFCOUNT("file.txt")+1)
   IF(STRPOS(FROMCLIP (), TFREAD ("file.txt",$str)) > 0)
      print("строка номер ", $str, " есть в буфере")
   ELSE
      print("строки номер ", $str, " нет в буфере")
   END_IF   
END_CYC


поочередно проверяем наличие строк из файла в буфере. причем, можно отследить, по очереди эти строки идут в буфере или в разброс (если такая вероятность существует, примеров текста и строк то ты не дал).
« Last Edit: September 14, 2016, 12:33:34 AM by dramster »

SIS123

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Re: Сравнение текста
« Reply #2 on: September 14, 2016, 12:21:39 PM »
работает спасибо