如何用vb提取文件中的数据进行绘图

就是用matlab生成的点的坐标输出的时候是两行现在要对应的点进行绘图两点间连直线

举报该问题

其他回答

第1个回答 2013-05-09

发出数据来给我试试看啊。追问

貌似不能直接发文件啊

追答

那就加我吧，5850 7961，我试试啊。

追问

已经加了

追答'贴出来分享一下，呵呵
Private Sub Command1_Click()
    '从文件取数据
    cmDia.InitDir = App.Path
    cmDia.Filter = "*.dat|*.dat"
    cmDia.ShowOpen
    h = FreeFile
    Open cmDia.FileName For Binary As h
    tmp = Input(LOF(h), h)
    Close h

    '处理数据
    s = Split(tmp, vbCrLf)
    c = UBound(s)
    If c > 0 Then
        ss1 = Split(s(0), " ") 'row 1
        ss2 = Split(s(1), " ") 'row2

        cc1 = UBound(ss1)
        cc2 = UBound(ss2)
        If cc1 > cc2 Then cc = cc1 Else cc = cc2

        '图形自适应窗口
        '长度超限制，此段只能略了

        Pic1.Scale (XX1, YY2)-(XX2, YY1)


        '绘制曲线
        Pic1.ForeColor = vbRed
        For i = 1 To cc
            XX# = Val(ss1(i))
            YY# = Val(ss2(i))
            If (PXX# <> 0) Then
                Pic1.Line (PXX#, PYY#)-(XX#, YY#)
            End If
            PXX = XX
            PYY = YY
        Next
    End If
End Sub

本回答被提问者采纳

相似回答

大家正在搜