ASP 删除字符串开始或/和末尾处指定字符(串)

  1. '删除字符串开始处指定字符(串)   
  2. Function TrimLeft(strIn, strTrim)   
  3.     If IsNull(strIn) Or strIn="" Then   
  4.     TrimLeft = ""  
  5.     Exit Function   
  6.     End If   
  7.     If IsNull(strTrim) Or strTrim="" Then   
  8.     TrimLeft = strIn   
  9.     Exit Function   
  10.     End If   
  11.     While (Left(strIn, Len(strTrim)) = strTrim)   
  12.         strIn = Mid(strIn, Len(strTrim) + 1)   
  13.     Wend   
  14.     TrimLeft = strIn   
  15. End Function   
  16.   
  17. '删除字符串末尾处指定字符(串)   
  18. Function TrimRight(strIn, strTrim)   
  19.     If IsNull(strIn) Or strIn="" Then   
  20.     TrimRight = ""  
  21.     Exit Function   
  22.     End If   
  23.     If IsNull(strTrim) Or strTrim="" Then   
  24.     TrimRight = strIn   
  25.     Exit Function   
  26.     End If   
  27.     While (Right(strIn, Len(strTrim)) = strTrim)   
  28.         strIn = Left(strIn, Len(strIn) - Len(strTrim))   
  29.     Wend   
  30.     TrimRight = strIn   
  31. End Function   
  32.   
  33. '删除字符串开始/末尾处指定字符(串)   
  34. Function TrimLeftRight(strIn, strTrim)   
  35.     If IsNull(strIn) Or strIn="" Then   
  36.     TrimLeftRight = ""  
  37.     Exit Function   
  38.     End If   
  39.     If IsNull(strTrim) Or strTrim="" Then   
  40.     TrimLeftRight = strIn   
  41.     Exit Function   
  42.     End If   
  43.     strIn = TrimLeft(strIn, strTrim)   
  44.     TrimLeftRight = TrimRight(strIn, strTrim)   
  45. End Function  
posted @ 2011-12-13 08:29  shoupifeng  阅读(3649)  评论(0编辑  收藏  举报