请教一个字符串问题

hgxly

我现在有个字符串“100346505403”，请教如何通过判别将字符串中多余的0、3、4和5去掉，而成为“103465”

wanshan

Public Function tiqu(str As String) As String
    For i = 1 To Len(str)
        If InStr(1, tiqu, Mid(str, i, 1)) = 0 Then tiqu = tiqu & Mid(str, i, 1)
    Next
End Function

hgxly

得来太易，多谢了。

zhuyiwen

wanshan 发表于 2010-12-5 18:45
Public Function tiqu(str As String) As String
    For i = 1 To Len(str)
        If InStr(1, tiqu,  ...

修改一下：

Public Function tiqu(str As String) As String
    If Len(str)>0 Then
        For i = 1 To Len(str)
            If InStr(1, tiqu, Mid(str, i, 1)) = 0 Then tiqu = tiqu & Mid(str, i, 1)
        Next
    End If
End Function

caoguangyao

好东东

caoguangyao

学习