ник: Аноним
Я наверное нечетко все описал
Итак:
(--пустая строка-)
Какой то текст
Еще текст
(Снова пустая строка)
Какой то текст
Еще текст
(Снова пустая строка)
-------------------
и т.д. Это формат моего текстового файла
---------------
'Теперь код
Dim tempstr,str1 As String
Dim res As integer
tempstr=""
fn = FreeFile
Open "afor2.txt" For Input As #fn
Do
'MakeRandom()
Line Input #fn, str1
'Эта функция очень странно работает Если строки одинаковы, я ожидаю ноль
и так и есть но только 1 раз(т.е первую пустую строку сравнивает правильно)
'Все остальные встреченные пустые строки она выдает -1
'А у меня алгоритм построен как раз на них
res = StrComp(tempstr, str1)
If res = 0 Then'Пустая строка.Значит за ней 2 полных
count = count + 1
Else
'MsgBox (str1)'показываем первую полную строку
tempstr = str1
Line Input #fn, str1'Достаем вторую строку
temp = temp + str1'Присоединяем к первой
MsgBox (temp)
str1 = ""'На всякий случай
End If
Loop Until EOF(1)
Close
---------------
Самое интересное что в дебагере
видно что str1 пуста, а функция все равно возвращает -1
Чем объяснить такое безобразие?