v7: Глюк Формекс? Или я чего-то не понял...

База.РазрешитьЗагрузкуРасширений(1);
SELECT load_extension('sqlite3_mod_pcre.dll');

SELECT
  ID  [Номенклатура $Справочник.Номенклатура]
FROM Справочник_Номенклатура
WHERE REGEXP('белое.*вино|вино.*белое',descr)
GROUP BY ID

СтрПоиска                    = ПодстрокаПоиска;

SELECT load_extension('sqlite3_mod_fts3.dll');
CREATE VIRTUAL TABLE test USING fts3(content TEXT);
INSERT INTO test SELECT DESCR from Справочник_Номенклатура;
SELECT * FROM test WHERE content MATCH 'темное пиво';

(56) "Но в этот момент, ты это поле переприсваиваешь, и, видимо, ловишь момент, когда поле перерисовалось"

(62) "Просто должно тупо выводить на форму содержимое поля ввода."

Перем ПодстрокаПоиска;
Перем Расш,АтрФ;
Перем БазаДанных;

Процедура ПриОткрытии()
    ПодстрокаПоиска = "Сигареты ""Курить вредно!""";
    СтрПоиска     = ПодстрокаПоиска;
    РезПоиска.НоваяКолонка("НайдТов"); 
    ЗагрузитьВнешнююКомпоненту("1CPP.dll");
    ЗагрузитьВнешнююКомпоненту("FormEx.dll"); 
    ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
    БазаДанных = СоздатьОбъект("SQLiteBase");
    БазаДанных.Открыть(":memory:");

    Расш = СоздатьОбъект("РасширениеФормы");
    Расш.УстановитьФорму(Форма);
    АтрФ = Расш.ПолучитьАтрибут("СтрПоиска");
КонецПроцедуры 

Функция НайтиТоварSqlLite(Наим)
    Если ПустоеЗначение(Наим) = 1 Тогда
        Возврат 0;
    КонецЕсли;
    РазбиваемаяСтрока = СтрЗаменить(РазбиваемаяСтрока,"'","''");
    РазбиваемаяСтрока = СтрЗаменить(СокрЛП(Наим)," ",РазделительСтрок);
    Запрос = БазаДанных.НовыйЗапрос();
    Текст = "SELECT
                |code Код,
                |id [Товар :Справочник.Номенклатура]
                |FROM [Справочник.Товары]
                |WHERE isfolder=2 and ismark <> '*'"; 
    Для Индекс = 1 По СтрКоличествоСтрок(РазбиваемаяСтрока) Цикл
        Слово = СтрПолучитьСтроку(РазбиваемаяСтрока,Индекс); 
        Если ПустоеЗначение(Слово) = 0 Тогда
            Текст = Текст + "
                |AND descr LIKE '%" + Слово + "%'";
        КонецЕсли;
    КонецЦикла;            
    Тз = Запрос.ВыполнитьЗапрос(Текст);
    РезПоиска.УдалитьСтроки();
    Если Тз.КоличествоСтрок() > 0 Тогда
         Тз.ВыбратьСтроки();
         Пока Тз.ПолучитьСтроку() = 1 Цикл
             РезПоиска.НоваяСтрока();
             РезПоиска.НайдТов       = Тз.Товар;
         КонецЦикла;
         Возврат 1;
    Иначе 
         РезПоиска.УдалитьСтроки();
        Возврат 0;    
    КонецЕсли;
КонецФункции

Процедура ПопробоватьНайти()
    Рез = НайтиТоварSqlLite(СокрЛП(ПодстрокаПоиска));
КонецПроцедуры

Процедура ПриНажатииКнопкиКлавиатуры(КодКлавиши, Альт, Шифт, Контрол, Символ, ФлСт)    
    Если Форма.АктивныйЭлемент()     = "СтрПоиска" Тогда
        ФлСт=0;
        Если КодКлавиши             = 13 Тогда
            ПопробоватьНайти();
            Возврат;
        ИначеЕсли КодКлавиши         = 8 Тогда 
            ПодстрокаПоиска     = Лев(ПодстрокаПоиска, СтрДлина(ПодстрокаПоиска) - 1);
        Иначе
            ПодстрокаПоиска            = ПодстрокаПоиска + Символ;
        КонецЕсли;
        Форма.ИнфСтрПоиска.Заголовок(ПодстрокаПоиска);
        АтрФ.Значение = ПодстрокаПоиска;
        Форма.Обновить(0);
        ПопробоватьНайти();
    КонецЕсли;    
КонецПроцедуры

Сервис.ЭмулироватьКлавиатуру("{ENTER}", 0, );
Система = СоздатьОбъект("Система");
Система.РазрешитьАктивацию();
Система.Активизировать("Реквизит");
Сервис.ЭмулироватьКлавиатуру("{END}", 0, );

SELECT load_extension('strmatch.dll');
SELECT 
descr,
strmatch(descr,'1Стакан из пластмасс Желтый 200мл')
from Справочник_Номенклатура
order by strmatch(descr,'1Стакан из пластмасс Желтый 200мл') desc

Обработка на 1С ~3c, на sqlite 300мс ;)

(69) "СтрПоиска    = ПодстрокаПоиска"
- нахера?

(72) Потому что у него установлено ФлСт=0;

SELECT load_extension('strmatch.dll');
ошибка not authorized. 

Сервис = СоздатьОбъект(''Сервис'');
Сервис.ОбработкаОжидания(''глПолучитьНовыеЗаявки'',100);

(93) кинул strmatch в \bin
Крах системы

Вылет на 
БазаДанных.РазрешитьЗагрузкуРасширений(1);