VBS 筛选期望字符：简单代码示例及使用方法

以下是一个用 VBS 筛选期望字符的示例程序：

Option Explicit

Dim strInput, strExpected, strFiltered
Dim intLength, intIndex

' 输入字符串
strInput = InputBox("请输入字符串：", "筛选期望字符")

' 期望字符
strExpected = InputBox("请输入期望字符：", "筛选期望字符")

' 字符串长度
intLength = Len(strInput)

' 遍历字符串，筛选期望字符
For intIndex = 1 To intLength
    If Mid(strInput, intIndex, 1) = strExpected Then
        strFiltered = strFiltered & strExpected
    End If
Next

' 输出结果
If strFiltered = "" Then
    WScript.Echo "没有找到期望字符。"
Else
    WScript.Echo "筛选后的字符串为：" & strFiltered
End If

使用方法：

1. 将上述程序复制到记事本中，保存为 Vbs 文件；
2. 双击运行 Vbs 文件；
3. 在弹出的对话框中分别输入字符串和期望字符；
4. 程序会筛选出符合期望字符的部分并输出结果。