Есть скрипт, примитивный, грузит массив с словами и каждое из слов ищет в подстроке s, но загвоздка в том, что InStr всегда возвращает 0 вне зависимости есть ли подстрока в s или нет. Вопрос, почему это может быть?
Dim A As Variant
Const strFileNameA = "C:\Users\vpuhoff\Desktop\CatA\CatA\bin\Debug\asdA.inf
Open strFileNameA For Input As #1
A = Split(Input$(LOF(1), #1), vbLf)
Close #1
Dim s2 As String
s2 = Trim(A(i))
If (InStr(1, s, s2) > 0) Then
Для начала, в вашем куске кода не объявлены переменные i и s, поэтому совершенно не понятно, что Вы хотели присвоить переменной s2 (через ошибку i = Empty подгружается 1-я строка, - а что в первой строке?)
SaNNy32: Дѣаволъ: это просто огрызок большой функции, в моем случае все инициализировано, в s2 и s текст читаем, но кодировка возможно разная, попробую выяснить это. Спасибо
Александр: идея с кодировкой не сработала, кодировка видимо одинаковая, иначе иероглифы вместо текста, глюк видимо в самой функции, она тупит если значение переменной для поиска получается из массива а не каким либо другим способом, если задать значение для поиска явно проблем нет.