dim 小节名 = ""
dim 所有小节 = ""
dim 键值 = ""
dim 键名 = ""
dim 所有键名 = ""
dim dictRet = ""
dim objExcelWorkBook = ""
dim 北纬 = ""
dim 东经 = ""
dim 站名 = ""
dim 站数 = ""
dim iPID = ""
dim temp = ""
dim arrayRet = ""
dim sRet = ""
/*填写配置文件*//*填写文件路径INI.Write("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", "Main", "Index", "1")*/objExcelWorkBook = Excel.OpenExcel("C:\\Users\\Administrator\\Desktop\\站点统计.xlsx",true)
/*填写配置文件*/sRet = INI.Read("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", "Main", "StationCount", "NULL")
所有小节 = INI.EnumSection("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini")
For Each 小节名 In 所有小节
所有键名 = INI.EnumKey("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名)
站数 = INI.Read("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名, "Index", "NULL")
所有键名 = INI.EnumKey("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名)
站名 = INI.Read("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名, "Name", "NULL")
东经 = INI.Read("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名, "longitude", "NULL")
北纬 = INI.Read("F:\\索美公司\\公交\\公交模式报站\\9301\\930\\Line1.ini", 小节名, "latitude", "NULL")
TracePrint(站数&站名&东经&北纬)
Excel.WriteRow(objExcelWorkBook,"Sheet1","A"&站数,[站数,站名,东经,北纬],false)
Next