Germany | Finland | Saint Petersburg | Drive

Find_Substring()

Опубликовано в QPILE

Получение подстроки  по известным индексам начала и конца

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Возвращает подстроку, ограниченную строками OPEN и CLOSE. Ограничители в строку не входят
' Если не найдена, возвращается пустая строка
FUNC Find_Substring(fs_string,fs_open,fs_close)
   fs_open = find(fs_string,0,fs_open)
   if fs_open == -1
       result = ""
       return
  end if
  fs_close = find(fs_string,fs_open,fs_close)
  if fs_close == -1
       result = ""
       return
  end if
  result = substr(fs_string,fs_open+1,fs_close-fs_open-1)
END FUNC

Добавить комментарий