Расширенный Index

pasWord (string[, sEnd])- разбивает строку (для поиска) на элементы массива с помощью символов-разделителей.
pbaIndex (sText, array) - возвращает не 0, если все элементы массива входят в текст.

символы-разделители
- описаны в константе cEndV
- дополнительно можно указать во II-ом параметре ф-ции pasWord

ЗЫ: Код собирал по-быстрому, поэтому в мас-файлах содержится много ф-ций, не задействованных в данной задаче.

 import "f_aword";
var s, t = "1 2 3 4";
while (GetString (s, t + "?"))	MsgBox (
	"Seek ("+ s +") in (" + t + ") = " + String(pbaIndex(t, pasWord(s)))
) end;
Exit(1)