テキストファイルから該当部分コピーする (ID:116340)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 もしRichTextBoxが使えるんだったら、RichTxtBoxと普通のTextBoxを２つ、 コマンドボタンを１つ置いて、Text1に探す文字を入れて Option Explicit Private Sub Command1_Click() Dim t1 As Long, t2 As Long RichTextBox1.LoadFile App.Path + "\" + "test.txt" '読み込むファイル名 t1 = InStr(1, RichTextBox1.Text, Text1.Text, vbTextCompare) If t1 > 0 Then t2 = InStr(t1, RichTextBox1.Text, "End Sub", vbTextCompare) Text2.Text = Mid(RichTextBox1.Text, t1, t2 - t1 + Len("End Sub")) End If End Sub こんな手もあるかも。