Visual Basic中如何查找字符串中点号后的第一个字符

核心逻辑 #

• 定位账号字符串中点号.首次出现的索引位置
• 索引值+1即为点号后第一个字符的下标，直接截取该位置长度为1的字符即可
• 增加异常判断逻辑，覆盖账号无点号、点号在字符串末尾等边界场景

可直接使用的代码示例 #

假设你存储账号的标签控件名为Label1，代码如下：

Dim accountStr As String
Dim dotIndex As Integer
Dim targetChar As String

' 读取标签内的账号内容
' VB6 环境用下面这行
accountStr = Label1.Caption
' VB.NET 环境替换为下面这行
' accountStr = Label1.Text

dotIndex = InStr(accountStr, ".")

If dotIndex > 0 And dotIndex < Len(accountStr) Then
    ' 存在有效点号，提取目标字符
    targetChar = Mid(accountStr, dotIndex + 1, 1)
    ' 后续可自行添加targetChar的业务处理逻辑
    MsgBox "提取结果：" & targetChar
Else
    ' 格式不符合要求的异常处理，可根据业务需求调整
    MsgBox "账号无有效点号，提取失败"
End If

方法说明 #

• InStr函数会返回指定字符在字符串中首次出现的位置，没有匹配结果时返回0
• Mid函数用于从字符串指定位置截取指定长度的内容，此处截取长度设为1即可拿到单个字符
• 示例代码兼容VB6和VB.NET环境，只需要根据自己的开发环境替换读取标签内容的属性即可

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