中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-11 09:50

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求vbs截取指定格式字符串和操作数据库查看 1,479　回复 3

楼主 求vbs截取指定格式字符串和操作数据库发表于 2008-01-06 23:30　·　中国浙江温州电信

zerocq

中级用户

★★

积分 458
发帖 196
注册 2006-10-05 12:04
19年会员
UID 64614

状态离线

格式
干扰行
AA:[BB](CC)DD EE
干扰行
干扰行
N行
AA:[BB](CC)DD EE
干扰行
....略

要最快最便捷取得CC位置字符串的vbs代码,AA是固定字符串

我知道用bat很方便可以取值,但混编两种脚本很占用系统资源

另外vbs怎么操作数据库??

第 2 楼发表于 2008-01-07 22:37　·　中国浙江温州电信

zerocq

中级用户

★★

积分 458
发帖 196
注册 2006-10-05 12:04
19年会员
UID 64614

状态离线

.................

第 3 楼发表于 2008-01-08 00:40　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
21年会员
UID 44210

状态离线

适用于文本数据库

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

第 4 楼发表于 2009-02-24 11:23　·　中国陕西西安电信

vsww

新手上路

★

积分 2
发帖 2
注册 2009-02-21 17:13
17年会员
UID 139468
性别男

状态离线

Originally posted by zh159 at 2008-1-8 00:40:
适用于文本数据库

Set fso = CreateObject("Scripting.FileSystemObject"

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

While not f.AtEndOfStream

  strR = f.ReadLine

  i ...





学习了

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: