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

baihuo998

'------------------
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

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

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

ArdentMan

Dim FSO, vbStr, Arr, Str, Txt
Set FSO = CreateObject("Scripting.FileSystemObject")
vbStr = FSO.OpenTextFile("1.txt").ReadAll()
Arr = Split(vbStr, vbCrLf)
For Each Str In Arr
  Txt = Split(Str, "：")
  FSO.OpenTextFile("2.txt", 8, True).WriteLine Txt(1)
Next
Set FSO = Nothing
MsgBox "提取完成",,"ArdentMan友情提示"
复制代码