Dim dd(1 To 1152, 1 To 4) As Variant
Dim j As Long
Dim wav(2500) As Single
'读取红外波段波长
i = 0
Open "d:\lowe\swavd.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, wav(i)
Loop
Close #1
For i = 1 To 1151
dd(i, 1) = wav(i)
dd(i, 3) = wav(i)
Next i
dd(1, 1) = "R"
dd(1, 3) = "T"
Open App.Path & "\daor.txt" For Input As #1
For i = 2 To 1151
Input #1, dd(1153 - i, 2)
Next i
Close #1
Open App.Path & "\daot.txt" For Input As #1
For i = 2 To 1151
Input #1, dd(1153 - i, 4)
Next i
Close #1