标题: [问题求助] VBS提取文本指定后半部份出现越界帮忙改下哪位大侠? [打印本页]
作者: baihuo998 时间: 2011-10-11 08:59 标题: 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元
指要提取同行玩家后部分的
作者: ArdentMan 时间: 2011-10-11 11:15
- 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友情提示"
复制代码
作者: baihuo998 时间: 2011-10-11 12:18
本帖最后由 baihuo998 于 2011-10-11 12:41 编辑
小文本可以好象大一丁点的就提示不行了。
提示错误
行:7
字符:3
错误:下标越界[number: 1]
800a0009
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |