ASP删除重复项,ASP去除重复项

  • 文章来源:LG工作室
  • 发布时间:2017-04-04 17:38:16
  • 责任编辑:lg2lg5
导读:'***函数名:DeleteRepeat'***函数说明:删除重复项'***参数:'sString:需要删除的字符串'sSeparator:分隔符'***返回值。
'*** 函数名: DeleteRepeat
'***函数说明: 删除重复项
'***  参数:
'    sString: 需要删除的字符串
' sSeparator: 分隔符
'*** 返回值: 去除重复项后的字符串
Public Function DeleteRepeat(sString, sSeparator)
    Dim arrList
    Dim sMyContent
    Dim i, iCount
    arrList = Split(sString, sSeparator)
    iCount = UBound(arrList)
    For i = 0 To iCount
        If InStr(sMyContent & sSeparator, sSeparator & arrList(i) & sSeparator) = 0 And arrList(i) <> "" Then
            sMyContent = sMyContent & sSeparator & arrList(i)
        End If
    Next
    If sMyContent <> "" Then sMyContent = Right(sMyContent, Len(sMyContent)-1)
    DeleteRepeat = sMyContent
End Function
建站套餐
联系我们
客户案例