请大师看看
这一段什么意思啊
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