@echo off
title 批处理备忘录
mode con:cols=42 lines=2
if not exist %cd%\显示内容.txt (echo 你好！>显示内容.txt
echo 欢迎使用！>>显示内容.txt
echo 现在时间：[time]>>显示内容.txt
echo 今天日期：[date]>>显示内容.txt
echo 不错吧？>>显示内容.txt
echo 这个文本文件可以自己修改>>显示内容.txt
echo 可以当备忘录！>>显示内容.txt
echo 为了美观，本文本文件里面必须全是全角字符！>>显示内容.txt
)
:begin
setlocal EnableDelayedExpansion
for /f %%a in (%cd%\显示内容.txt) do (
set w=%%a
for /f "delims=: tokens=1,2" %%t in ("%time%") do (set w=!w:[time]=%%t: %%u!)
cls
set w=!w:[date]=%date%!
set w=!w:/=／!
set w=!w:1=１!
set w=!w:2=２!
set w=!w:3=３!
set w=!w:4=４!
set w=!w:5=５!
set w=!w:6=６!
set w=!w:7=７!
set w=!w:8=８!
set w=!w:9=９!
set w=!w:0=０!
set w=!w::=：!
set output=　　　　　　　　　　　　　　　　　　　　!w!
::这里是调用for算文本字符数（核心部分，也是难点，本来想用直接退出for来完成算字
::符数的，但是cmd不让，所以只好用call调用for，当人民需要的时候用goto :eof英勇
::献身!
call :pdzs
for /l %%c in (0 1 !zs!) do (set output2= !output:~%%c,20%!
cls
echo.!output2!
for /l %%d in (1 1 3) do (ping -n 1 127.0.1>nul)
))
goto begin
:pdzs
for /l %%b in (0 1 5000) do (
if "!output:~%%b,1!"=="" (set zs=%%b&goto :eof))
:qj
set qj=０１２３４５６７８９
goto :eof
复制代码

set Y=０１２３４５６７８９&set T=%time:~0,2%：%time:~3,2%
for /l %%a in (0,1,9) do call set T=%%T:%%a=!Y:~%%a,1!%%
复制代码