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

Rank: 1

帖子
13 
积分
28 
技术
0  
捐助
0  
注册时间
2015-10-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-10-21 16:39 | 只看该作者

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

本帖最后由 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)
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2015-10-21 16:50 | 只看该作者
本帖最后由 CrLf 于 2015-10-21 21:09 编辑 
  1. on error resume next

  2. set fso = CreateObject("scripting.filesystemobject")

  3. set ts = fso.opentextfile("d:\1.txt")

  4. str = ""

  5. do until ts.atendofstream

  6.   for i=1 to 99

  7.     ts.skipline

  8.   next

  9.   str = str & ts.readline & vbcrlf

  10. loop

  11. ts.close

  12. msgbox str
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
3楼
发表于 2015-10-21 16:52 | 只看该作者
本帖最后由 CrLf 于 2015-10-21 21:09 编辑 
  1. dim title,y

  2. title = CreateObject("scripting.filesystemobject").opentextfile("d:1.txt").readall

  3. y=split(title,vbcrlf)

  4. stepnum=100

  5. str = ""

  6. for i=stepnum-1 to ubound(y) step stepnum

  7.   str = str & y(i) & vbcrlf

  8. next

  9. msgbox str
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

xixiyang80

Rank: 1

帖子
13 
积分
28 
技术
0  
捐助
0  
注册时间
2015-10-20 
4楼
发表于 2015-10-21 17:14 | 只看该作者
回复 3# CrLf
谢谢老大,
如果用msgbox 的话, 能不能把每行的打印(100,200,300...) 打印在同一个msgbox,
或者直接将这些信息打印在vbs terminal 上, 我用的是secureCRT, 即 直接打印在secureCRT上.

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2015-10-21 21:10 | 只看该作者
已修改，如果用 WSH.Echo 代替 msgbox，在 cscript 宿主中可以输出到 console
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

xixiyang80

Rank: 1

帖子
13 
积分
28 
技术
0  
捐助
0  
注册时间
2015-10-20 
6楼
发表于 2015-10-22 09:44 | 只看该作者
回复 5# CrLf


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

TOP

返回列表