xmok 发表于 2008-11-29 10:00:00

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

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

xmok 发表于 2008-11-29 15:17:00

我先把点的坐标用“，”号连成字符串
再用那个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 发表于 2008-11-29 16:06:00

方法1、先用循环把所有点数据转化成整数，再用SPLIT UBound(xx)，不是不点坐标位数太多了造成溢出。
方法2、可以自己写个循环遇到","就加1，计算出数据个数，作用与UBound类似

兰州人 发表于 2008-11-29 21:49:00

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

xmok 发表于 2008-12-4 19:56:00

谢谢，我试试看看
页: [1]
查看完整版本: [求助]VB计算点的坐标求助