Как найти и закрыть все пустые таблицы из MapBasic

[grandred75]

Добрый день.
Собственно, вопрос в теме. Как закрыть пустые (открытые) таблицы из MapBasic?

[MI user]

Как закрыть пустые (открытые) таблицы из MapBasic?

Проверить количество записей в таблице:

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

TableInfo(ИМЯТАБЛИЦЫ, 8)

Затем закрыть:

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

Close Table ИМЯТАБЛИЦЫ

Примеры из справки:

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

Open Table "world" 
' ... when done using the WORLD table,
' close it by saying: 
Close Table world

[grandred75]

Честно говоря, не понял как это можно применить к моей задаче ... Тем не менее собрал вот такой код. Код работает, но как-то не до конца. Программа вылетает где-то в середине процесса. Почему, не могу разобраться

Dim n, count as Integer
Dim CurrentTable as string
For n = 1 to NumTables( )
CurrentTable = TableInfo(n , TAB_INFO_NAME)
Select * from CurrentTable
If SelectionInfo(SEL_INFO_NROWS) = 0 then
print CurrentTable
Close Table CurrentTable Interactive
else
End If
Next

[gamm]

попробуйте

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

Dim n, count, CurNum as Integer
Dim CurrentTable as string
For n = 1 to NumTables( )
  CurrentTable = TableInfo(n , TAB_INFO_NAME)
  CurNum = TableInfo(n , TAB_INFO_NROWS)
  If CurNum = 0 then
    print CurrentTable
    Close Table CurrentTable Interactive
  End If
Next

[grandred75]

попробовал. ошибка та же. Таблица 19 (или еще какая-нибудь) не найдена.

[gamm]

ясно, проблема в том, что при закрытии таблиц их число уменьшается. По хорошему, нужно сначала список имен пустых таблиц сделать, потом закрывать по списку, но я не помню, можно ли создать динамический массив в Мапвасике. Так что делаем тупо в лоб, будет дольше, но должно сработать

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

Dim n, count, CurNum, found as Integer
Dim CurrentTable as string
Do
  found = 0
  For n = 1 to NumTables( )
    CurrentTable = TableInfo(n , TAB_INFO_NAME)
    CurNum = TableInfo(n , TAB_INFO_NROWS)
    If CurNum = 0 then
      print CurrentTable
      Close Table CurrentTable Interactive
      found = 1
      Exit For
    End If
  Next
Loop Until found = 0

[grandred75]

Да! Это то, что нужно! Спасибо, выручили

[spawner]

Можно просто сделать цикл с numtables до 1
И закрывать последовательно

[gamm]

Кто его знает, что там происходит при закрытии и как все это перенумеруется. В лоб надежнее ...