去除带有分隔符的字符串中的字母函数

时　间:2008-07-03 15:37:02
作　者:李寻欢   ID：2712  城市：深圳
摘　要:去除带有分隔符的字符串中的字母函数

正　文:

Public Function spMyString(MyString As String, Sep_symbol As String) As String
'*********************************************************************
'* 函 数 名: spMyString '* 功能描述: 去除带有分隔符的字符串中的字母
'* 函数说明:参数1（MyString）用来接受传入的待处理字符串
'*          参数2（Sep_symbol）用来接受传入的分隔符
'* 调用函数: Split、UBound、Val '* 全局变量:无 '* 输 入: 字符串及分隔符
'* 返 回:字符串
'* 设 计 者：李寻欢 日期：2004-2-24
'* 修 改 者：李寻欢 日期：2004-2-26
'* 使用示例：?spMyString("1237df-12yt-12ew45","-")
'*            1237-12-1245
'***********************************************************************
    Dim myArray() As String
    Dim i As Integer
    myArray = Split(MyString, Sep_symbol)
    For i = 0 To UBound(myArray)
        If i <> 0 Then
            spMyString = spMyString & Sep_symbol & Val(myArray(i))
        Else
            spMyString = spMyString & Val(myArray(i))
        End If
    Next i
End Function