; 提取查询结果中的表格内容
FileDelete, result.txt
Loop, %TotalPage%
{
MatchItemNum := 0
Loop, Read, Html\%A_Index%.html, result.txt
{
; 抽取表格字段
If (A_LoopReadLine ~= "i)[^<]+<td [^>]+class=""calc""")
{
MatchItemNum++
Field := RegExReplace(A_LoopReadLine,"i)^[^>]+>(<a href=""([^""]+)"">)?([^<]+)<.+","$2$3")
StringReplace, Field, Field, , , All
; 表格中的字段每5个组成一条记录
ModNum := Mod(MatchItemNum,5)
If (ModNum = 1)
FileAppend, % "`n" Field "`t"
else
{
If (ModNum <> 0)
FileAppend, % Field "`t"
else
FileAppend, % "http://gis2.sinica.edu.tw/place/" SubStr(Field,1,-4)
}
}
}
}
MsgBox, 整理完毕