标题: 批处理再现九九乘法表 [打印本页]
作者: bat-zw 时间: 2008-4-4 21:14 标题: 批处理再现九九乘法表
今天听到小女儿在背颂九九乘法口诀，突然就荫生了用批处理制作九九乘法表的念头，多少也找回点童年的记忆（为了排版整齐，在一位数前都加了0）。[ Last edited by zw19750516 on 2008-4-4 at 09:23 PM ]
@echo off
for /l %%i in (1,1,9) do set str= &call :lp %%i
pause&goto :eof
:lp
cd. >temp.txt
for /l %%i in (1,1,10) do (
set a=%1&set b=%%i
set /p str=<temp.txt
setlocal enabledelayedexpansion
set /a c=!a!*!b!
if !c! gtr 9 (echo !str!0!a!*0!b!=!c! >temp.txt) else (echo !str!0!a!*0!b!=0!c! >temp.txt)
if !b! gtr !a! echo !str!&del temp.txt /q&goto :eof
endlocal
)作者: plp626 时间: 2008-4-4 22:30
转,学习下:
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
for /l %%i in (1,1,9) do (
for /l %%j in (1,1,%%i) do (
set /a h=%%i*%%j
set /p=%%i×%%j^=!h! <nul
if %%i==%%j echo.
)
)
pause作者: bat-zw 时间: 2008-4-5 00:03
Originally posted by plp626 at 2008-4-4 22:30: 转,学习下: [code]@ECHO OFF SETLOCAL ENABLEDELAYEDEXPANSION for /l %%i in (1,1,9) do ( for /l %%j in (1,1,%%i) do ( set /a h=%%i*%%j set /p=%%i×%%j^=!h! <nul ...代码好简洁，但排版有大问题。
作者: terse 时间: 2008-4-5 00:39
我也转一个 排版没问题吧
@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a i+=1
set /a ans=%%a*%%b
set ans=%%b×%%a=!ans!
set res=!res! !ans:~0,6!
if !i! equ %%a echo!res!&set res=& set i=0
)
)
pause
作者: 26933062 时间: 2008-4-5 01:50
2楼的排版问题是因为论坛处理不了tab键。
将set /p=%%i×%%j^=!h! <nul 这里的“空格”换成tab就美观了。
用空格来处理也可以，只是代码稍微长一点。
如下。[ Last edited by 26933062 on 2008-4-5 at 02:12 AM ]
@echo off&setlocal EnableDelayedExpansion
for /l %%i in (1,1,9) do (
for /l %%j in (1,1,%%i) do (
set /a h=%%i*%%j
set "h=!h! "
if %%j equ 1 (set h=!h:~0,2!) else (set h=!h:~0,3!)
set /p=%%j×%%i^=!h!<nul
)
echo.
)
pause作者: 26933062 时间: 2008-4-5 02:02
4楼代码更好，也可以更简化
:
@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a h=%%a*%%b
set "h=%%b×%%a=!h! "
set m=!m! !h:~0,6!
)
echo !m!&set "m="
)
pause 作者: terse 时间: 2008-4-5 03:51
Originally posted by 26933062 at 2008-4-5 02:02: 4楼代码更好，也可以更简化 :[code] @echo off&setlocal enabledelayedexpansion for /l %%a in (1,1,9) do ( for /l %%b in (1,1,%%a) do ( set /a h=%%a*%%b set "h ...26933062兄的提醒 原来也可以这样 哈~ @echo off&setlocal enabledelayedexpansion for /l %%a in (1,1,9) do ( for /l %%b in (1,1,%%a) do ( set /a h=%%a*%%b set "h=!h! " set /p=%%b×%%a=!h:~0,2! <nul ) echo. ) pause
作者: aliang10520 时间: 2008-4-5 09:49
不错
作者: xtanbmy 时间: 2008-4-7 19:06
哈哈，不错。