实时错误‘62’：输入超过文件尾

Question

我编了一段代码如下，就是把一个文件的内容读出来： 
-------- 
Private Sub Command1_Click() 
  
 Dim strfilename As String 
 Dim strtext As String 
  
 strfilename = "d:\plan.xml" 
 Open strfilename For Input As #1 
  strtext = Input$(LOF(1), #1) 
  Close #1 
  MsgBox (strtext) 
  
 End Sub 
----------- 
要如何解决？

Answer 1

给你个文件操作的参考例子，希望给你启发网友的要求
设有文件a.txt，其中存放了两行数据，数据用逗号分隔，现在要读取第一行的奇数位置的数据写入到另一个文本文件（b.txt）的第一行，类似地，把第二行的奇数位置的数据写入到第二行。
比如：
文件a.txt如下：
1，2，3，4，5
6，7，8，9，10
操作完成后，文件b.txt应为
1,3,5
6,8,10
因为我没有用过vb，希望各位能给出完整一点的代码，谢谢！解决的代码
Sub 提取奇数位数据(strSourceFile As String, strTargetFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
    
    Dim tmpDemData As String
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    '取出源文件行数，按照回车换行来分隔成数组
    
    filenum = FreeFile
    tmpDemData = ""
    If Dir(strTargetFile, vbNormal) <> "" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String    Open strTargetFile For Append As #filenum
        '循环每一行
        For i = 0 To UBound(fileInfo) - 1
            Filestr = Split(Trim(fileInfo(i)), ",")  '按照逗号分隔每一行的数据
            tmpDemData = ""
            For j = 0 To UBound(Filestr)
                '判断是否为奇数位
                If (j Mod 2) = 0 Then
                    tmpDemData = tmpDemData & Filestr(j)
                ElseIf j <> 0 And j <> UBound(Filestr) Then
                    tmpDemData = tmpDemData & ","
                End If
            Next
            '保存一行如目标文件
            Print #filenum, tmpDemData
        Next
    Close #filenum
    MsgBox "完毕"
End SubPrivate Sub Command1_Click()
    提取奇数位数据 "d:\aa.txt", "d:\bb.txt"
End Sub