
批處理制表函數Tab在批處理內內嵌:
外部函數形式:Tab.Batnclick="copycode($('code0'));">復制代碼
- :Tab <Width> <Height> <Width[Cell]> <Height[Cell]>
- Rem Width- 以單元格為單位,繪制表格的寬
- Rem Height- 以單元格為單位,繪制表格的高
- Rem Width[Cell]- 單元格的寬
- Rem Height[Cell]- 單元格的高
- for /l %%i in (1,1,%2) do (
- Set /p Str=+<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=-<nul
- )
- Set /p Str=+<nul
- )
- Echo.
- for /l %%x in (1,1,%4) do (
- Set /p Str=^|<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=# <nul
- )
- Set /p Str=^|<nul
- )
- Echo.
- )
- )
- Set /p Str=+<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=-<nul
- )
- Set /p Str=+<nul
- )
- @Goto :Eof
By Hope謝謝nclick="copycode($('code1'));">復制代碼
- @Echo Off
- @Goto :Tab
- :Tab <Width> <Height> <Width[Cell]> <Height[Cell]>
- Rem Width- 以單元格為單位,繪制表格的寬
- Rem Height- 以單元格為單位,繪制表格的高
- Rem Width[Cell]- 單元格的寬
- Rem Height[Cell]- 單元格的高
- for /l %%i in (1,1,%2) do (
- Set /p Str=+<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=-<nul
- )
- Set /p Str=+<nul
- )
- Echo.
- for /l %%x in (1,1,%4) do (
- Set /p Str=^|<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=# <nul
- )
- Set /p Str=^|<nul
- )
- Echo.
- )
- )
- Set /p Str=+<nul
- for /l %%j in (1,1,%1) do (
- for /l %%x in (1,1,%3) do (
- Set /p Str=-<nul
- )
- Set /p Str=+<nul
- )
- @Exit /b

