指定のデータを読み込んで出力するために、VBファイルをどうやって操作すればいいですか？

1年 ago
海斗, 葵
1 minute

指定されたデータを読み込んで出力するには、ファイルの読み込み関数を使用してファイルからすべてのデータを読み込み、条件文を使用して指定されたデータを選択し、出力することができます。

以下は、特定のキーワードを含む行を出力する、テキストファイル内のすべてのデータを読み込む簡単な例です。

Sub ReadFile()
    Dim filePath As String
    Dim fileContent As String
    Dim keyword As String
    
    ' 设置文件路径和关键字
    filePath = "C:\path\to\file.txt"
    keyword = "指定数据"
    
    ' 打开文件并读取所有内容
    Open filePath For Input As #1
        fileContent = Input$(LOF(1), #1)
    Close #1
    
    ' 按行分割内容
    Dim lines() As String
    lines = Split(fileContent, vbCrLf)
    
    ' 遍历每一行并输出包含指定关键字的行
    Dim line As Variant
    For Each line In lines
        If InStr(1, line, keyword, vbTextCompare) > 0 Then
            Debug.Print line ' 输出到调试窗口
            ' 或者使用 MsgBox line 输出到消息框
        End If
    Next line
End Sub

上記の例では、filePath変数をファイルのパスに設定し、keyword変数をフィルタリングするキーワードに設定する必要があります。その後、Openステートメントを使用してファイルを開き、Input $関数を使用してファイルのすべての内容を読み取り、最後にCloseステートメントを使用してファイルを閉じます。

その後、Split関数を使ってファイル内容を行ごとに文字列配列に分割します。そして、For Eachループを使って各行を順に処理し、InStr関数を使ってその行にキーワードが含まれているか判断します。もし含まれていれば、Debug.Print文を使ってその行をデバッグウィンドウに出力するか、MsgBox文を使ってその行をメッセージボックスに出力します。

上記の例は、テキストファイルを読み込む場合にのみ適用されます。他の種類のファイルを読み込む場合は、異なる方法を使用する必要があるかもしれません。

bannerAds