中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-09 15:39
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求助,BAT读取指定文本内容第几行并在Popup反映出来 查看 933 回复 7
楼 主 求助,BAT读取指定文本内容第几行并在Popup反映出来 发表于 2008-08-22 06:49 ·  中国 江苏 苏州 电信
中级用户
★★
积分 209
发帖 100
注册 2008-08-01 02:53
18年会员
UID 122532
性别 男
状态 离线
用BAT检测C盘最新生成的.TXT文件名字并且读取文本内容的第2行然后用VBS 的Popup显示出这个文件的名字和内容,。
2 发表于 2008-08-22 09:55 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
@echo off
for /f "tokens=*" %%\ in ('dir /b /tc /o-d /a C:\*.txt') do (
set NewFile=%%\
goto :next
)
:next
for /f "tokens=1,2* delims=:" %%a in ('findstr /n . "C:\%NewFile%"') do (
if "%%a" equ "2" (
set ScdLine=%%b
goto :show
)
)
:show
mshta vbscript:createobject("wscript.shell").popup("%ScdLine%")(window.close) & exit
3 发表于 2008-08-22 10:39 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
可以直接skip嘛
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
4 发表于 2008-08-22 10:41 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
@echo off
for /f "tokens=*" %%\ in ('dir /b /tc /o-d /a C:\*.txt') do (
set NewFile=%%\
goto :next
)
:next
for /f "skip=1 tokens=*" %%a in ('findstr . "C:\%NewFile%"') do (
set ScdLine=%%a
goto :show
)
:show
mshta vbscript:createobject("wscript.shell").popup("%ScdLine%")(window.close) & exit
5 发表于 2008-08-22 13:27 ·  中国 江苏 苏州 太仓市 电信
中级用户
★★
积分 209
发帖 100
注册 2008-08-01 02:53
18年会员
UID 122532
性别 男
状态 离线
比如我的第2行中 (1656166) 能不能去掉括号直接是 1656166
6 发表于 2008-08-22 16:18 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
全角括号()?
还是半角括号()?
7 发表于 2008-08-22 19:00 ·  中国 江苏 苏州 太仓市 电信
中级用户
★★
积分 209
发帖 100
注册 2008-08-01 02:53
18年会员
UID 122532
性别 男
状态 离线
( 是这样的
8 发表于 2008-08-22 20:36 ·  中国 重庆 九龙坡区 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
@echo off
for /f "tokens=*" %%\ in ('dir /b /tc /o-d /a C:\*.txt') do (
set NewFile=%%\
goto :next
)
:next
for /f "skip=1 tokens=*" %%a in ('findstr . "C:\%NewFile%"') do (
set ScdLine=%%a
goto :show
)
:show
mshta vbscript:createobject("wscript.shell").popup("%ScdLine:~1,-1%")(window.close) & exit
论坛跳转: