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

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

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

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

<p>我先把点的坐标用“，”号连成字符串</p><p>再用那个SPLIT来分割，用</p><p>Dim xx</p><p>xx = Split(str2, ",")<br/>&nbsp;&nbsp;&nbsp; Dim strResult<br/>&nbsp;&nbsp;&nbsp; strResult = xx(0)<br/>&nbsp;&nbsp;&nbsp; str1 = str1 &amp; xx(0)<br/>&nbsp;&nbsp;&nbsp; NodeNum = 1<br/>&nbsp;&nbsp;&nbsp; For i = 0 To UBound(xx)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(strResult, xx(i)) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strResult = strResult &amp; "," &amp; xx(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; str1 = str1 &amp; " " &amp; xx(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NodeNum = NodeNum + 1&nbsp; (这个是统计实际有效点的数量的)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next</p><p></p><p>这里的UBound(xx)显示是溢出。怎样才能得到真正有效点的对应的节点坐标呢？</p><p>求各位大侠能出手相助。这里不胜感谢！！<br/></p>

cctv2cctv 发表于 2008-11-29 16:06:00

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

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

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

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

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