主题：[求助]从一个字符串中提取特定字符的问题

Dim s As String = "一二三四五AAA00000六七八"
Dim str As String
For i As Integer = 1 To s.Length-8
    str = Mid(s,i,8)
    If Char.IsLetter(Left(str,3)) And Char.IsNumber(Right(str,5)) Then
        Output.Show(str)
        Exit For
    End If
Next

为什么要加【Exit For】呢？是不是char的Is类方法只能判断字符串中的第一位字符呀

如果“AAA00000”后边固定为三个字符，可以试试right函数，

如果“AAA00000”前边固定为“一二三四五”，后边固定为“六七八”，可以试试替换函数replace，

 

通过以下代码解决。

本人胡诌了一个，简单的看这个：

Dim s1 As String ="一二三四五AAA00000六七八"
Dim s2 As String
s2 = s1.SubString(5,8)
Output.Show("s2 = " & s2)

Dim s1 As String ="一二三四五AAA00000六七八"
Dim s2 As String
s2 = s1.SubString(5,8)
Output.Show("s2 = " & s2)

 

发了一次，怎么不见了

这个够简单了，能不能用，自己琢磨

感谢各位热情相助，该问题已经解决。

更简单就是这样：

 

Dim s1 As String =("一二三四五AAA00000六七八").SubString(5,8)
Output.Show("s1 = " & s1)

楼主自己的代码很好。

不通用。