[求助]VB计算点的坐标求助

xmok

我有大量的数据，就是点的坐标，有时多大上万个点的坐标，对于重复的点的坐标，我只要取一个就可以了。那这样咋用VB编程呀？

xmok

我先把点的坐标用“，”号连成字符串

再用那个SPLIT来分割，用

Dim xx

xx = Split(str2, ",")
    Dim strResult
    strResult = xx(0)
    str1 = str1 & xx(0)
    NodeNum = 1
    For i = 0 To UBound(xx)
        If InStr(strResult, xx(i)) = 0 Then
            strResult = strResult & "," & xx(i)
            str1 = str1 & " " & xx(i)
            NodeNum = NodeNum + 1  (这个是统计实际有效点的数量的)
        End If
    Next

这里的UBound(xx)显示是溢出。怎样才能得到真正有效点的对应的节点坐标呢？

求各位大侠能出手相助。这里不胜感谢！！

cctv2cctv

方法1、先用循环把所有点数据转化成整数，再用SPLIT UBound(xx)，不是不点坐标位数太多了造成溢出。

方法2、可以自己写个循环遇到","就加1，计算出数据个数，作用与UBound类似

兰州人

用字典功能实现,在网上找一下dictionary,先学习其相关知识,可解决你的需求.

xmok

谢谢，我试试看看