|
こんにちは。
もしや、こんな事でしょうか?
------------------------------------------------------------------------
Const cFName As String = "****.htm"
Dim TmpTxt As String
Dim MathcCol As Object
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(cFName, 1)
TmpTxt = .ReadAll
.Close
End With
End With
With CreateObject("VBScript.RegExp")
.Pattern = "<TITLE>(.*)(?=</TITLE>)"
Set MathcCol = .Execute(TmpTxt)
If MathcCol.Count > 0 Then
MsgBox MathcCol.Item(0).SubMatches(0)
End If
Set MathcCol = Nothing
End With
|
|