vbs 如何判断字符串及截取字符串? - 中国DOS联盟论坛

标题意思表达不太准确 - -!!
兄们且听我慢慢道来.
并希望可以解决这个问题.

我这里有 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 ]

第1楼　huzixuan	发表于 2007-04-21 07:29
高级用户　发帖 219　积分 537　来自芜湖
vbs 如何判断字符串及截取字符串? 标题意思表达不太准确 - -!! 兄们且听我慢慢道来. 并希望可以解决这个问题. 我这里有 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) old.txt (1.95 KiB)

第2楼　slore	发表于 2007-04-21 07:40
铂金会员　发帖 2,478　积分 5,212
instr & mid replace & split都可以

第3楼　lxmxn	发表于 2007-04-21 07:45
版主　发帖 4,938　积分 11,386
两个文件行数不一样也照样合并吗？

第4楼　huzixuan	发表于 2007-04-21 08:03
高级用户　发帖 219　积分 537　来自芜湖
slore 兄可以举个合适的小例子吗? 如何提取 ] 本身包括左边的字符?

第5楼　slore	发表于 2007-04-21 08:38
铂金会员　发帖 2,478　积分 5,212
StrA="[00:bb00.sdfsd00]《La la love on my mind》－ Ann Winsborn" Msgbox Mid(strA,1,Instr(StrA,"]"))

第6楼　huzixuan	发表于 2007-04-21 21:21
高级用户　发帖 219　积分 537　来自芜湖
谢谢,这样问题就可以得到完美的解决了!