如何查找字符串出现次数

多谢！ 问题点数：20、回复次数：2Top

1 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-13 11:06:40 得分 10

Private   Sub   Command1_Click()  
      Dim   i   As   Integer  
      Dim   sum   As   Integer  
      Dim   str   As   String  
      i   =   1  
      str   =   "sahgAhuABG"  
        Do   While   i   <>   0  
            i   =   i   +   1  
            i   =   InStr(i,   str,   "A",   vbTextCompare)  
            If   i   <>   0   Then   sum   =   sum   +   1  
      Loop  
        Debug.Print   sum  
  End   Sub  
  Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-13 11:18:26 得分 10

楼上的办法可行，补充两种办法：  
  Private   Sub   Command1_Click()  
  Dim   s   As   String  
  s   =   "asdfadesaddw3e"  
  Dim   s1   As   String  
  Dim   findstr   As   String   '要查找的子字符串  
  findstr   =   "a"   '  
  s1   =   Replace(s,   findstr,   "")  
  MsgBox   (Len(s)   -   Len(s1))   /   Len(findstr)  
  End   Sub  
   
  Private   Sub   Command2_Click()  
  Dim   s   As   String  
  s   =   "asdfadesaddw3e"  
  Dim   findstr   As   String   '要查找的子字符串  
  findstr   =   "a"   '  
  Dim   a  
  a   =   Split(s,   findstr)  
  MsgBox   UBound(a)  
  End   SubTop

相关问题

• 字符串
• findstr
• 查找
• dim
• sub
• sum
• len
• click
• command
• str

• 帖主：zhchsh
• ZOU_SEAFARER
• rainstormmaster

• Visual Basic类图书
• Visual Basic类源码下载