批处理之家 » BAT原创&转载 » 批处理把txt转换成彩虹字(Discuz HTML格式)

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

返回列表发帖

Rank: 5 Rank: 5

帖子: 181
积分: 634
技术: 7
捐助: 0
注册时间: 2009-1-6

1楼 跳转到 » 正序看帖

字体大小: tT

发表于 2010-6-28 03:23 | 只看该作者

[文本处理] 批处理把txt转换成彩虹字(Discuz HTML格式)

2009年写的了,翻了旧帖贴出来

这样用的:

@echo off&title Code by Taurus&mode con: cols=21 lines=1&color 0a
set TRW1=%~1
if not defined TRW1 exit
set/p=       Loading <nul
set o6=F&set o5=F&set o4=0&set o3=F&set o2=0&set o1=F
set RBHTA="%~dp0\Rainbowtext.hta"
set RBCODE="%tmp%\Discuzcode"
set RBHC="%tmp%\HTMLCode"
(
     echo ^<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^>
     echo ^<html^>
     echo ^<head^>
     echo ^<script laguage="javascript"^>
     echo window.resizeTo^(768,452^);
     echo window.moveTo^(257,-500^);
     echo var y=-500;
     echo show=setInterval^("move()",1^);
     echo function move^(^){
     echo if^(0^>y^){
     echo y+=20;
     echo window.moveTo^(257,y^);
     echo } else {
     echo clearInterval^(show^);
     echo }
     echo }
     echo function move2^(^){
     echo if^(y^>-500^){
     echo y-=20;
     echo window.moveTo^(257,y^);
     echo } else {
     echo window.close^(^);
     echo }
     echo }
     echo ^</script^>
     echo ^<hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe"^>
     echo ^<meta http-equiv="Content-Type" content="text/html"^>
     echo ^<title^>Taurus's Rainbow Text^</title^>
     echo ^<style type="text/css"^>
     echo p{
     echo     overflow: scroll;
     echo     width: 688px;
     echo     height: 150px;
     echo     padding: 1em;
     echo     border: 4px solid #FF0000;
     echo     line-height: 1.5;
     echo     color: #FF0000;
     echo     background: #000000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo h1{
     echo     width: 351px;
     echo     background: #FF0000;
     echo     font-size: 16px;
     echo     font-weight:bold;
     echo     margin-left: auto; margin-right: auto; margin-bottom: 3px;
     echo }
     echo form{
     echo     width: 728px;
     echo     margin-left: auto; margin-right: auto;  margin-top: 0px;
     echo }
     echo textarea{
     echo     width: 339px;
     echo     height: 100px;
     echo     background: #FFFFFF;
     echo     border: 5px solid #FF0000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo body{
     echo     background: #000000;
     echo }
     echo table{
     echo    border: 8px solid #FF0000;
     echo    margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo ^</style^>
     echo ^</head^>
     echo ^<body^>
     echo ^<H1 style="width: 728px;"^>·Effect of Sample^</H1^>
     echo ^<p^>
     echo ^<marquee direction=down scrollamount=6^>
)>%RBHTA%
(
     echo ^<H1^>·Discuz Code^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt1^>
)>%RBCODE%
for /f "delims=:" %%i in ('findstr /n .* "%~1"') do set lines=%%i
for /f "delims=" %%Z in ('findstr .* "%~1"') do (
     set "str=%%Z"
     set /a strnub=0
     set /a line+=1
     call :Printing
)
type %RBHC%>>%RBHTA%
(
     echo ^</marquee^>
     echo ^</p^>
     echo ^<table^>
     echo ^<tr^>
     echo ^<td^>
     echo ^<H1^>·HTML Script^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt2^>
)>>%RBHTA%
type %RBHC%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^<td^>
)>>%RBHTA%
type %RBCODE%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^</tr^>
     echo ^</table^>
     echo ^<table style="width:734px;border:0px"^>
     echo ^<td^>
     echo ^<INPUT onclick=javascript:document.all['txt2'].focus^(^);document.all['txt2'].select^(^);word=document.all['txt2'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy HTML Script"^>
     echo ^<INPUT onclick=javascript:document.all['txt1'].focus^(^);document.all['txt1'].select^(^);word=document.all['txt1'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy Discuz Code"^>
     echo ^</td^>
     echo ^<td style="text-align:right"^>
     echo ^<u^>
     echo ^<font size="2" color="#FF0000"^>Taurus Script PointTM  ^(R^)2009^</font^>
     echo ^</u^>
     echo ^<input type=button value="  EXIT  " onclick=setInterval^("move2()",1^);^>
     echo ^</td^>
     echo ^</table^>
     echo ^</body^>
     echo ^</html^>
)>>%RBHTA%
del %RBHC%
del %RBCODE%
start "" %RBHTA%
exit
:Printing
setlocal enabledelayedexpansion
set /a cope=!line!00/%lines%
if !cope!==100 set copes=Complete:!cope!%%
if !cope! lss 100 set copes=Complete: !cope!%%
if !cope! lss 10 set copes=Complete:  !cope!%%
:Printing2
if not defined str (
     if !findW!==1 (
         echo.>>%RBCODE%
         echo.^
>>%RBHC%
     )
     goto :eof
)
if not "!str:~0,1!"=="" if not "!str:~0,1!"==" " set findW=1
if !Loading!==10 set Load=
if !Loading!==20 set Load=.
if !Loading!==30 set Load=. .
if !Loading!==40 set Load=. . .
set/p=<nul
set/p=    !copes!<nul
title Loading !Load!
if !Loading!==60 (
     set Loading=0
     ) else (
     set /a Loading+=1
)
for /l %%a in (1,1,6) do (
     set /a nn=%%a+1
     if "!o%%a!" == "10" set o%%a=A
     if "!o%%a!" == "11" set o%%a=B
     if "!o%%a!" == "12" set o%%a=C
     if "!o%%a!" == "13" set o%%a=D
     if "!o%%a!" == "14" set o%%a=E
     if "!o%%a!" == "15" set o%%a=F
     if "!o%%a!" == "16" set o%%a=0&call set /a o!nn!=0x%%o!nn!%%+1
     if "!o%%a!" == "-1" set o%%a=F&call set /a o!nn!=0x%%o!nn!%%-1
)
set HEX=!o6!!o5!!o4!!o3!!o2!!o1!
if !HEX!==FF0F0F set digit=4&set FML=+
if !HEX!==FFFF0F set digit=6&set FML=-
if !HEX!==0FFF0F set digit=2&set FML=+
if !HEX!==0FFFFF set digit=4&set FML=-
if !HEX!==0F0FFF set digit=6&set FML=+
if !HEX!==FF0FFF set digit=2&set FML=-
call set /a o!digit!=0x%%o!digit!%%!FML!3
set /p "var=^<font color^=#!HEX!^>!str:~0,1!^<^/font^>"<nul>>%RBHC%
set /p "var=[color^=#!HEX!]!str:~0,1!"<nul>>%RBCODE%
endlocal&set o6=%o6%&set o5=%o5%&set o4=%o4%&set o3=%o3%&set o2=%o2%&set o1=%o1%&set FML=%FML%&set digit=%digit%&set line=%line%&set findW=%findW%&set "loading=%loading%"&set /a strnub+=1&set load=%Load%
setlocal enabledelayedexpansion
set "str=!str:~%strnub%,1!"
goto :Printing2
复制代码

附件: 您需要登录才可以下载或查看附件。没有帐号？注册

3 评分人数

aa77dd@163.com: 挺好玩技术 + 1
netbenton: 以前见过，不错的东东~~~PB + 10
batman: 赞一个！PB + 10

带内地用语或带里语的文章,在下读写总觉有点吃力;
如误解了各位意思的讲勿见怪 ^_^

Rank: 5 Rank: 5

帖子: 118
积分: 930
技术: 0
捐助: 0
注册时间: 2013-4-20

15楼

发表于 2013-5-5 14:30 | 只看该作者

很不错顶一个

Rank: 1

帖子: 3
积分: 24
技术: 0
捐助: 0
注册时间: 2011-8-11

14楼

发表于 2011-8-15 16:26 | 只看该作者

不理解，还在研究中呢……

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

13楼

发表于 2011-8-10 16:05 | 只看该作者

楼主厉害哦～

http://garyngzhongbo.blogspot.com

Rank: 6 Rank: 6

帖子: 551
积分: 2799
技术: 39
捐助: 0
注册时间: 2011-4-22

12楼

发表于 2011-4-28 02:46 | 只看该作者

看来这帖子没有多少人气。
楼主可以写一个详细的实用知道和绚丽的功能介绍

Rank: 5 Rank: 5

帖子: 181
积分: 634
技术: 7
捐助: 0
注册时间: 2009-1-6

11楼

发表于 2011-4-25 09:05 | 只看该作者

9# cxypy

附件: 您需要登录才可以下载或查看附件。没有帐号？注册

带内地用语或带里语的文章,在下读写总觉有点吃力;
如误解了各位意思的讲勿见怪 ^_^

Rank: 1

帖子: 5
积分: 26
技术: 0
捐助: 0
注册时间: 2010-5-17

10楼

发表于 2011-4-24 13:42 | 只看该作者

不知道如何使用，谢谢。

Rank: 1

帖子: 6
积分: 26
技术: 0
捐助: 0
注册时间: 2011-2-19

9楼

发表于 2011-2-19 11:27 | 只看该作者

挺神气的。。。不知道俺什么时候可以写出这样的代码。。

Rank: 1

帖子: 8
积分: 28
技术: 0
捐助: 0
注册时间: 2010-9-30

8楼

发表于 2011-2-8 01:25 | 只看该作者

哇塞···················

很有创意···········

Rank: 5 Rank: 5

帖子: 181
积分: 634
技术: 7
捐助: 0
注册时间: 2009-1-6

7楼

发表于 2011-2-6 00:15 | 只看该作者

修正hta屏幕位置:
(因含部份js,css及hta代碼,貼上Discuz可能會有部份語句出錯,請在頁尾下載附件)

@echo off&title Code by Taurus&mode con: cols=21 lines=1&color 0a
set TRW1=%~1
if not defined TRW1 exit
set/p=       Loading <nul
set o6=F&set o5=F&set o4=0&set o3=F&set o2=0&set o1=F
set RBHTA="%~dp0\Rainbowtext.hta"
set RBCODE="%tmp%\Discuzcode"
set RBHC="%tmp%\HTMLCode"
(
     echo ^<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^>
     echo ^<html^>
     echo ^<head^>
     echo ^<script laguage="javascript"^>
     echo var SW =window.screen.width-767;
     echo window.resizeTo^(768,452^);
     echo window.moveTo^(SW,-500^);
     echo var y=-500;
     echo show=setInterval^("move()",1^);
     echo function move^(^){
     echo if^(0^>y^){
     echo y+=20;
     echo window.moveTo^(SW,y^);
     echo } else {
     echo clearInterval^(show^);
     echo }
     echo }
     echo function move2^(^){
     echo if^(y^>-500^){
     echo y-=20;
     echo window.moveTo^(SW,y^);
     echo } else {
     echo window.close^(^);
     echo }
     echo }
     echo ^</script^>
     echo ^<hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe"^>
     echo ^<meta http-equiv="Content-Type" content="text/html"^>
     echo ^<title^>Taurus's Rainbow Text^</title^>
     echo ^<style type="text/css"^>
     echo p{
     echo     overflow: scroll;
     echo     width: 688px;
     echo     height: 150px;
     echo     padding: 1em;
     echo     border: 4px solid #FF0000;
     echo     line-height: 1.5;
     echo     color: #FF0000;
     echo     background: #000000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo h1{
     echo     width: 351px;
     echo     background: #FF0000;
     echo     font-size: 16px;
     echo     font-weight:bold;
     echo     margin-left: auto; margin-right: auto; margin-bottom: 3px;
     echo }
     echo form{
     echo     width: 728px;
     echo     margin-left: auto; margin-right: auto;  margin-top: 0px;
     echo }
     echo textarea{
     echo     width: 339px;
     echo     height: 100px;
     echo     background: #FFFFFF;
     echo     border: 5px solid #FF0000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo body{
     echo     background: #000000;
     echo }
     echo table{
     echo    border: 8px solid #FF0000;
     echo    margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo ^</style^>
     echo ^</head^>
     echo ^<body^>
     echo ^<H1 style="width: 728px;"^>‧Effect of Sample^</H1^>
     echo ^<p^>
     echo ^<marquee direction=down scrollamount=6^>
)>%RBHTA%
(
     echo ^<H1^>‧Discuz Code^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt1^>
)>%RBCODE%
for /f "delims=:" %%i in ('findstr /n .* "%~1"') do set lines=%%i
for /f "delims=" %%Z in ('findstr .* "%~1"') do (
     set "str=%%Z"
     set /a strnub=0
     set /a line+=1
     call :Printing
)
type %RBHC%>>%RBHTA%
(
     echo ^</marquee^>
     echo ^</p^>
     echo ^<table^>
     echo ^<tr^>
     echo ^<td^>
     echo ^<H1^>‧HTML Script^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt2^>
)>>%RBHTA%
type %RBHC%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^<td^>
)>>%RBHTA%
type %RBCODE%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^</tr^>
     echo ^</table^>
     echo ^<table style="width:734px;border:0px"^>
     echo ^<td^>
     echo ^<INPUT onclick=javascript:document.all['txt2'].focus^(^);document.all['txt2'].select^(^);word=document.all['txt2'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy HTML Script"^>
     echo ^<INPUT onclick=javascript:document.all['txt1'].focus^(^);document.all['txt1'].select^(^);word=document.all['txt1'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy Discuz Code"^>
     echo ^</td^>
     echo ^<td style="text-align:right"^>
     echo ^<u^>
     echo ^<font size="2" color="#FF0000"^>Taurus Script PointTM  ^(R^)2009^</font^>
     echo ^</u^>
     echo ^<input type=button value="  EXIT  " onclick=setInterval^("move2()",1^);^>
     echo ^</td^>
     echo ^</table^>
     echo ^</body^>
     echo ^</html^>
)>>%RBHTA%
del %RBHC%
del %RBCODE%
start "" %RBHTA%
exit
:Printing
setlocal enabledelayedexpansion
set /a cope=!line!00/%lines%
if !cope!==100 set copes=Complete:!cope!%%
if !cope! lss 100 set copes=Complete: !cope!%%
if !cope! lss 10 set copes=Complete:  !cope!%%
:Printing2
if not defined str (
     if !findW!==1 (
         echo.>>%RBCODE%
         echo.^
>>%RBHC%
     )
     goto :eof
)
if not "!str:~0,1!"=="" if not "!str:~0,1!"==" " set findW=1
if !Loading!==10 set Load=
if !Loading!==20 set Load=.
if !Loading!==30 set Load=. .
if !Loading!==40 set Load=. . .
set/p=<nul
set/p=    !copes!<nul
title Loading !Load!
if !Loading!==60 (
     set Loading=0
     ) else (
     set /a Loading+=1
)
for /l %%a in (1,1,6) do (
     set /a nn=%%a+1
     if "!o%%a!" == "10" set o%%a=A
     if "!o%%a!" == "11" set o%%a=B
     if "!o%%a!" == "12" set o%%a=C
     if "!o%%a!" == "13" set o%%a=D
     if "!o%%a!" == "14" set o%%a=E
     if "!o%%a!" == "15" set o%%a=F
     if "!o%%a!" == "16" set o%%a=0&call set /a o!nn!=0x%%o!nn!%%+1
     if "!o%%a!" == "-1" set o%%a=F&call set /a o!nn!=0x%%o!nn!%%-1
)
set HEX=!o6!!o5!!o4!!o3!!o2!!o1!
if !HEX!==FF0F0F set digit=4&set FML=+
if !HEX!==FFFF0F set digit=6&set FML=-
if !HEX!==0FFF0F set digit=2&set FML=+
if !HEX!==0FFFFF set digit=4&set FML=-
if !HEX!==0F0FFF set digit=6&set FML=+
if !HEX!==FF0FFF set digit=2&set FML=-
call set /a o!digit!=0x%%o!digit!%%!FML!3
set /p "var=^<font color^=#!HEX!^>!str:~0,1!^<^/font^>"<nul>>%RBHC%
set /p "var=[color^=#!HEX!]!str:~0,1!"<nul>>%RBCODE%
endlocal&set o6=%o6%&set o5=%o5%&set o4=%o4%&set o3=%o3%&set o2=%o2%&set o1=%o1%&set FML=%FML%&set digit=%digit%&set line=%line%&set findW=%findW%&set "loading=%loading%"&set /a strnub+=1&set load=%Load%
setlocal enabledelayedexpansion
set "str=!str:~%strnub%,1!"
goto :Printing2
复制代码

[ 本帖最后由 Taurus 于 2011-2-6 00:33 编辑 ]

附件: 您需要登录才可以下载或查看附件。没有帐号？注册

带内地用语或带里语的文章,在下读写总觉有点吃力;
如误解了各位意思的讲勿见怪 ^_^

Rank: 1

帖子: 35
积分: 44
技术: 0
捐助: 0
注册时间: 2010-9-21

6楼

发表于 2011-1-17 04:54 | 只看该作者

彩虹字转换----视频教程

[ 本帖最后由 ubcc 于 2011-1-17 04:56 编辑 ]

Rank: 2

帖子: 1
积分: 101
技术: 0
捐助: 0
注册时间: 2009-7-11

5楼

发表于 2010-11-27 23:16 | 只看该作者

晕，怎么退不出来呀？

Rank: 5 Rank: 5

帖子: 181
积分: 634
技术: 7
捐助: 0
注册时间: 2009-1-6

4楼

发表于 2010-11-2 03:37 | 只看该作者

原帖由 zgj1623 于 2010-7-23 00:25 发表
不知道如何使用，谢谢。

把txt拖到bat上放手即可

带内地用语或带里语的文章,在下读写总觉有点吃力;
如误解了各位意思的讲勿见怪 ^_^