Percy,
You wonder how many of the most common used functions in MapBasic you
actually have to write yourself ;-)
This is one of those, but it is quite simple to
write.
Function GetListOfOpenTables(arrTabs() As String) As
Integer
Dim nTab As Integer
GetListOfOpenTables = 0
Redim
arrTabs(NumTables())
For nTab = 1 To
NumTables()
'**Here you could laos add conditions,
only base tables, not semaless tables, only mappable
...
arrTabs(nTab) = TableInfo(nTab,
TAB_INFO_NAME)
Next
GetListOfOpenTables = Ubound(arrTabs)
End Function
HTH,
Peter
Horsbøll Møller
GIS Developer, MTM Geographical Information & IT COWI A/S Odensevej 95 DK-5260 Odense S. Denmark Tel +45 6311 4900 Direct +45 6311 4908 Mob +45 5156 1045 Fax +45 6311 4949 E-mail [EMAIL PROTECTED] http://www.cowi.dk/gis "For enden af
regnbuen..." - hvordan kommer man dertil og er
det overhovedet muligt? From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bell, Percy Sent: Monday, July 17, 2006 7:41 AM To: MapInfo-L@lists.directionsmag.com Subject: [MI-L] List of open files [SEC=UNOFFICIAL] Guys, I am trying to adapt
a packager program for our own archiving. But I have been tearing my hair out
trying to find a command in Mapbasic to return a list of open tables and
queries. Can anybody
help? Cheers Percy Percy
Bell Research Statistics and
Technology Branch Phone: (02) 6271
1463 Mob:
(0415) 260 805
|
_______________________________________________ MapInfo-L mailing list MapInfo-L@lists.directionsmag.com http://www.directionsmag.com/mailman/listinfo/mapinfo-l