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

批处理文本阅读器

特别鸣谢 if exist

                          文本阅读器
转载,此批处理是 if exist的很不错的作品之一!很好!
文本越读器,并且我很喜欢这个作品,也经常用
if exist 编写的代码真的很不错,简单、实用,如果你也需要,请
复制源码,并运行看效果,真的很不错!!!


此批处理的使用方法 如下:
1,把要看的文本文件,复制到记事本里,并重命名为1.txt
2 ,把该批处理防到与1.txt文件同一个目录下,并双击该批处理
3,等待片刻,可以看到一个打开的网页,很好!就是你的文本文件!怎么样?
很不错吧!!!

4 ,非常感谢if exist 的代码,我经常用它来看些文本资料,很好,很强大 !!
5,本人在最后给了点改正,运行本批处理之后,就start x.html很不错吧!不用找那个x.html了!哈哈。。。
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for %%1 in (^<head^>^</head^>^<body-bgcolor#black-text#lime^>^</body^>) do (
  4. set a=%%1
  5. set a=!a:-= ! &set a=!a:#==!
  6. echo !a!>x.html
  7. )[/color][/size]
  8. [size=4][color=#ff00ff]for /f "tokens=*" %%a in ('type 1.txt') do (
  9.     for %%n in (^
  10. ^<font-size#6^>%%a^</font^>) do (
  11.     set a=%%n
  12.     set a=!a:-= ! &set a=!a:#==!
  13.     echo !a!>>x.html
  14. )
  15. )
  16. start x.html
  17. pause
复制代码

“该图片仅限百度用户交流使用”
贴图的方法有问题
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

  图片还是直接上传到论坛里来吧,百度空间不允许外链的,其他人看不到图片。
尺有所短寸有所长,学好批处理没商量;
考虑问题复杂化,解决问题简洁化。

心在天山,身老沧州。

TOP

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
不可以吗。
心绪平和,眼藏静谧。

TOP

这样改会好点:

@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

TOP

这就是txt转html的好工具啊,要是能一次全部转换就好了,精简html代码,并改文件名,这样好多文章就可以做chm了
目的,学习批处理

TOP

这是我修改别人的bat,集合在一起完成的将txt大量的转换成htm的bat
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%i in ('dir/b/a-d *.txt') do (
  4.   set "str=%%~ni"
  5. for %%1 in (^^^) do (
  6. set a=%%1
  7. set a=!a:-= ! &set a=!a:#==!
  8. echo !a!>xxx.htm
  9. echo ^ >>xxx.htm
  10. )
  11. for /f "tokens=*" %%a in ('type "%%i"') do (
  12.   for %%n in (%%a^
  13. ) do (
  14.   set a=%%n
  15.   set a=!a:-= ! &set a=!a:#==!
  16.   echo !a!>>xxx.htm
  17. )
  18. )
  19. echo ^>>xxx.htm
  20. echo ^>>xxx.htm
  21. ren xxx.htm !str!.htm
  22. del %%i
  23. ping /n 1 127.1>nul
  24. )
复制代码
目的,学习批处理

TOP

顶顶EXIST的作品。。

TOP

能不能加入自动滚屏啊。那就真的可以全自动看书了  : )

TOP

看起来不是我写的啊;可能是写过部分内容吧。
语言描述有语误。
歌本的描述给我私人看我一定很兴奋,给别人看我就觉得变小丑了……

后来只是在用cscript
  1. if wscript.arguments.count=0 then
  2.    createobject("wscript.shell").run _
  3.    "cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme"
  4.    wscript.quit
  5. end if
  6. :rem paktc
  7. set fs=createobject("scripting.filesystemobject")
  8. set inp=wscript.stdin
  9. set put=wscript.stdout
  10. while true
  11.   put.writeline "请输入将要读取的文本名称,或完整路径: "
  12.   do
  13.     pathx=replace(inp.readline,chr(34),"")
  14.     if lcase(pathx)="exit" then
  15.       put.writeline "您选择了退出..."
  16.       wscript.sleep 500
  17.       inp.close : put.close
  18.       wscript.quit
  19.     end if
  20.     if fs.fileexists(pathx) = false then
  21.       put.writeline "文件不存在,请再输入一次。"
  22.       put.writeline "建议拖拽文本到本窗口,可直接获得完整路径: "
  23.     end if
  24.   loop until fs.fileexists(pathx)
  25.   put.writeline ""
  26.   set readx=fs.opentextfile(pathx,1)
  27.   while readx.atendofstream = false
  28.     tempstr=readx.read(1)
  29.     put.write tempstr
  30.     if asc(tempstr)<0 or asc(tempstr)>255 then
  31.       wscript.sleep 150
  32.     else
  33.       wscript.sleep 100
  34.     end if
  35.   wend
  36.   put.writeblanklines(2)
  37.   put.writeline "    脚本提示,该文本已输出完毕。"
  38.   put.writeblanklines(2)
  39.   readx.close
  40. wend
复制代码

[ 本帖最后由 523066680 于 2010-3-19 08:31 编辑 ]

TOP

返回列表