Thinkai's Blog

;适合所有工作表字段（列头）一致的情况
#maxmem 1024
file := "d:\desktop\list.xls"
xls := new exceldb()
xls.open(file)
content := ""
for k,v in xls.GetTableInfo()
{

	for a,b in xls.GetTable("select * from [" k "$]")

	{

		tmp_str := ""

		for x,y in b

		{

			tmp_str .= tmp_str ? "`t""" y """" : """" y """"

		}

		content .= tmp_str "`t" k "`n"

	}
}
FileAppend % content, d:\desktop\out1.txt