|
xyz1234111
初级用户
积分 32
发帖 32
注册 2010-10-29
状态 离线
|
『楼 主』:
求助！VBS脚本改善
大家好：
小弟对VBS一窍不通！
我今天在网上找了个VBS的文本分割脚本（附件1：VBS文件分割），但是我每次分割的话都要在脚本里修改源文件文件名，这样才能分割，挺麻烦的，请教高人能不能把这个VBS帮我改成（附件2：aabb.vbs)那样直接选择文件，然后来进行分割的，谢谢各位大侠了
附件1：
Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("url.txt",1,true) 'url.txt是要分割的txt文件
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+".txt",2, true) '分割后的文件保存为：1.txt 2.txt 3.txt……
if f.atendofstream<>true then
for a=1 to 1000 '分割后，一个文件1000行
data=f.readline
g.writeline data
next
end if
loop
f.close
g.close
附件2：
set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.txt|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
[ Last edited by xyz1234111 on 2011-1-17 at 19:51 ]
附件
1:  VBS文件分割.rar (2011-1-17 19:49, 434 bytes,下载次数： 1)
附件
2: aabb.rar (2011-1-17 19:50, 252 bytes,下载次数： 1)
|
|
 2011-1-17 19:48 |
|
|
xyz1234111
初级用户
积分 32
发帖 32
注册 2010-10-29
状态 离线
|
『第
2 楼』:
等了一晚上了，来个高人帮忙看看啊
|
|
|
2011-1-18 09:10 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
3 楼』:
Set fso = CreateObject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.txt|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
Set f = fso.OpenTextFile(strLoadFile,1,True) '要分割的txt文件
n = 0
Do While f.atendofstream <> True
n = n + 1
data = ""
Set g = fso.OpenTextFile(CStr(n) + ".txt",2, True) '分割后的文件保存为：1.txt 2.txt 3.txt……
If f.atendofstream <> True Then
For a = 1 To 1000 '分割后，一个文件1000行
data = f.ReadLine
g.writeline data
Next
End If
Loop
f.Close
g.Close
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2011-1-18 10:08 |
|
|
xyz1234111
初级用户
积分 32
发帖 32
注册 2010-10-29
状态 离线
|
『第
4 楼』:
slore大侠：
谢谢你改过的代码，已经可以使用了，但是我好像发现了个小问题，可能是代码本身的原因吧！
代码在选择文件窗口打开后如果这个时候不选文件直接点退出的话这个脚本会不知道从哪里找来一些文本进行分割，不知道能帮忙修改下这个程序吗？
|
|
|
2011-1-19 13:02 |
|
|
mountvol
初级用户
积分 186
发帖 117
注册 2006-8-14
状态 离线
|
|
|
2011-1-19 14:21 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
strLoadFile = objDialog.FileName
if strLoadFile = "" Then WSH.Quit
Set f = fso.OpenTextFile(strLoadFile,1,True) '要分割的txt文件
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2011-1-19 14:22 |
|
|
xyz1234111
初级用户
积分 32
发帖 32
注册 2010-10-29
状态 离线
|
|
|
2011-1-21 14:29 |
|
