标题: vbs 如何判断字符串及截取字符串? [打印本页]
作者: huzixuan 时间: 2007-4-21 07:29 标题: vbs 如何判断字符串及截取字符串?
标题意思表达不太准确 - -!!
兄们且听我慢慢道来.
并希望可以解决这个问题.
我这里有 2 个.txt 文件.
old.txt
love.txt
现在要将 old.txt 里一行
如这种格式的 [00:00.00] 字符串取下来
也就是说提取 ] 本身包括左边的字符
和
love.txt 里的一行进行合并.
例:
old.txt 里
[00:00.00]《La la love on my mind》－ Ann Winsborn
[00:01.91]La la la la la la…
[00:03.54]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 里应有
[00:00.00]《La la love on my mind》－ Ann Winsborn
[00:01.91]La la la la la la… 啦……
[00:03.54]La la la la la la… 啦……
...
用以下的代码虽然成功了,但是如果 [00:00.00] 这里不等于 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 ]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
附件 1:love.txt (2007-4-21 07:29, 1.88 K,下载次数： 7)
附件 2:
作者: slore 时间: 2007-4-21 07:40
instr & mid
replace & split都可以
作者: lxmxn 时间: 2007-4-21 07:45
两个文件行数不一样也照样合并吗？
作者: huzixuan 时间: 2007-4-21 08:03
slore 兄可以举个合适的小例子吗?
如何提取 ] 本身包括左边的字符?
作者: slore 时间: 2007-4-21 08:38
StrA="[00:bb00.sdfsd00]《La la love on my mind》－ Ann Winsborn"
Msgbox Mid(strA,1,Instr(StrA,"]"))
作者: huzixuan 时间: 2007-4-21 21:21
谢谢,这样问题就可以得到完美的解决了!