VBA + 从文件中读取带引号的行

使用VBA读取文件中带引号的行是一项常见的任务，可以帮助我们从文本文件中提取特定格式的数据。本文将介绍如何使用VBA进行文件读取，并提供一个案例代码来说明该过程。

vba
Sub ReadFile()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    Dim textLine As String
    
    ' 设置文件路径
    filePath = "C:\example.txt"
    
    ' 创建FilesystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开文件
    Set file = fso.OpenTextFile(filePath, 1)
    
    ' 逐行读取文件内容
    Do Until file.AtEndOfStream
        textLine = file.ReadLine
        
        ' 在这里进行相应的处理
        ' 可以使用字符串函数来判断某一行是否包含引号，然后提取所需的信息
        ' 例如：If InStr(textLine, Chr(34)) > 0 Then ...
    Loop
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub

vba
Sub ExtractQuotes()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    Dim textLine As String
    Dim rowNum As Integer
    
    ' 设置文件路径
    filePath = "C:\example.txt"
    
    ' 创建FilesystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开文件
    Set file = fso.OpenTextFile(filePath, 1)
    
    ' 设置起始行号
    rowNum = 1
    
    ' 逐行读取文件内容
    Do Until file.AtEndOfStream
        textLine = file.ReadLine
        
        ' 判断该行是否包含引号
        If InStr(textLine, Chr(34)) > 0 Then
            ' 将带引号的行输出到Excel表格中的下一行
            Cells(rowNum, 1).Value = textLine
            rowNum = rowNum + 1
        End If
    Loop
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub