CrLf

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

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
复制代码

CrLf

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