按键精灵_取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