【貌似是原創(chuàng)】批處理備忘錄最后由 zcydez 于 -8-6 20:16為了“溫故而知新”一下for語句，今天編了一個批處理版?zhèn)渫洝＿\行后會輪流滾動播出批處理目錄下的“顯示內(nèi)容.txt”里的文本。（初次運行會自動生成此文件）在“顯示內(nèi)容.txt”里輸入的文本最好為全角字符，比較美觀。此文件里的“[date]”代表當(dāng)前日期，“[time]標示當(dāng)前時間。不知道是不是原創(chuàng)，如果是的話請幫忙移到原創(chuàng)代碼，謝謝。

@echo off
title 批處理備忘錄
mode con:cols=42 lines=2
if not exist %cd%顯示內(nèi)容.txt (echo 你好！>顯示內(nèi)容.txt
echo 歡迎使用！>>顯示內(nèi)容.txt
echo 現(xiàn)在時間：[time]>>顯示內(nèi)容.txt
echo 今天日期：[date]>>顯示內(nèi)容.txt
echo 不錯吧？>>顯示內(nèi)容.txt
echo 這個文本文件可以自己修改>>顯示內(nèi)容.txt
echo 可以當(dāng)備忘錄！>>顯示內(nèi)容.txt
echo 為了美觀，本文本文件里面必須全是全角字符！>>顯示內(nèi)容.txt
)
:begin
setlocal EnableDelayedExpansion
for /f %%a in (%cd%顯示內(nèi)容.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!
::這里是調(diào)用for算文本字符數(shù)（核心部分，也是難點，本來想用直接退出for來完成算字
::符數(shù)的，但是cmd不讓，所以只好用call調(diào)用for，當(dāng)人民需要的時候用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
nclick="copycode($('code0'));">復(fù)制代碼

點擊進入下載－批處理備忘錄.rar