VBA开发，刚学请多指教

馨馨

怎么样用VBA开发读取文本文件，高程点信息，谢谢


该贴已经同步到 馨馨的微博

zzyong00

如果你是想学习vba，哪么，你的问题首先是读取文本文件，这你会吗？

馨馨

zzyong00 发表于 2016-4-11 22:09
如果你是想学习vba，哪么，你的问题首先是读取文本文件，这你会吗？

不会的，几乎零基础，因为要做开发，所以现在在努力学

煽风点火聊电影

看错了
应该是SPLIT文本文件的数据
把数据转化成点的坐标值 x,y
然后绘图是不是这个意思？

煽风点火聊电影

可以做成数组，数组的元素来源于TXT
然后再定义坐标点数组就是你获取来的数组
然后绘制POINT（0  TO 2）
什么的

馨馨

煽风点火聊电影 发表于 2016-4-23 00:32
可以做成数组，数组的元素来源于TXT
然后再定义坐标点数组就是你获取来的数组
然后绘制POINT（0  TO 2）
...

已经读取坐标值了，并且在CAD上展点了，我想通过比较求出x,y的最大最小值，不知道大神会不会啊

bbkcylh

是所有点的的最大X、Y值么

馨馨

bbkcylh 发表于 2016-4-27 06:12
是所有点的的最大X、Y值么

对，就是求出X和Y的最大最小值，这是我的代码，不对的地方，希望帮忙改正，谢谢

2. Dim L As Integer
   
3. Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
   
4. Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
   
5. Sub txt_read()
   
6. Dim txtname As String
   
7. Dim L As Integer
   
8.     L = 0 '初始值
   
9.     Open "E:\demdata.txt" For Input As #1  '打开文件
   
10.     Do While Not EOF(1) '文件读取循环
    
11.     If X(L + 1) > X(L) Then
    
12.     Xmax = X(L + 1)
    
13.     ElseIf Y(L + 1) > Y(L) Then
    
14.     Ymax = Y(L + 1)
    
15.     Else
    
16.     Xmin = X(L + 1)
    
17.     Ymin = Y(L + 1)
    
18.     End If
    
19.     L = L + 1 '个数加1
    
20.     Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    
21.     Loop '文件读取循环
    
22.     Close #1 '关闭文件
    
23. End Sub

Dim L As Integer<br /> Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double<br /> Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double<br /> Sub txt_read()<br /> Dim txtname As String<br /> Dim L As Integer<br />     L = 0 '初始值<br />     Open "E:\demdata.txt" For Input As #1  '打开文件<br />     Do While Not EOF(1) '文件读取循环<br />     If X(L + 1) > X(L) Then<br />     Xmax = X(L + 1)<br />     ElseIf Y(L + 1) > Y(L) Then<br />     Ymax = Y(L + 1)<br />     Else<br />     Xmin = X(L + 1)<br />     Ymin = Y(L + 1)<br />     End If<br />     L = L + 1 '个数加1<br />     Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标<br />     Loop '文件读取循环<br />     Close #1 '关闭文件<br /> End Sub

浪迹天涯追月

我只是个三流的程序猿， Open  For Input As #1  从来没用过，不敢妄加评论呀。有事都baidu的。
但是  if  elseif  的情况不该交叉 。。。


  

1.     L = 0 '初始值
   
2.    Open "E:\demdata.txt" For Input As #1  '打开文件
   
3.   Xmax = X(0) :Xmin = X(0)
   
4.   Ymax = Y(0) :Ymin = Y(0)
   
5.     Do While Not EOF(1) '文件读取循环
   
6.     If X(L) >= Xmax Then
   
7.     Xmax = X(L)
   
8.     end if
   
9.     If Y(L) >= Ymax Then
   
10.     Ymax = Y(L)
    
11.     End If
    
12.    If X(L) <= Xmin Then
    
13.     Xmin= X(L)
    
14.     end if
    
15.     If Y(L) <= Ymin Then
    
16.     Ymin = Y(L)
    
17.     End If
    
18.     L = L + 1 '个数加1

    L = 0 '初始值<br />    Open "E:\demdata.txt" For Input As #1  '打开文件<br />   Xmax = X(0) :Xmin = X(0)<br />   Ymax = Y(0) :Ymin = Y(0)<br />     Do While Not EOF(1) '文件读取循环<br />     If X(L) >= Xmax Then<br />     Xmax = X(L)<br />     end if<br />     If Y(L) >= Ymax Then<br />     Ymax = Y(L) <br />     End If<br />    If X(L) <= Xmin Then<br />     Xmin= X(L)<br />     end if<br />     If Y(L) <= Ymin Then<br />     Ymin = Y(L) <br />     End If<br />     L = L + 1 '个数加1

馨馨

浪迹天涯追月 发表于 2016-4-27 09:37
我只是个三流的程序猿， Open  For Input As #1  从来没用过，不敢妄加评论呀。有事都baidu的。
但是 ...

就是一个值一个值求吗，谢谢啦