批处理之家 - Powered by Discuz! Board

标题: 批处理文本阅读器 [打印本页]

作者: lixiaodaoaaa 时间: 2008-8-11 12:19 标题: 批处理文本阅读器

特别鸣谢 if exist 文本阅读器转载，此批处理是 if exist的很不错的作品之一！很好！文本越读器，并且我很喜欢这个作品，也经常用 if exist 编写的代码真的很不错，简单、实用，如果你也需要，请复制源码，并运行看效果，真的很不错！！！此批处理的使用方法如下： 1，把要看的文本文件，复制到记事本里，并重命名为1.txt 2 ,把该批处理防到与1.txt文件同一个目录下，并双击该批处理 3，等待片刻，可以看到一个打开的网页，很好！就是你的文本文件！怎么样？很不错吧！！！ 4 ，非常感谢if exist 的代码，我经常用它来看些文本资料，很好，很强大！！ 5,本人在最后给了点改正，运行本批处理之后，就start x.html很不错吧！不用找那个x.html了！哈哈。。。

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

作者: Batcher 时间: 2008-8-11 16:27

“该图片仅限百度用户交流使用”
贴图的方法有问题

作者: namejm 时间: 2008-8-11 18:32

　　图片还是直接上传到论坛里来吧，百度空间不允许外链的，其他人看不到图片。

作者: pusofalse 时间: 2008-8-11 18:42

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
不可以吗。

作者: wangshuping42 时间: 2008-8-29 13:40

这样改会好点：

@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

作者: hlzj88 时间: 2008-11-12 23:49

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

作者: hlzj88 时间: 2008-12-1 22:46

这是我修改别人的bat,集合在一起完成的将txt大量的转换成htm的bat

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

作者: 5566ljlj 时间: 2009-10-17 22:21

顶顶EXIST的作品。。

作者: hbwhyin 时间: 2010-3-19 01:07

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

作者: 523066680 时间: 2010-3-19 08:23

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

后来只是在用cscript

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

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

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2