标题: 求vbs截取指定格式字符串和操作数据库 [打印本页]
作者: zerocq 时间: 2008-1-6 23:30 标题: 求vbs截取指定格式字符串和操作数据库
格式
干扰行
AA:[BB](CC)DD EE
干扰行
干扰行
N行
AA:[BB](CC)DD EE
干扰行
....略
要最快最便捷取得CC位置字符串的vbs代码,AA是固定字符串
我知道用bat很方便可以取值,但混编两种脚本很占用系统资源
另外vbs怎么操作数据库??
作者: zerocq 时间: 2008-1-7 22:37
.................
作者: zh159 时间: 2008-1-8 00:40
适用于文本数据库
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("Test.txt",1)
While not f.AtEndOfStream
strR = f.ReadLine
if instr(strR,"AA") > 0 Then
strR = Split(strR,"(")
str = Split(strR(1),")")
msgbox str(0)
End If
Wend
f.Close
Set f = fso.OpenTextFile("Test.txt",1)
While not f.AtEndOfStream
strR = f.ReadLine
if instr(strR,"AA") > 0 Then
strR = Split(strR,"(")
str = Split(strR(1),")")
msgbox str(0)
End If
Wend
f.Close
作者: vsww 时间: 2009-2-24 11:23
| Quote: | |
|
学习了
