[已解决]vbs 怎么提取txt 文件中的指定行?

xixiyang80 · 发表于 2015-10-21 16:39:58

本帖最后由 pcl_test 于 2016-11-8 14:28 编辑

比方说有个文件1.txt 里有1000行, 我怎么提取出整百行文字, 如100,200.....
并且同时打印在vbs 窗口上;
以下只能显示单行:
dim title,y
title = CreateObject("scripting.filesystemobject").opentextfile("d:1.txt").readall
y=split(title,vbcrlf)
MsgBox y(14)

CrLf · 发表于 2015-10-21 16:50:55

本帖最后由 CrLf 于 2015-10-21 21:09 编辑

on error resume next
set fso = CreateObject("scripting.filesystemobject")
set ts = fso.opentextfile("d:\1.txt")
str = ""
do until ts.atendofstream
for i=1 to 99
ts.skipline
next
str = str & ts.readline & vbcrlf
loop
ts.close
msgbox str

复制代码

CrLf · 发表于 2015-10-21 16:52:24

本帖最后由 CrLf 于 2015-10-21 21:09 编辑

dim title,y
title = CreateObject("scripting.filesystemobject").opentextfile("d:1.txt").readall
y=split(title,vbcrlf)
stepnum=100
str = ""
for i=stepnum-1 to ubound(y) step stepnum
str = str & y(i) & vbcrlf
next
msgbox str

复制代码

xixiyang80 · 发表于 2015-10-21 17:14:06

回复 3# CrLf
谢谢老大,
如果用msgbox 的话, 能不能把每行的打印(100,200,300...) 打印在同一个msgbox,
或者直接将这些信息打印在vbs terminal 上, 我用的是secureCRT, 即直接打印在secureCRT上.

CrLf · 发表于 2015-10-21 21:10:29

已修改，如果用 WSH.Echo 代替 msgbox，在 cscript 宿主中可以输出到 console

xixiyang80 · 发表于 2015-10-22 09:44:43

回复 5# CrLf

谢谢老大, 你的方法可行.

		自动登录	找回密码
密码			注册

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

[问题求助] [已解决]vbs 怎么提取txt 文件中的指定行?

评分

评分

浏览过的版块