如何通过逐字符读取的宏定位输入文件的换行标记（End Of Line）

嘿，我看你正在捣鼓VBA宏，想逐字符读取文件并定位行尾（EOL）标记对吧？咱们来把你现有的代码逻辑补全并修正几个容易踩的坑～

先说说你当前代码片段里可能遇到的问题：

• 换行格式兼容问题：Windows系统的标准换行是回车+换行（vbCrLf，ASCII 13+10），只判断vbLf会漏掉前面的vbCr，导致行内容解析出错；
• 死循环风险：内层的While (oneChar <> vbLf)没有处理文件提前结束的情况——如果文件最后一行没有换行符，这个循环会一直跑下去；
• 概念混淆：VBA里的EOF()函数是判断文件末尾，而你要找的是行尾（EOL），得把这两个逻辑区分开，避免外层循环逻辑混乱。

下面是补全并优化后的代码，带详细注释，能兼容不同系统的换行格式，还能避免死循环：

Sub ReadFileCharByCharWithEOL()
    Dim inFileNum As Integer
    Dim oneChar As String
    Dim currentLine As String
    
    ' 获取可用的文件号（避免和其他打开的文件冲突）
    inFileNum = FreeFile
    ' 替换成你的文件路径，这里用Input模式打开纯文本文件
    Open "C:\Your\Target\File.txt" For Input As #inFileNum
    
    ' 外层循环：遍历整个文件直到末尾
    While Not EOF(inFileNum)
        currentLine = "" ' 重置当前行的内容容器
        
        ' 内层循环：逐字符读取直到遇到行尾标记或文件结束
        Do
            oneChar = Input(1, #inFileNum)
            
            ' 处理不同的换行格式
            Select Case oneChar
                Case vbLf
                    ' 遇到Unix/Linux风格的换行，直接跳出循环（行结束）
                    Exit Do
                Case vbCr
                    ' 遇到回车，检查下一个字符是否是换行（Windows风格）
                    If Not EOF(inFileNum) Then
                        oneChar = Input(1, #inFileNum)
                        ' 如果不是换行，把回车加回当前行，再加入当前字符
                        If oneChar <> vbLf Then
                            currentLine = currentLine & vbCr & oneChar
                        End If
                    Else
                        ' 文件末尾是单独的回车，直接加入当前行
                        currentLine = currentLine & vbCr
                    End If
                Case Else
                    ' 普通字符，添加到当前行
                    currentLine = currentLine & oneChar
            End Select
        ' 循环终止条件：要么到文件末尾，要么遇到换行符
        Loop Until EOF(inFileNum) Or oneChar = vbLf
        
        ' 这里写你对当前行的处理逻辑，比如打印、存储等
        Debug.Print "解析到行：" & currentLine
    Wend
    
    ' 一定要记得关闭文件！
    Close #inFileNum
End Sub

• 多换行格式兼容：同时处理Windows的vbCrLf、Unix的vbLf和旧Mac的vbCr，适配不同系统生成的文件；
• 避免死循环：内层循环加入EOF(inFileNum)的判断，哪怕文件最后一行没有换行符，也能正常退出；
• 完整保留行内容：不会因为换行标记丢失有效字符，比如单独的回车也会被正确加入行内容；
• 安全的文件号：用FreeFile获取可用文件号，避免手动指定的文件号和其他打开的文件冲突。

• 如果你的文件是普通纯文本，且不需要逐字符处理特殊格式，其实VBA自带的Line Input #语句可以直接读取一行，效率更高；但如果必须逐字符解析（比如处理特殊编码、自定义分隔符），上面的代码就很合适；
• 调试时可以用Debug.Print oneChar输出每一个读取到的字符，方便排查解析逻辑的问题；
• 打开文件时如果遇到权限问题，可以检查文件是否被其他程序占用，或者改用Binary模式打开（需要额外处理编码）。

内容的提问来源于stack exchange，提问作者WIW Wrestling