中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-06-22 08:01
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » vbs 如何判断字符串及截取字符串? 查看 1,051 回复 5
楼 主 vbs 如何判断字符串及截取字符串? 发表于 2007-04-21 07:29 ·  中国 安徽 芜湖 电信
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
标题意思表达不太准确 - -!!
兄们且听我慢慢道来.
并希望可以解决这个问题.

我这里有 2 个.txt 文件.
old.txt
love.txt

现在要将 old.txt 里一行
如这种格式的 字符串取下来
也就是说提取 ] 本身包括左边的字符

love.txt 里的一行进行合并.

例:
old.txt 里
《La la love on my mind》- Ann Winsborn
La la la la la la…
La la la la la la…
...

love.txt 里
《La la love on my mind》- Ann Winsborn
La la la la la la… 啦……
La la la la la la… 啦……
...

合并后 str.txt 里应有
《La la love on my mind》- Ann Winsborn
La la la la la la… 啦……
La la la la la la… 啦……
...



用以下的代码虽然成功了,但是如果 这里不等于 10 个字符就会截取错误的字符串
不晓得如何判断 "]" 后提取他和左边的字符串.

还有就是以下的代码执行完毕后说 "输入超出了文件尾" ,该怎么解决呢?


with createobject("scripting.filesystemobject")
set rfile = .opentextfile("love.txt",1,true)
set rfile1 = .opentextfile("old.txt",1,true)
set wfile = .opentextfile("str.txt",2,true)
end with

do
rfile1s=left(rfile1.readline,10)
str=rfile1s&rfile.readline
if str = vblf then
msgbox str
wscript.quit
end if
loop


[ Last edited by huzixuan on 2007-4-21 at 08:03 AM ]
附件
love.txt (1.88 KiB, 下载次数: 7)
old.txt (1.95 KiB, 下载次数: 6)
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
2 发表于 2007-04-21 07:40 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
instr & mid

replace & split都可以
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
huzixuan +2 2007-04-21 08:02
3 发表于 2007-04-21 07:45 ·  中国 湖北 武汉 电信
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
19年会员
UID 59080
状态 离线
两个文件行数不一样也照样合并吗?
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
huzixuan +1 2007-04-21 08:02
4 发表于 2007-04-21 08:03 ·  中国 安徽 芜湖 电信
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
slore 兄可以举个合适的小例子吗?
如何提取 ] 本身包括左边的字符?
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
5 发表于 2007-04-21 08:38 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
StrA="[00:bb00.sdfsd00]《La la love on my mind》- Ann Winsborn"

Msgbox Mid(strA,1,Instr(StrA,"]"))
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
huzixuan +4 2007-04-21 21:21
6 发表于 2007-04-21 21:21 ·  中国 安徽 芜湖 电信
高级用户
★★
积分 537
发帖 219
注册 2006-10-31 21:08
19年会员
UID 69036
性别 男
来自 芜湖
状态 离线
谢谢,这样问题就可以得到完美的解决了!
江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....
论坛跳转: