Rank: 5 Rank: 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
pause
复制代码

我的百度空间欢迎你

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 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: 8 Rank: 8

帖子: 1348
积分: 5192
技术: 145
捐助: 501
注册时间: 2007-10-25

3楼

发表于 2008-8-11 18:32 | 只看该作者

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

尺有所短寸有所长，学好批处理没商量；
考虑问题复杂化，解决问题简洁化。
心在天山，身老沧州。

TOP

pusofalse

荣誉版主

Rank: 8 Rank: 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: 3 Rank: 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: 6 Rank: 6

帖子: 826
积分: 1629
技术: 54
捐助: 20
注册时间: 2008-11-3

6楼

发表于 2008-11-12 23:49 | 只看该作者

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

目的，学习批处理

TOP

hlzj88

少校

Rank: 6 Rank: 6

帖子: 826
积分: 1629
技术: 54
捐助: 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
)
复制代码

目的，学习批处理

TOP

5566ljlj

少尉

Rank: 5 Rank: 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: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 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
wend
复制代码

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

TOP

返回列表

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

批处理文本阅读器

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]