批处理文本阅读器
[size=3][color=red]特别鸣谢 if exist[/color][/size][size=4] [size=5][color=magenta] 文本阅读器[/color][/size][/size]
[size=4]转载，此批处理是 if exist的很不错的作品之一！很好！
文本越读器，并且我很喜欢这个作品，也经常用
if exist 编写的代码真的很不错，简单、实用，如果你也需要，请
复制源码，并运行看效果，真的很不错！！！[/size]
[size=4]此批处理的使用方法 如下：
1，把要看的文本文件，复制到记事本里，并重命名为1.txt
2 ,把该批处理防到与1.txt文件同一个目录下，并双击该批处理
3，等待片刻，可以看到一个打开的网页，很好！就是你的文本文件！怎么样？
很不错吧！！！[/size]
[size=4]4 ，非常感谢if exist 的代码，我经常用它来看些文本资料，很好，很强大 ！！[/size]
[size=4]5,本人在最后给了点改正，运行本批处理之后，就start x.html很不错吧！不用找那个x.html了！哈哈。。。
[/size][code]@echo off
setlocal enabledelayedexpansion
for %%1 in (^<head^>^</head^>^<body-bgcolor#black-text#lime^>^</body^>) do (
set a=%%1
set a=!a:-= ! &set a=!a:#==!
echo !a!>x.html
)[/color][/size]
[size=4][color=#ff00ff]for /f "tokens=*" %%a in ('type 1.txt') do (
for %%n in (^
^<font-size#6^>%%a^</font^>) do (
set a=%%n
set a=!a:-= ! &set a=!a:#==!
echo !a!>>x.html
)
)
start x.html
pause[/code][size=4] “该图片仅限百度用户交流使用”
贴图的方法有问题 图片还是直接上传到论坛里来吧，百度空间不允许外链的，其他人看不到图片。 for %%1 in (^<head^>^</head^>^<body-bgcolor#black-text#lime^>^</body^>) do (
set a=%%1
set a=!a:-= ! &set a=!a:#==!
echo !a!>x.html
)
这么复杂的一句。
直接 echo ^<head^>^</head^>^<body bgcolor^=black text^=lime^>^</body^>>x.html
不可以吗。 这样改会好点：
@echo off
ren *.txt 1.txt
setlocal enabledelayedexpansion
for %%1 in (^<head^>^</head^>^<body-bgcolor#black-text#lime^>^</body^>) do (
set a=%%1
set a=!a:-= ! &set a=!a:#==!
echo !a!>x.html
)
for /f "tokens=*" %%a in ('type 1.txt') do (
for %%n in (^<br^>^<font-size#6^>%%a^</font^>) do (
set a=%%n
set a=!a:-= ! &set a=!a:#==!
echo !a!>>x.html
)
)
start /wait x.html
set /p close=结束阅读，yes/no ？请输入y或n后按回车键 ：
if "%close%"=="y" goto 1
if "%close%"=="n" goto 2
:1
del x.html
exit
:2
pause 这就是txt转html的好工具啊，要是能一次全部转换就好了，精简html代码，并改文件名，这样好多文章就可以做chm了 这是我修改别人的bat,集合在一起完成的将txt大量的转换成htm的bat
[code]@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir/b/a-d *.txt') do (
set "str=%%~ni"
for %%1 in (^^^) do (
set a=%%1
set a=!a:-= ! &set a=!a:#==!
echo !a!>xxx.htm
echo ^ >>xxx.htm
)
for /f "tokens=*" %%a in ('type "%%i"') do (
for %%n in (%%a^
) do (
set a=%%n
set a=!a:-= ! &set a=!a:#==!
echo !a!>>xxx.htm
)
)
echo ^>>xxx.htm
echo ^>>xxx.htm
ren xxx.htm !str!.htm
del %%i
ping /n 1 127.1>nul
)[/code] 顶顶EXIST的作品。。 能不能加入自动滚屏啊。那就真的可以全自动看书了 : ) 看起来不是我写的啊；可能是写过部分内容吧。
语言描述有语误。
歌本的描述给我私人看我一定很兴奋，给别人看我就觉得变小丑了……
后来只是在用cscript[code]if wscript.arguments.count=0 then
createobject("wscript.shell").run _
"cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme"
wscript.quit
end if
:rem paktc
set fs=createobject("scripting.filesystemobject")
set inp=wscript.stdin
set put=wscript.stdout
while true
put.writeline "请输入将要读取的文本名称，或完整路径: "
do
pathx=replace(inp.readline,chr(34),"")
if lcase(pathx)="exit" then
put.writeline "您选择了退出..."
wscript.sleep 500
inp.close : put.close
wscript.quit
end if
if fs.fileexists(pathx) = false then
put.writeline "文件不存在，请再输入一次。"
put.writeline "建议拖拽文本到本窗口，可直接获得完整路径: "
end if
loop until fs.fileexists(pathx)
put.writeline ""
set readx=fs.opentextfile(pathx,1)
while readx.atendofstream = false
tempstr=readx.read(1)
put.write tempstr
if asc(tempstr)<0 or asc(tempstr)>255 then
wscript.sleep 150
else
wscript.sleep 100
end if
wend
put.writeblanklines(2)
put.writeline " 脚本提示,该文本已输出完毕。"
put.writeblanklines(2)
readx.close
wend[/code]
[[i] 本帖最后由 523066680 于 2010-3-19 08:31 编辑 [/i]]
页:
[1]