VBA开发，刚学请多指教

馨馨 · 发表于 2016-4-11 21:15:00

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

fxvpnbgapzy.png

该贴已经同步到

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

zzyong00 · 发表于 2016-4-11 22:09:00

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

馨馨 · 发表于 2016-4-12 18:08:00

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

煽风点火聊电影 · 发表于 2016-4-23 00:30:00

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

煽风点火聊电影 · 发表于 2016-4-23 00:32:00

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

馨馨 · 发表于 2016-4-25 21:39:00

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

bbkcylh · 发表于 2016-4-27 06:12:00

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

馨馨 · 发表于 2016-4-27 08:57:00

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

copy


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

浪迹天涯追月 · 发表于 2016-4-27 09:37:00

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

copy

    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:39:00

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

VBA开发，刚学请多指教

发表回复

精选推荐