返回列表 发帖
lixiaodaoaaa

Rank: 5Rank: 5

帖子
295 
积分
1142 
技术
2  
捐助
0  
注册时间
2008-2-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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
pauseCOPY
收藏 分享
我的百度空间欢迎你

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14981 
积分
46194 
技术
859  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2008-8-11 16:27 | 只看该作者
“该图片仅限百度用户交流使用”
贴图的方法有问题
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

namejm

Rank: 8Rank: 8

帖子
1348 
积分
5195 
技术
146  
捐助
501  
注册时间
2007-10-25 
3楼
发表于 2008-8-11 18:32 | 只看该作者
　　图片还是直接上传到论坛里来吧，百度空间不允许外链的，其他人看不到图片。
尺有所短寸有所长，学好批处理没商量；
考虑问题复杂化，解决问题简洁化。
心在天山，身老沧州。

TOP

pusofalse

Rank: 8Rank: 8

帖子
1166 
积分
5174 
技术
13  
捐助
0  
注册时间
2008-3-11 
4楼
发表于 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
不可以吗。
心绪平和，眼藏静谧。

TOP

wangshuping42

Rank: 3Rank: 3

帖子
32 
积分
263 
技术
0  
捐助
0  
注册时间
2008-8-20 
5楼
发表于 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

TOP

hlzj88

Rank: 6Rank: 6

帖子
836 
积分
1645 
技术
55  
捐助
20  
注册时间
2008-11-3 
6楼
发表于 2008-11-12 23:49 | 只看该作者
这就是txt转html的好工具啊，要是能一次全部转换就好了，精简html代码，并改文件名，这样好多文章就可以做chm了
目的，学习批处理

TOP

hlzj88

Rank: 6Rank: 6

帖子
836 
积分
1645 
技术
55  
捐助
20  
注册时间
2008-11-3 
7楼
发表于 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
)COPY
目的，学习批处理

TOP

5566ljlj

Rank: 5Rank: 5

帖子
45 
积分
678 
技术
0  
捐助
0  
注册时间
2009-3-7 
8楼
发表于 2009-10-17 22:21 | 只看该作者
顶顶EXIST的作品。。

TOP

hbwhyin

Rank: 2

帖子
10 
积分
144 
技术
0  
捐助
0  
注册时间
2009-3-12 
9楼
发表于 2010-3-19 01:07 | 只看该作者
能不能加入自动滚屏啊。那就真的可以全自动看书了  : )

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3168 
积分
6482 
技术
320  
捐助
70  
注册时间
2008-8-3 
10楼
发表于 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
wendCOPY

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

TOP

返回列表