主题：再问contains中变量使用----解决问题

是不是大小写的问题？

If str.ToLower.Contains( std_tp.ToLower ) Then

改一下

Dim str As String = ”123HG789"
Dim std() As String = {"GB","HG","SH","JB","ASME","ASTM","DIN"} '''标准体系数组
Dim std_spec() As String = {"","","",""}

For Each std_tp As String In std
    If str.Contains( std_tp ) Then
        std_spec(0) = std_tp
        str = str.Replace(std_tp,"")
        exit for
    Else
        std_spec(0) = "未匹配"
    End If
Next

msgbox(std_spec(0) & vbcrlf & str)