自用命令库代码：取节点坐标(xml内容,节点特征)

Function 取节点坐标(xml内容,节点特征) 
Dim qwz,hwz,qpos,hpos,中间文本,x1,y1,x2,y2,x,y
qwz = InStr(1,xml内容,节点特征) 
hwz = InStr(qwz,xml内容,"bounds=") 
qpos = InStr(hwz, xml内容, """") 
hpos = InStr(qpos+1, xml内容, """") 
中间文本=Mid(xml内容,qpos+len(""""),hpos-qpos-len("""")) 
x1 = CInt(取中间文本(中间文本, "[",",")) 
y1 = CInt(取中间文本(中间文本, ",", "]")) 
x2 = CInt(取中间文本(中间文本, "][", ",")) 
y2 = CInt(取中间文本(中间文本, x2&",", "]")) 
x = CInt((x1 + x2) / 2) y = CInt((y1 + y2) / 2) 
取节点坐标 = Array(x,y) 
End Function