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

[文本处理] [分享]批处理逐字显示彩色字符串

【问题描述】
批处理如何实现文字逐个显示,而且每个字有不同的颜色?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

本帖最后由 idwma 于 2022-3-13 23:02 编辑

尝试让ps客串一下
  1. echo bbs.bathome.net|powershell "$input -split ''|foreach{write-host $_ -fo $(Get-Random 15) -ba $(Get-Random 15) -no;sleep 1}"
复制代码

TOP

【解决方案】
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "str=bbs.bathome.net"
  4. for /f %%i in ('echo prompt $E ^| cmd') do (
  5.     set "KeyESC=%%i"
  6. )
  7. set "Color0=%KeyESC%[38;2;255;0;0m"
  8. set "Color1=%KeyESC%[38;2;0;255;0m"
  9. set "Color2=%KeyESC%[38;2;255;255;0m"
  10. set "n=0"
  11. set "m=0"
  12. :Output
  13. set /a n+=1
  14. set /a m=n%%3
  15. call set /p =%%Color!m!%%!str:~,1!<nul
  16. set "str=!str:~1!"
  17. ping -n 2 127.1 >nul
  18. if defined str (
  19.     goto :Output
  20. )
  21. echo,%KeyESC%[0m
  22. pause
复制代码
注:不适用于Win10以下的系统
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表