Question

用vb6.0读取txt文件中的一个数字，并对这个数字取倒数，代码怎么写？

txt文件如下：
。。。。。。。
LOCATION 2 NODE 46272

EVENT/LOADS 1 1 fatigue AND 1 3 fatigue
PRODUCE ALTERNATING SI (SALT) = 10.202 WITH TEMP = 0.0000
CYCLES USED/ALLOWED = 0.5000E+05/ 0.1000E+08 = PARTIAL USAGE = 0.00500

CUMULATIVE FATIGUE USAGE = 0.00500
。。。。。。
要把后面这个0.00500以数字形式读入？求大神帮忙！（文件里有空格，有空行）

Answer 1

很急是吧，现在你看好：假设你文本文件放在E盘下，名为aa.txt，你这个文本文件中的内容必须是在同一行（即就是不在同一行只要你没有使用回车换行就行）并使用空格隔开即可。然后再窗体上加一个按键command1，将以下代码复制过去即可运行。
Private Sub Command1_Click()
Dim StrLine As String, a() As String, i As Long, j As Long, N As Long, b As String
i = 0: j = 0: N = 0
Open "e:\aa.txt" For Input As #1
Line Input #1, StrLine
If StrLine <> "" Then
a() = Split(StrLine, " ")
N = UBound(a)
For i = 0 To N - 1 Step 1
For j = i + 1 To N Step 1
If Val(a(i)) < Val(a(j)) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i
End If
Close #1
Print "总共有 " & N + 1 & "名"
For i = 0 To N
Print "第" & i + 1 & "名 = " & a(i)
Next i
End Sub

Answer 2

有两个 0.00500，你要哪个？

追问

CUMULATIVE FATIGUE USAGE = 0.00500
这个

追答

private sub command1_click()
dim s,a as double
open "c:\1.txt" for input as #1
while not eof(1)
line input #1,s
if instr(1,s,"CUMULATIVE FATIGUE USAGE")>0 then
a=val(right(s,8))
end if
wend
close #1
msgbox a
end sub