中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-08-04 09:09
欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 如何返回文本内某字符出现的次数? 查看 698　回复 11
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 vbs 如何返回文本内某字符出现的次数? 发表于 2007-04-30 03:12　·　 中国 安徽 芜湖 电信
huzixuan
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
test.txt 文本里有


12345671234567

12345

如何统计 "1" 出现过几次?

已经搜索过论坛,很赞赏兄们用 bat 完成的代码. 但不知用 vbs 如何完成

[ Last edited by huzixuan on 2007-4-30 at 03:13 AM ]
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
第 2 楼 发表于 2007-04-30 03:14　·　 中国 浙江 电信
heicai
中级用户
★★
积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别 男
状态 离线
我的水平来看，用bat貌似更容易些。
第 3 楼 发表于 2007-04-30 03:20　·　 中国 安徽 芜湖 电信
huzixuan
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
缺陷就是 效率可能有些低 而且有些特殊字符很难处理
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
第 4 楼 发表于 2007-04-30 03:31　·　 中国 辽宁 本溪 联通
jmz573515
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线


set fso=createobject("scripting.filesystemobject")

set file=fso.opentextfile("test.txt",1)

a=file.readall

file.close

msgbox tongji(a,"1")

function tongji(a,b)

t=0:tongji=-1

do 

t=instr(t+1,a,b)

tongji=tongji+1

loop until t=0

end function
本帖最近评分记录 （共 2 条） 点击查看详情
评分人分数时间
huzixuan +4 2007-04-30 03:42
abczxc +1 2007-04-30 07:07
第 5 楼 发表于 2007-04-30 03:43　·　 中国 安徽 芜湖 电信
huzixuan
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
我总是不明白 function 是用来做什么的.
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
第 6 楼 发表于 2007-04-30 04:37　·　 中国 辽宁 本溪 联通
jmz573515
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线
function就是自己写一个函数，我写的这个函数用法是tongji("内容","要查找的内容")这个形式的。希望你能明白，同时希望采纳进百度里的回答... 哈哈

[ Last edited by jmz573515 on 2007-4-29 at 03:38 PM ]
第 7 楼 发表于 2007-04-30 05:18　·　 中国 新疆 乌鲁木齐 电信
zhoushijay
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
19年会员
UID 80606
性别 男
状态 离线
tongji =通缉，呵呵
我有点看懂了，不过好像脚本中有错误的吧
function tongji(a,b)
t=0:tongji=-1
do
t=instr(t+1,a,b)
tongji=tongji+1
loop until t=0
end function
如果t=instr(t+1,a,b)找不到
tongji=tongji+1也会执行。
第 8 楼 发表于 2007-04-30 05:55　·　 中国 辽宁 本溪 联通
jmz573515
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线
哈，所以没有的时候就是0次了
第 9 楼 发表于 2007-04-30 06:01　·　 中国 安徽 芜湖 电信
huzixuan
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
兄 原来就是 百度 的那位 "VBS神秘人" "VBS问题终结者" 吗!!
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
第 10 楼 发表于 2007-04-30 06:07　·　 中国 新疆 乌鲁木齐 电信
zhoushijay
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
19年会员
UID 80606
性别 男
状态 离线
就这个地方不懂，如果字符没找到，但是tongji=tongji+1仍然执行，那么不是字符没出现它也会累加一次啊
第 11 楼 发表于 2007-04-30 06:56　·　 中国 辽宁 本溪 联通
jmz573515
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线
原来我负给它的值是-1而这个循环是一定会执行一次的，不管找到与否（如果没有找到循环一次就退出了，所以得到的就是0
第 12 楼 发表于 2007-04-30 07:17　·　 中国 新疆 乌鲁木齐 电信
zhoushijay
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
19年会员
UID 80606
性别 男
状态 离线
明白了，谢谢你解答
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 简版 ]

Sponsored by ifanr Inc | © 2001–2023