Excel - TXTファイルのキーワードを検索し、キーワードがExcelセルにある行を書き込む

Question

TXTファイルのキーワードを検索し、キーワードが見つかった行をExcelセルに書きたいとします。

私は動作するVBAコードを持っていますが、それはキーワード+私が余分に与える文字を書くだけです。 キーワードの後ろにいくつの文字があるかをexaclyで知る必要があります。

私の質問に誰かが

私は必要があります。..ので、行の最後に...それは完全なラインを書くことができますコードで私を助けることができます：

• 機能開いているファイル
を
• 簡単にキーワード
• 簡単に追加キーワードは

感謝を置かれた場所のセルを追加!!

---

Private Sub CommandButton1_Click() 

Dim myFile As String 
Dim text As String 
Dim textLine As String 

Dim S_Name As Integer 

myFile = Application.GetOpenFilename() 

Open myFile For Input As #1 

Do Until EOF(1) 
    Line Input #1, textLine 
    text = text & textLine 
Loop 

Close #1 

S_Name = InStr(text, "keyword1") 

Range("A10").Value = Mid(textLine, S_Name + 0, 30) 

'save sheet to txt file 
ActiveWorkbook.SaveAs Filename:="c:" & "keyword_file " + Format(Now(), "YYYYMMDD") _ 
& ".txt", FileFormat:=xlTextWindows 

End Sub 

Answer 1

キーワードのラインをテストし、それぞれの行をループし、唯一の基準を満たしているあなたの変数textラインを割り当て、その後、すぐにループを終了...

Open myFile For Input As #1 

text = "" 
Do Until EOF(1) 
    Line Input #1, textLine 
    If InStr(1, textLine, "keyword1") > 0 Then 
     text = textLine 
     Exit Do 
    End If 
Loop 

Close #1 

Range("A10").Value = text 

ラインフィード（chr(10）またはvbLf）はラインの終わりをマークするために使用される場合、ファイルシステムオブジェクトを代わりに使用することができ...

' 
' 
' 

Dim oFSO As Object 
Dim oTS As Object 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oTS = oFSO.OpenTextFile(myFile) 

text = "" 
Do Until oTS.AtEndOfStream 
    textLine = oTS.ReadLine 
    If InStr(1, textLine, "keyword1") > 0 Then 
     text = textLine 
     Exit Do 
    End If 
Loop 

oTS.Close 

Range("A10").Value = text 

'etc 
' 
' 

Set oFSO = Nothing 
Set oTS = Nothing