If Dir("c:\ftzj\内容1.txt")"" Then '内容
Dim st1, TL1 As String
Open "c:\ftzj\内容1.txt" For Input As #1'读取文件。
Do While Not EOF(1)
Line Input #1, TL1
st1 = st1 & TL1 & Chr(13)
Loop
Close #1
T1.Text = st1
End If
If Dir("c:\ftzj\内容2.txt")"" Then '内容
Dim st2, TL2 As String
Open "c:\ftzj\内容2.txt" For Input As #1'读取文件。
Do While Not EOF(1)
Line Input #1, TL2
st2 = st2 & TL2 & Chr(13)
Loop
Close #1
T2.Text = st2
End If
If Dir("c:\ftzj\内容3.txt")"" Then
Dim st3, TL3 As String
Open "c:\ftzj\内容3.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TL3
st3 = st3 & TL3 & Chr(13)
Loop
Close #1
T3.Text = st3
End If
(就这样一直加1)
。
。
。
。
这些代码都差不多,有没有什么方法。可以使代码更少些。比较那些1,2,3用一个变量来代替。这样行的吗?有谁知道的。
|