行の読み込みについて (ID:90103)

名前

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

本文 入力元と出力先がわかりませんが、 フラグをたててみては如何でしょうか？ 以下ファイルからの入力でテキストボックスに出力させる定で書き込みます。 Text1はMultiLine = Trueです。 勘違いの回答でしたらすみません。 Private Sub Form_Load() Dim FileNum As Integer Dim strPath As String Dim strLine As String Dim strText As String Dim strSearch As String Dim flgHit As Boolean strSearch = "夏" strPath = App.Path & "\Load.txt" FileNum = FreeFile Open strPath For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, strLine If strLine = strSearch Then flgHit = True End If If flgHit = True Then strText = strText & strLine & vbCrLf End If Loop Close #FileNum Text1 = strText End Sub