现有这样一组数据，怎么用VB编程软件让这些数据画出一条曲线，在线等急用。

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:31:59
时 间 压力分机编号 对应支架编号位 置 P1 P2 2008-3-1 0:00:38 001Z 5 上部 27.5 22.3
2008-3-1 0:01:38 001Z 5 上部 27.5 22.3
2008-3-1 0:02:38 001Z 5 上部 27.5 22.3
2008-3-1 0:03:38 001Z 5 上部 27.7 22.3
2008-3-1 0:04:38 001Z 5 上部 27.7 22.3
2008-3-1 0:05:38 001Z 5 上部 27.7 22.3
2008-3-1 0:06:38 001Z 5 上部 28 22.6
2008-3-1 0:07:38 001Z 5 上部 28.2 22.8
2008-3-1 0:08:38 001Z 5 上部 28.4 23
2008-3-1 0:09:38 001Z 5 上部 28.7 23.3
2008-3-1 0:10:38 001Z 5 上部 28.9 23.5
2008-3-1 0:11:38 001Z 5 上部 29.6 24
2008-3-1 0:12:38 001Z 5 上部 29.6 24
2008-3-1 0:13:38 001Z 5 上部 29.6 23.7
2008-3-1 0:14:38 001Z 5 上部 29.6 24
2008-3-1 0:15:38 001Z 5 上部 29.8 24
2008-3-1 0:16:38 001Z 5 上部 30.1 24
2008-3-1 0:17:38 001Z 5 上部 30.1 24
2008-3-1 0:18:38 001Z 5 上部 30.1 24.2
3/1/2008 0:19 001Z 5 上部 30.1 24
3/1/2008 0:20 001Z 5 上部 30.1 24
3/1/2008 0:21 001Z 5 上部 9.6 7.5
3/1/2008 0:22 001Z 5 上部 29.4 27
3/1/2008 0:23 001Z 5 上部 29.4 26.8<

由于你的数据都是空格分隔的
所以可以用
dim s() as string
s=split(theline," ")
然后看你这个
p1,p2是最后2个（也就是s(5)、和s(6)）
这样就可以得到数据
然后每2个相邻点用LINE画线。。。
回归成曲线的话。。。由于本人数学水平有限。。无能为力。。。

顺便：读取文本每一行的代码

Private Function TextLine(Text As String, nLine As Long) As String
Dim i&, c&, l&, n&
l = 0
Do
i = InStr(l + 1, Text, vbCrLf)
If i > 0 Then c = c + 1
If i = 0 And c < nLine - 1 Then
TextLine = Chr(0)
Exit Function
ElseIf c = nLine - 1 And i = 0 Then
c = c + 1
i = Len(Text)
Exit Do
End If
If c = nLine Then Exit Do
l = i
Loop
If l = 0 And i < Len(Text) Then
TextLine = Mid(Text, 1, i - 1)
ElseIf l = 0 And i = Len(Text) Then
TextLine = Mid(Text, 1, i)
ElseIf i < Len(Text) Then
TextLine = Mid(Text, l + 2, i - (l + 2))
ElseIf i = Len(Text) Then
TextLine = Mid(Text, l + 2, i - (l + 1))
End If
End Function