[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS提取文本指定后半部份出现越界帮忙改下哪位大侠?

'------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set b = fso.opentextfile("2.txt",8,true)
Set a = fso.opentextfile("1.txt",1)
Do Until a.AtEndOfStream
str = a.ReadLine
v = split(str,"玩家")(ubound(split(str,"玩家")))
b.WriteLine "玩家"&v
loop
b.close
a.close
'------------------



运行提取出现越界只能提取出8KB大小的来:
行:7
字符:1
错误:下标越界: ’ubound(...)’
代码:800A0009
源: Microsoft VBScript 编译器错误



我要提取的内容为:
[2011-10-8 13:03:34] /玩家:425801000771  手工充值:10元
[2011-10-8 13:04:09] /玩家:089810000801  网上银行:100元
[2011-10-8 13:04:15] /玩家:711444414741  盛大一卡通:30元
[2011-10-8 13:04:29] /玩家:089844441801  手工充值:100元
[2011-10-8 13:04:37] /玩家:661044453800  网上银行:50元
[2011-10-8 13:05:54] /玩家:711444441474  盛大一卡通:10元
[2011-10-8 13:06:03] /玩家:757854565465  骏网一卡通:10元
[2011-10-8 13:06:08] /玩家:648798768799  骏网一卡通:10元
[2011-10-8 13:06:39] /玩家:979789789789  手工充值:40元
[2011-10-8 13:07:22] /玩家:545468798798  手工充值:320元
[2011-10-8 13:07:31] /玩家:879897888888  骏网一卡通:10元
[2011-10-8 13:07:47] /玩家:789879789786  骏网一卡通:10元
[2011-10-8 13:08:57] /玩家:978987987954  手工充值:20元
[2011-10-8 13:48:54] /玩家:689789878989  神州行充值卡:100元
[2011-10-8 13:51:13] /玩家:474897497897  手工充值:250元


指要提取同行玩家后部分的

本帖最后由 baihuo998 于 2011-10-11 12:41 编辑

小文本可以好象大一丁点的就提示不行了。

提示错误
行:7
字符:3
错误:下标越界[number: 1]
800a0009

TOP

  1. Dim FSO, vbStr, Arr, Str, Txt
  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. vbStr = FSO.OpenTextFile("1.txt").ReadAll()
  4. Arr = Split(vbStr, vbCrLf)
  5. For Each Str In Arr
  6.   Txt = Split(Str, ":")
  7.   FSO.OpenTextFile("2.txt", 8, True).WriteLine Txt(1)
  8. Next
  9. Set FSO = Nothing
  10. MsgBox "提取完成",,"ArdentMan友情提示"
复制代码
一路飘过的鸟~~~

TOP

返回列表