VBScript如何提取inputbox输入账号中圆点后的首个字符

核心逻辑 #

• 第一步通过InputBox获取用户输入的账号字符串
• 用内置函数InStr定位英文句号.在字符串中的索引位置
• 对异常场景做兼容：如果InStr返回值为0代表字符串中没有句号，可根据需求做错误提示；如果句号在字符串末尾，也需做兜底处理
• 正常场景下用Mid函数提取句号位置后一位的单个字符，即为所需结果

完整示例代码 #

Dim account, dotPos, targetChar
' 获取用户输入的账号
account = InputBox("请输入账号：")
' 判定输入不为空
If account <> "" Then
    ' 定位英文句号的位置
    dotPos = InStr(account, ".")
    If dotPos > 0 And dotPos < Len(account) Then
        ' 提取句号后第一个字符
        targetChar = Mid(account, dotPos + 1, 1)
        MsgBox "提取到的目标字符为：" & targetChar, vbInformation, "结果"
    Else
        MsgBox "输入的账号格式不符合要求，未找到有效句号", vbExclamation, "错误"
    End If
End If

测试验证 #

输入账号john.smith时，InStr返回值为5（VBScript字符串索引从1开始计数），调用Mid(account, 5+1, 1)即可得到字符s，符合需求。 #

内容的提问来源于stack exchange，提问作者elrohir.oronar