关于对test中的内容分析

Question

我写的一个工具是这样。。打开txt文件。比如,txt文件的内容为dsljfweojfowjfdkfnskvncnalkdsmdw%#@qeqwojiqwjeqwi@#omxsklxmaslkdsadowqij这些内容先会显示在test中。
我要的分析是。。用Command处理
如果test中的内容包含“a”或“@”会在List1控件中显示“共查到多少个内容”。说明：与查找功能差不多，只是说显示我指定的内容查找出test中有多少个。希望高手帮帮我。

Answer 1

dim str as string
dim strleng  as long
strleng=len(text1.text)
str=replace(text1.text,"要查询的字符串","")
msgbox (strlen-len(str))/len(要查询的字符串)

Answer 2

Private Sub Command1_Click()
MsgBox get_num("sdfkjasodifjosidfsadifuosahdfoaihsdfoashdf", "f")
End Sub'*************************************************************************
'**函 数 名：get_num
'**输    入：ByVal text1(String) -被查找的字符串
'**        ：ByVal text2(String) -查找的字符
'**输    出：(Long) -字符出现的次数
'**功能描述：传入被查字符串 盒查找字符 返回出现次数
'**全局变量：
'**调用模块：
'**作    者：影子
'**日    期：2007-03-01 17:06:01
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Function get_num(ByVal text1 As String, ByVal text2 As String) As Long
    Dim str As String
    Dim strleng  As Long
    strleng = Len(text1)
    str = Replace(text1, text2, "")
    get_num = (strleng - Len(str)) / Len(text2)End Function
'楼主不厚道 0分贴