VBScript 中从字符串中提取数字的方法258

您可能会遇到需要从字符串中提取数字的情况，例如从日志文件中提取记录编号或从用户输入中提取数字值。VBScript 提供了几种可用于此目的的方法。

使用正则表达式

正则表达式 (Regex) 是一种强大的工具，可用于从字符串中匹配和提取模式。以下正则表达式可用于匹配字符串中的所有数字：```vbscript
Dim re, matches
Set re = New RegExp
= "\d+"
matches = ("This is a string with 123 numbers 456")
For i = 0 To - 1
matches(i)
Next
```

此代码将打印字符串中找到的数字 123 和 456。

使用函数

VBScript 也包含一些有用的函数，可用于从字符串中提取数字。这些函数包括：* Val：将字符串转换为数字。
* CInt：将字符串转换为整数。
* CDbl：将字符串转换为浮点数。

以下示例演示如何使用这些函数从字符串中提取数字：```vbscript
Dim str, num
str = "123.45"
num = Val(str)
num
```

此代码将打印数字 123.45。

使用循环

如果您不熟悉正则表达式或函数，可以使用循环从字符串中提取数字。此方法涉及遍历字符串的每个字符并检查它是否是数字。如果是，则将字符添加到数字变量中。以下示例演示如何使用循环从字符串中提取数字：```vbscript
Dim str, num, i
str = "This is a string with 123 numbers 456"
num = ""
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then
num = num & Mid(str, i, 1)
End If
Next
num
```

此代码将打印字符串中找到的数字 123 和 456。

从有前导零的字符串中提取数字

如果要从有前导零的字符串中提取数字，可以使用 Trim 函数去除前导空格，然后使用上述方法提取数字。以下示例演示如何从有前导零的字符串中提取数字：```vbscript
Dim str, num
str = "00123"
num = Val(Trim(str))
num
```

此代码将打印数字 123。

在 VBScript 中从字符串中提取数字有几种方法。选择哪种方法取决于字符串的格式和您熟悉的程度。通过使用正则表达式、函数或循环，您可以轻松地从字符串中提取数字并将其用于您的脚本的其余部分。

2025-01-18

上一篇：VBScript：一种经典的脚本语言

下一篇：如何启用 IE 浏览器中的 VBScript