以字符串代替表名.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 20 行

include "mapbasic.def"
declare sub main

sub main
	dim filepath as string
	dim tablename as string
	dim cmdstring as string

	filepath = "C:\Program Files\MapInfo\Professional\data\China\"
	tablename = "china"
	
	cmdstring = "open table " & """" & filepath & tablename & """"
'注意：上句中的 & 不能换成 + ，否则程序会出错！因为 & 和 + 是两种不同作用的连字符。
	run command cmdstring

	cmdstring = "map from " + tablename
	run command cmdstring

	NOTE "The number of Rows is: " + tableinfo(tablename,TAB_INFO_NROWS)
end sub