VBA开发，刚学请多指教
怎么样用VBA开发读取文本文件，高程点信息，谢谢http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 馨馨的微博 如果你是想学习vba，哪么，你的问题首先是读取文本文件，这你会吗？ zzyong00 发表于 2016-4-11 22:09 static/image/common/back.gif
如果你是想学习vba，哪么，你的问题首先是读取文本文件，这你会吗？
不会的，几乎零基础，因为要做开发，所以现在在努力学 本帖最后由 煽风点火聊电影 于 2016-4-23 00:31 编辑
看错了
应该是SPLIT文本文件的数据
把数据转化成点的坐标值 x,y
然后绘图是不是这个意思？
可以做成数组，数组的元素来源于TXT
然后再定义坐标点数组就是你获取来的数组
然后绘制POINT（0TO 2）
什么的 煽风点火聊电影 发表于 2016-4-23 00:32 static/image/common/back.gif
可以做成数组，数组的元素来源于TXT
然后再定义坐标点数组就是你获取来的数组
然后绘制POINT（0TO 2）
...
已经读取坐标值了，并且在CAD上展点了，我想通过比较求出x,y的最大最小值，不知道大神会不会啊 是所有点的的最大X、Y值么 bbkcylh 发表于 2016-4-27 06:12 static/image/common/back.gif
是所有点的的最大X、Y值么
对，就是求出X和Y的最大最小值，这是我的代码，不对的地方，希望帮忙改正，谢谢Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
L = 0 '初始值
Open "E:\demdata.txt" For Input As #1'打开文件
Do While Not EOF(1) '文件读取循环
If X(L + 1) > X(L) Then
Xmax = X(L + 1)
ElseIf Y(L + 1) > Y(L) Then
Ymax = Y(L + 1)
Else
Xmin = X(L + 1)
Ymin = Y(L + 1)
End If
L = L + 1 '个数加1
Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
Loop '文件读取循环
Close #1 '关闭文件
End Sub 我只是个三流的程序猿， OpenFor Input As #1从来没用过，不敢妄加评论呀。有事都baidu的。
但是ifelseif的情况不该交叉 。。。
L = 0 '初始值
Open "E:\demdata.txt" For Input As #1'打开文件
Xmax = X(0) :Xmin = X(0)
Ymax = Y(0) :Ymin = Y(0)
Do While Not EOF(1) '文件读取循环
If X(L) >= Xmax Then
Xmax = X(L)
end if
If Y(L) >= Ymax Then
Ymax = Y(L)
End If
If X(L) <= Xmin Then
Xmin= X(L)
end if
If Y(L) <= Ymin Then
Ymin = Y(L)
End If
L = L + 1 '个数加1 浪迹天涯追月 发表于 2016-4-27 09:37 static/image/common/back.gif
我只是个三流的程序猿， OpenFor Input As #1从来没用过，不敢妄加评论呀。有事都baidu的。
但是 ...
就是一个值一个值求吗，谢谢啦
页:
[1]
2