code271a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 15 行

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