获取字符串中特定字符的个数

Benjamin_luk 的方法 :

Public Function CSNumber(myStr as String,myLetter as String) as integer
dim I as integer,J as integer
J=0
for I = 1 to Len(myStr)
 if MID(myStr,I,1)=myLetter  then
  J=J+1
  End if
Next
CSNumber=J
End Function

相关论坛贴子: http://www.office-cn.net/bbs/dispbbs.asp?boardid=2&id=21901

情比金坚的方法

strc = Len(name1) - Len(Replace(name1, "，", ""))

-------------------------------------------
收集于Office中国论坛