如何使用VB6读取txt文件每第二行内容并在MsgBox中展示

修改后的完整代码 #

Sub Printed
    Dim sFileText As String
    Dim sFinal as String
    Dim iFileNo As Integer
    Dim iLineCount As Integer ' 新增行计数器
    iFileNo = FreeFile
    iLineCount = 0 ' 计数器初始值设为0
    Open "D:\Information\data.txt" For Input As #iFileNo
    Do While Not EOF(iFileNo)
        Input #iFileNo, sFileText
        iLineCount = iLineCount + 1
        ' 仅保留偶数行（第2、4、6……行的姓名内容）
        If iLineCount Mod 2 = 0 Then
            sFinal = sFinal & sFileText & vbCRLF
        End If
    Loop
    MsgBox sFinal
    Close #iFileNo
End Sub

改动说明 #

• 新增行计数器iLineCount，每成功读取一行内容计数器自动加1
• 新增奇偶行判断逻辑，仅当行号为偶数时才将内容拼接至最终展示的字符串中
• 完全保留原有代码的文件读写、输出逻辑，无需调整原文件路径和输出形式

如果你的TXT文件行内容存在逗号、空格等特殊分隔符导致Input #读取内容不全，可以将Input #iFileNo, sFileText替换为Line Input #iFileNo, sFileText实现整行完整读取。

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