m134nУважаемые форумчане,здравствуйте!
Необходима консультация по следующему вопросу.Привет.Есть таблица,по интересующему нас полю из этой таблицы,содержимым которого являются коды(один или два)Два кода в одном поле? Уже бардак.,нужно провести поиск части кода,в идеале полного кода.Если начать с простого,то части кода будет достаточно,в свою очередь она является первыми двумя цифрами.Коды в каждой ячейке Нет в базах данных ячеек. Есть записи, разделенные на поля. разные,из себя могут представлять следующее:
1)12.32.42,44.33.44
2)45.43;23.33
3)31.33.12;22.33 или 4)22.43;22.31.32Оформите сие как скрипт создания таблицы и наполнения ее этими данными. Дабы было что рассматривать практически, а не только чисто умозрительно.Разделители между кодами могут быть как ",",так и ";".Прелестно. Бардак растет.Тип поля character.Cлово(часть кода),которое мы ищем,получаем из textbox.
Предпринимались следующие попытки
1)thisform.AddProperty("cod[1,100]")
select field from mytable into array thisform.cod
for i=1 to alen(thisform.cod)
if at(thisform.text1.value,thisform.cod[i])>0
? Нашли
endif
endfor
Результата нет,ничего не выводит,пробовал at(subst(alltrim(thisform.text1.value),1),(subst(alltrim(thisform.cod[i]),1)),но тщетно. Подозреваю,что проблема в моей неверной интерпретации преобразования типа данных на каком-то этапе.
2)Пробовал occurs
for i=1 to alen(thisform.cod)
if occurs(thisform.text1.value,thisform.cod[i])>0
? Нашли
endif
endfor
Результат схожий.
Буду очень признателен за помощь.1. Зачем для поиска информации в таблице копировать эту информацию в массив? Не читали про locate, seek? Про индексы?
2. Не пробовали просто в командном окне посмотреть результат ?at(thisform.text1.value,thisform.cod[i]) или ?occurs(thisform.text1.value,thisform.cod[i]) ? При чем для тех записей, в которых точно находятся искомые коды? Мне почему-то кажется, что сие зрелище может оказаться очень впечатляющим.

m134nИспользовать thisform. в командной строке на сколько я знаю не предоставляется возможным,Таки возможно, правда с некоторыми плясками. Зато еще один повод таки использовать текстбокс не сам по себе, а привязанный к переменной, которую уже можно смотреть без заморочек.но если я вас правильно понял,то
STORE '33.45.31;23.52.34' TO cod
STORE '33' TO slovo
?AT(slovo,cod) возвращает 1,всё как надо.Отсюда ранее поставленный вопрос,почему этого не происходит в программе
if at(thisform.text1.value,thisform.cod[i])>1
?at(thisform.text1.value,thisform.cod[i]) безрезультатно.То есть команда таки работает правильно? Отсюда вывод - то,что Вы тут ввели в переменные совсем не то, что находится в сравниваемых объектах в программе. Ищите разницу.sg12 Обратите внимание на наличие в SELECT опции WHERE, где и определяются условия фильтра.
Это не совсем подходит,т.к. условие которое мы задаём из textbox может быть частью содержимого записи поля.Запись поля - это что? Поле записи знаю, запись поля не знаю. :) В любом случае это ничего не меняет, в том числе и применимость select для выборки только нужных данных.

m134nvпропущено...

То есть команда таки работает правильно? Отсюда вывод - то,что Вы тут ввели в переменные совсем не то, что находится в сравниваемых объектах в программе. Ищите разницу.
Разницу уже нашёл,с подсказки ВладимирМ'а,необходим был alltrim(thisform.text1.value)Из чего следует, что проблема не возникла бы если бы в настройках текстбокса было настроено убирание концевых пробелов. Почему-то подавляющее большинство о таких настройках даже не догадывается, что приводит к просто дикому количеству alltrim() в коде.