主题：如何将字符串里面的数字和字母分离出来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如何将字符串里面的数字和字母分离出来.rar

Dim s As String="BRC2532G10ST2P104"
Dim i As Integer = s.Length
Dim aa(),bb() As String
Dim a ,b As String
a="" : b=""
For j As Integer = 0 To i-1
    Dim t As  String
    t=s.chars(j)
    If IsNumeric(t) Then
        a=a & t
        If b.EndsWith("-") =False Then
            b=b & "-"
        End If
    Else
        b=b & t
        If a.EndsWith("-")=False Then
            a=a & "-"
        End If
    End If
Next
a=a.Trim("-") : b=b.Trim("-")
aa=a.Split("-") : bb=b.Split("-")
For Each a In aa
    Output.Show(a)
Next
For Each b In bb
    Output.Show(b)
Next

学习

我不是针对一个制造产品号，而是面对许多制造产品号。平时操作时，我是在制造产品号里面不断输入很多行数据，那么在表属性里面要如何写代码才能达到字母和数字分离的目的呢？谢谢。

 你有没有认真看完3楼，把第一句替换成你对应单元格的值就行啊。

说明："制造产品号"是数据列的标题。

此主题相关图片如下：制造产品号的拆分.jpg

If e.DataCol.name = "制造产品号" AndAlso e.newvalue > "" Then
    Dim zml() As String = {"字母列1", "字母列2"}
    Dim szl() As String = {"数字列1", "数字列2"}
    Dim s As String = e.newvalue
    Dim p As String = "\d+"
    Dim mc = System.Text.RegularExpressions.Regex.Matches(s, p)
    For i As Integer = 0 To mc.count-1
        e.DataRow(szl(i)) = mc(i).value
    Next
   
    p = "[a-zA-Z]+"
    mc = System.Text.RegularExpressions.Regex.Matches(s, p)
    For i As Integer = 0 To mc.count-1
        e.DataRow(zml(i)) = mc(i).value
    Next
End If