ZetCode

VBScript 字符串

最后修改于 2025 年 2 月 19 日

在本文中,我们将学习如何在 VBScript 中处理字符串。字符串是用于表示文本的字符序列。我们将使用 WScript.Echo 输出结果,并使用 cscript 运行脚本。

问候消息

第一个示例演示了如何创建和显示字符串。

simple_string.vbs
Dim message
message = "Hello there!"

WScript.Echo message

此示例声明了一个字符串变量 message,并为其赋值 "Hello there!"。然后使用 WScript.Echo 显示该字符串。

字符串连接

您可以使用 & 运算符连接字符串。

concatenate_strings.vbs
Dim firstName, lastName, fullName
firstName = "John"
lastName = "Doe"
fullName = firstName & " " & lastName

WScript.Echo fullName

此示例连接两个字符串 firstNamelastName 以创建全名。

字符串长度

您可以使用 Len 函数确定字符串的长度。

string_length.vbs
Dim text
text = "VBScript"

WScript.Echo "Length: " & Len(text)

此示例计算并显示字符串 text 的长度。

子字符串

您可以使用 Mid 函数从字符串中提取子字符串。

substring.vbs
Dim sentence, substring
sentence = "The quick brown fox"
substring = Mid(sentence, 5, 5)

WScript.Echo "Substring: " & substring

此示例从位置 5 开始提取长度为 5 个字符的子字符串。

字符串比较

您可以使用 = 运算符或 StrComp 函数比较字符串。

string_comparison.vbs
Dim str1, str2
str1 = "apple"
str2 = "Apple"

If StrComp(str1, str2, vbTextCompare) = 0 Then
    WScript.Echo "Strings are equal."
Else
    WScript.Echo "Strings are not equal."
End If

此示例使用 StrComp 不区分大小写地比较两个字符串。

字符串替换

您可以使用 Replace 函数替换字符串中的部分内容。

string_replacement.vbs
Dim original, replaced
original = "I like apples."
replaced = Replace(original, "apples", "oranges")

WScript.Echo replaced

此示例将字符串 original 中的单词 "apples" 替换为 "oranges"。

字符串拆分

您可以使用 Split 函数将字符串拆分为数组。

string_splitting.vbs
Dim data, parts, part
data = "apple,banana,cherry"
parts = Split(data, ",")

For Each part In parts
    WScript.Echo part
Next

此示例使用逗号作为分隔符将字符串 data 拆分为数组,并输出每个部分。

字符串修剪

您可以使用 TrimLTrimRTrim 函数删除字符串开头和结尾的空格。

string_trimming.vbs
Dim untrimmed, trimmed
untrimmed = "   VBScript   "
trimmed = Trim(untrimmed)

WScript.Echo "Trimmed: '" & trimmed & "'"

此示例修剪字符串 untrimmed 开头和结尾的空格。

字符串大小写转换

您可以使用 UCaseLCase 函数将字符串转换为大写或小写。

string_case_conversion.vbs
Dim mixedCase, upperCase, lowerCase
mixedCase = "VBScript"
upperCase = UCase(mixedCase)
lowerCase = LCase(mixedCase)

WScript.Echo "Uppercase: " & upperCase
WScript.Echo "Lowercase: " & lowerCase

此示例将字符串 mixedCase 转换为大写和小写。

字符串搜索

您可以使用 InStr 函数在字符串中搜索子字符串。

string_searching.vbs
Dim mainString, searchString, position
mainString = "The quick brown fox"
searchString = "brown"
position = InStr(mainString, searchString)

WScript.Echo "Position: " & position

此示例在字符串 mainString 中搜索子字符串 "brown" 并返回其位置。

在本文中,我们探讨了如何在 VBScript 中处理字符串。我们介绍了字符串创建、连接、长度、子字符串、比较、替换、拆分、修剪、大小写转换和搜索。字符串是许多编程任务的基础,VBScript 提供了丰富的函数来操作它们。

作者

我的名字是 Jan Bodnar,我是一名充满热情的程序员,拥有丰富的编程经验。我自 2007 年以来一直在撰写编程文章。迄今为止,我已撰写了 1400 多篇文章和 8 本电子书。我在编程教学方面拥有十多年的经验。

列出所有 VBScript 教程