VB里怎么查找一个指定字符存在多少个比如 1.txt 内容为
235
34673788在上面输入7 然后查找 怎么能得到有2个
235
34673788在上面输入7 然后查找 怎么能得到有2个
解决方案 »
- 急救啊!!!!vb6.0 升级到vb.net ,vs2010,ActiveRepots 7.0 ,报表升级全套方法?
- vb.net如何在windows服务程序中使用winsock进行客户端编程
- 如何读取access中OLE 对象的值
- treeview问题: 如何通过key判断节点的index值?
- filter()函数应该如何使用?
- 怎么写才能把用条件查询出的所有符合条件的记录插入另一个表中呀?
- 怎样让一个数开正i次方?
- 一段程序需要较长时间的运行。这是如果用CTRL+ALT+DEL调出任务管理器,则会发现该程序没有响应,如果多等会,程序仍能正常完成。但如何才能使程序不出现这种问题?谢了。
- 在MDI中调用子窗体的问题!!
- 有谁知道那里有 用VB 编的 telnet 程序的源码 !!!!!!!!!
- 请问如何使用EXCEL中的宏实现批处理
- 难,很难,非常难,。。。。。。。。。。。。高分啊!!!帮顶有分
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。语法 InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数:部分 说明
start 可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null,将发生错误。如果省略 compare,Option Compare 的设置将决定比较的类型。
设置 compare 参数设置为:常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access,执行一个基于数据库中信息的比较。
返回值如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0
说明InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置,而不是字符位置。
Dim strFilename As String '文件名
Dim lngHandle As Long '文件句柄
Dim strLine As String '在循环中存放每行的内容
Dim sum1 As Integer
sum1 = 0
strFilename = App.Path & "\log.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFilename For Input As lngHandle '循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
Do While InStr(strLine, "7") > 0
sum1 = sum1 + 1
strLine = Trim(Mid(strLine, InStr(strLine, "7") + 1))
Loop
Loop
Close lngHandle Debug.Print sum1
End Sub
sum1 = sum1 + 1
strLine = Trim(Mid(strLine, InStr(strLine, "7") + 1))
Loop这就是你想要的关键
Dim sum1 As Integer
改为
Dim sum1 As Long