テキストファイルから文字列の表示 ２

質問

以前に質問した「テキストファイルから文字列の表示」の続きです。長ったらしい説明になるので、「テキストファイルから文字列の表示」を見た上で答えていただきたいです。コードは、「テキストファイルから文字列の表示」のNO.3～NO.5を主に参考にさせていただきました。OPEN＿"*.*"の抽出が、*.*の形だけではなく、OPEN＿"*"（つまり、OPENのあとに" "があると" "をすべて拾ってくる状態）で認識されています。*.*の形だけで抽出は出来ないものでしょうか。あと、" "の中に、":"（例.OPEN "C:temp",OPEN "ASD:"）があると、":"がある所は無視されてしまいます。これもどうにかならないでしょうか

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=340321

回答No.1

taisuke555 · ベストアンサー

Private Sub FileRead(FL As String)
Dim Fileno As Integer

Dim strdat As String
Dim pot1 As Integer
Dim pDB1 As Integer
Dim pDB2 As Integer

Dim dt As String

Fileno = FreeFile
Open FL For Input As #Fileno 'フォルダをセットする

While Not EOF(Fileno)
Line Input #Fileno, strdat '行データを読み込む

pot1 = InStr(UCase(strdat), "OPEN")
While (pot1 > 0)
pDB1 = InStr(pot1 + 1, strdat, Chr(&H22))
If (pDB1 > 0) Then
pDB2 = InStr(pDB1 + 1, strdat, Chr(&H22))
If (pDB2 > 0) Then
dt = Mid(strdat, pDB1 + 1, pDB2 - pDB1 - 1)
If (InStr(dt, ".")) Then '["]の間に[.]があるか
Text1 = Text1 & dt & vbCrLf
End If
pot1 = pDB2 '２つ目の["]
Else
pot1 = pDB1 '１つ目の["]
End If
End If
pot1 = InStr(pot1 + 1, strdat, Chr(&H22))
Wend
Wend

Close Fileno
End Sub

変数名が若干、変わっています。
１．[:]によって文を分けないようにしました。
２．["]の間に[.]がある場合だけ、Textに表示するようにしました。
　　"*."　や　".*"も対象になります。
３．検索するOPENが小文字の場合にも対応しました。

こんなかんじでいかがでしょう？
多分、無限ループにはならないと思います。

お礼

大変お世話になりました。ありがとうございます。