Работа с EOF

[Absurd]

Бред какой-то... У меня метод EOF возвращает Variant/Bool, который возвращает Variant/True если конец достигнут и Variant/False если таки не достигнут...
Проблема в том, что это цикл почему-то выполняется бесконечно, поскольку Not (ls.EOF) возвращает True даже если ls.EOF равен False =(...

Код: Выделить всё

Sub test()
Dim ls
Set ls = CreateObject("LogScanner.Object.1")
ls.First
While Not (ls.EOF)
     Range(ls.Range).Value = ls.Text
     ls.Next
Wend
End Sub

[AiK]

Absurd, если в ls нет элементов, то цикл твой будет вечен. Если я конечно правильно логику EOF, BOF понимаю.

[chur]

поскольку Not (ls.EOF) возвращает True даже если ls.EOF равен False =(...

Not(False)=True

[Absurd]

Проблема решена выражением
while ls.EOF = False
но почему Not (ls.EOF) возвращает True даже если ls.EOF равен True я так и не понял

[Absurd]

Not(False)=True

Я ошибся в постинге ... У меня получалось, что Not(True)=True, причем достоверно - В дебагере смотрел

[Naeel Maqsudov]

Absurd, это абсурд.
Неверю.
А кто такой logscaner.object?

[Absurd]

Absurd, это абсурд.
Неверю.

Тем не менее факт.
while Not (ls.EOF) - не работает
while ls.EOF = False - работает как надо

А кто такой logscaner.object?

Мой ActiveX объект с дуальным интерфейсом для скриптинга.
Возвращает только OLE Automation - совместимые занчения.
Свойство EOF имеет тип VARIANT. Таг типа равен VT_BOOL.

[chur]

Код: Выделить всё

Dim b As Variant
b = 1 
If Not (b) Then
  MsgBox "NOT(" & b & ") IS TRUE"
Else
  MsgBox "NOT(" & b & ") IS FALSE"
End If
If b = False Then
  MsgBox "(" & b & "=False) IS TRUE"
Else
  MsgBox "(" & b & "=False) IS FALSE"
End If

В VB значение True = -1(минус 1). При использовании значения 1 (плюс 1) в качестве True могут появлятся подобные непонятки. Посмотри как работает код с разными значениями b: (-1, 0, 1).

[Absurd]

BTW а что такое OATRUE/OAFALSE? Используются ли они именно для OLE Automation и Visual Basic'а ?