Function GetFile(FileName As String) As String
Dim i As Integer, s As String, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For
Private Sub Command1_Click() "读文件Open "d:a.txt" For Input As #1 Dim Lines As StringDim NextLine As StringDim i As IntegerDo While Not EOF(1) On Error Resume N
