批处理之家 » BAT求助&讨论 » 彩色字符输出函数

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

返回列表发帖

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2009-2-27 08:54 | 只看该作者

[特效代码] 彩色字符输出函数

演示代码：

@echo off
title 彩色字符输出函数使用演示
echo.
call :ColorTheStr "曾经，有一份真挚的 " "爱情" " 放在我的面前，" 0a
call :ColorTheStr "我没有好好 " "珍惜" "" cf
echo.&echo.
call :ColorTheStr "等我失去时才 " "后悔莫及" "" 01cf
echo.&echo.
call :ColorTheStr "人世间 " "最痛苦" " 的事莫过于此" 0a3a
echo.&echo.
call :ColorTheStr "" "如果" "上天能够给我一个再来一次的机会" 0a
echo.&echo.
call :ColorTheStr "我会对那个女孩子说三个字：" "我" "" 0a 
call :ColorTheStr "" "爱" "" 0c
call :ColorTheStr "" "你" "" f9
pause>nul
:ColorTheStr [str1=显示字符] [str2=着色字符] [str3=显示字符] [color=设置颜色]
Rem 示例：call :ColorTheStr 好人 一生 平安 1f 可以将一生二字以蓝底白字输出
set "objStr=%~2"
if "%objStr%"=="" set objStr=[未定义]
set /p=%~1<nul
set /p=%~3  <nul>%objStr%
findstr /a:%~4 .* "%objStr%*"
del /q "%objStr%"
goto :eof
复制代码

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

2楼

发表于 2009-2-27 09:24 | 只看该作者

不喜欢太花哨，但偶尔用过。做成函数也不错。

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 175
积分: 862
技术: 8
捐助: 0
注册时间: 2008-3-23

3楼

发表于 2009-2-27 09:58 | 只看该作者

【原创】colstr函数---单行输出彩色字符

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

4楼

发表于 2009-2-27 10:19 | 只看该作者

惭愧，许久没逛联盟，思想远远落后了...

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

5楼

发表于 2009-2-27 22:07 | 只看该作者

收录入函数库。。。。