Board logo

标题: 求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
作者: vsww     时间: 2009-2-24 11:23
Originally posted by zh159 at 2008-1-8 00:40:
适用于文本数据库
Set fso = CreateObject("Scripting.FileSystemObject"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">

Set f = fso.OpenTextFile("Test.txt",1)

While not f.AtEndOfStream

  strR = f.ReadLine

  i ...


学习了<img src="images/smilies/face-raspberry.png" align="absmiddle" border="0">