Вопрос: Поиск в строке...

[DerMeister =)]

Вот задача: Имеется две строки, надо определить является ли строка 1 частью строки 2...
Помогите пожалуйста...

Желательно получить процедуру, которая возвращает либо true, либо false:

Code: Select all

FindInString(string1,string2)

Поиск лучше вести с конца строки...

[admir]

Code: Select all

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  for var i=0 to (len(string1)-len(string2))
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

[DerMeister =)]

Code: Select all

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  var i,l
  for i=0 to (len(string1)-len(string2))
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

Круто! Спасибо! Только помоему эта процедура ищет слева направо...

С права на лево,наверное, будет так:

Code: Select all

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  var i,l
  for i=(len(string1)-len(string2)) to 0 step -1
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

[Edred]

Code: Select all

#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
  if len(string1)<len(string2) then
    return 0
  end if  
  for var i=0 to (len(string1)-len(string2))
      if mid(string1,i,len(string2)) == string2 then 
          return 1
      end if
  next
  return 0 
end sub

Доработай эту функцию чтобы она возвращала позицию начала подстроки в строке, 0 - если не найдено. И будет хорошая стандартная функция.