请大师看看

[Z343012090]

这一段什么意思啊
strpath = Now.Date

Dim richtextboxOpen1 As New RichTextBox
Try
richtextboxOpen1.LoadFile("D:\History\" & strpath & ".txt", RichTextBoxStreamType.PlainText)
Dim rt As Integer = 0
For i = 0 To richtextboxOpen1.Lines.Count - 0
Dim dsac As String = richtextboxOpen1.Lines(i)
Curve1Data(Mid(dsac, 1, 5)) = Mid(dsac, 6, 7) * 10

Next
Catch ex As Exception

End Try

[exception92]

加载txt文件到richtextboxOpen1，然后每行都进行遍历，遍历的时候取出6到7的数据 赋值。

[OneCoderr]

*10赋值给名为Curve1Data的数组，对应的数组下标为本行的从1到5的数据。