从文本文件VBA中提取数据，其中行包含特定字符串

要从包含特定字符串的文本文件中提取数据，可以使用VBA（Visual Basic for Applications）编写一个宏来实现这一功能。以下是一个基本的步骤和示例代码，用于从文本文件中提取包含特定字符串的行。

基础概念

VBA: Visual Basic for Applications，是一种编程语言，用于自动化Microsoft Office应用程序中的任务。
文本文件: 一种存储简单文本数据的文件，通常以.txt为扩展名。
字符串匹配: 在文本中查找特定字符序列的过程。

类型

简单文本文件: 如.txt文件。
CSV文件: 逗号分隔值文件，常用于数据交换。

应用场景

数据清洗和预处理。
报告生成。
数据迁移。

示例代码

以下是一个VBA宏示例，用于从文本文件中提取包含特定字符串的行，并将这些行保存到一个新的文本文件中。

Sub ExtractLinesWithSpecificString()
    Dim filePath As String
    Dim searchStr As String
    Dim outputFilePath As String
    Dim fileNum As Integer
    Dim line As String
    Dim linesToSave() As String
    Dim i As Integer
    
    ' 设置文件路径和搜索字符串
    filePath = "C:\path\to\your\input.txt"
    searchStr = "特定字符串"
    outputFilePath = "C:\path\to\your\output.txt"
    
    ' 打开输入文件
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    ' 读取文件并查找包含特定字符串的行
    i = 0
    Do Until EOF(fileNum)
        Line Input #fileNum, line
        If InStr(line, searchStr) > 0 Then
            i = i + 1
            ReDim Preserve linesToSave(i)
            linesToSave(i) = line
        End If
    Loop
    
    ' 关闭输入文件
    Close #fileNum
    
    ' 将找到的行写入新的文本文件
    fileNum = FreeFile
    Open outputFilePath For Output As #fileNum
    For i = 1 To UBound(linesToSave)
        Print #fileNum, linesToSave(i)
    Next i
    Close #fileNum
    
    MsgBox "提取完成，结果已保存到 " & outputFilePath
End Sub