code271a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Location, CurrentLine

  Open "c:\AUTOEXEC.BAT" For Binary As #1
  Do While Location < LOF(1)
    CurrentLine = CurrentLine & Input(1, #1)
    Location = Loc(1)
    If Right(CurrentLine, 1) = Chr(13) Then
      Debug.Print CurrentLine, Location
      CurrentLine = ""
    End If
  Loop
  Close #1
End Sub