私はこの正規表現に何が間違っているのかわかりません - regex、vbscript

だから、私は次のvbscriptを書いてコマンドラインが出力するファイル。ファイルの内容は単純に（COMx）となり、xは問題のデバイスのポート番号です。このスクリプトはそのファイルを読み込み、「x」を取り出して新しいテキストファイルに保存することになっています。私は約2週間前にこれを書いてテストしました。今は、私が何をしても、私は仕事を得ることができないようです。これは、2週間前にITが働いていたのとはうんざりしています。誤って何かか何かを変更しましたが、どんな助けもありがたいです。

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:rtlstuffCOM.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close

Set regex = New RegExp
With regex
.Pattern = ".*(COM(.+)?).*"
End With

Dim ComPort
If regex.Test(strContents) Then
ComPort = regex.Replace(strContents,"$1")
End If

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:rtlstuffComPort.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write ComPort
objFile.Close

回答：

正規表現は過度のようだ。その行に「COMx」だけが含まれていることが分かっている場合は、これらの方法の1つを使用しないでください。

" Option 1: Start at the 4th char...
strContents = Mid(objFile.ReadLine, 4)

" Option 2: Remove "COM" from the line...
strContents = Replace(objFile.ReadLine, "COM", "")