Dim regExp, matches Set regExp = New RegExp regExp.Pattern = "\d+" ' 匹配一个或多个数字 Set matches = regExp.Execute("abc123def456") For Each match in matches WScript.Echo match.Value ' 输出匹配到的内容 Next 最终结果

上述代码输出的结果应该是：

123
456

因为正则表达式 "\d+" 匹配一个或多个数字，而输入字符串 "abc123def456" 中包含两个这样的数字序列，分别是 "123" 和 "456"。因此，Execute 方法返回两个 Match 对象，分别对应这两个数字序列。在遍历 MatchCollection 对象时，分别输出了这两个 Match 对象的 Value 属性，即匹配到的内容。

相关问题

bat脚本 使用^(\d+)\.(\d+)\.(\d+)$"表达式

可以使用VBScript引擎或PowerShell引擎来在Bat脚本中使用正则表达式。以下是一个使用VBScript引擎的示例，正则表达式为^(\d+)\.(\d+)\.(\d+)$：

@echo off
setlocal EnableDelayedExpansion

set string=version 1.0.988 is the latest release
set regex=^(\d+)\.(\d+)\.(\d+)$

rem 定义VBScript脚本
set vbs="
Set objRegExp = New RegExp
objRegExp.Pattern = ""%regex%""
objRegExp.Global = False
Set objMatch = objRegExp.Execute(""%string%"")
If objMatch.Count > 0 Then
  Set objMatches = objMatch(0).SubMatches
  WScript.Echo objMatches(0) & ""."" & objMatches(1) & ""."" & objMatches(2)
End If
"

rem 使用VBScript引擎执行脚本
for /f "delims=" %%i in ('cscript //nologo //e:vbscript "%vbs%"') do set "new_string=%%i"

echo %new_string%

endlocal

在这个示例中，我们使用VBScript引擎定义了一个正则表达式，并使用Execute()函数匹配字符串，并使用SubMatches属性获取匹配到的子字符串。最后，使用Bat脚本的for /f命令将VBScript脚本的输出赋值给变量new_string，从而实现了在Bat脚本中使用正则表达式的功能。

如果你使用Windows 10及以上版本，也可以使用PowerShell引擎实现正则表达式的功能。以下是一个使用PowerShell引擎的示例，正则表达式为^(\d+)\.(\d+)\.(\d+)$：

@echo off
setlocal EnableDelayedExpansion

set string=version 1.0.988 is the latest release
set regex=^(\d+)\.(\d+)\.(\d+)$

rem 定义PowerShell脚本
set ps1="
[string]$string = '%string%'
$regex = '%regex%'
If ($string -match $regex) {
  $new_string = $matches[1] + '.' + $matches[2] + '.' + $matches[3]
  Write-Output $new_string
}
"

rem 使用PowerShell引擎执行脚本
for /f "delims=" %%i in ('powershell -noprofile -noninteractive -command "& {%ps1%}"') do set "new_string=%%i"

echo %new_string%

endlocal

在这个示例中，我们使用PowerShell引擎定义了一个正则表达式，并使用-match运算符匹配字符串，并使用$matches变量获取匹配到的子字符串。最后，使用Bat脚本的for /f命令将PowerShell脚本的输出赋值给变量new_string，从而实现了在Bat脚本中使用正则表达式的功能。

怎么用VB提取每行J1=后的数字到表格中 G01 Z=-2.009 Y=5.687 G01 Z=-2.024 Y=5.686 CIP Z=-1.923 Y=5.495 K1=-1.973 J1=5.59 CIP Z=-1.799 Y=5.253 K1=-1.86 J1=5.374

您可以使用VB中的字符串处理函数和正则表达式来提取每行J1=后的数字到表格中。以下是示例代码：

Dim str As String
Dim pattern As String
Dim regEx As New RegExp
Dim match As MatchCollection
Dim i As Integer

'读取文本文件
Open "file.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, str
    '使用正则表达式匹配J1=后的数字
    pattern = "J1=(-?\d+\.?\d*)"
    regEx.Pattern = pattern
    Set match = regEx.Execute(str)
    '将匹配结果添加到表格中
    For i = 0 To match.Count - 1
        Worksheets("Sheet1").Cells(i + 1, 1).Value = match.Item(i).SubMatches.Item(0)
    Next i
Loop
Close #1

请注意，此代码仅适用于您的示例文本文件，如果您的文件格式不同，可能需要进行相应修改。