- ::寒夜孤星写的
- @echo off&setlocal enabledelayedexpansion
- for /f "delims=" %%a in (a.txt) do call:han "%%a"
- for /l %%a in (1,1,%Ye%) do set Xing= !Xing!
- for /f "delims=" %%a in (a.txt) do (
- set Han=%%a%Xing%
- for /l %%b in (0,1,%Ye%) do set #%%b=^|!Han:~%%b,1!!#%%b!
-
- )
- set/a Ye-=1
- (for /l %%a in (0,1,%Ye%) do echo !#%%a!)>b.txt
- exit
- :han
- set Han=%~1
- if defined Ye (set Gu=%Ye%) else set Gu=0
- :ye
- if "!Han:~%Gu%,1!"=="" (
- if "%Ye%"=="" set Ye=%Gu%
- if %Gu% gtr %Ye% set Ye=%Gu%
- goto:eof
- )
- set/a Gu+=1
- goto:ye
- rem 用┇分割每行效果好
以下是a 文本内容：
将进酒—李白
君不见，黄河之水天上来，奔流到海不复回。
君不见，高堂明镜悲白发，朝如青丝暮成雪。
人生得意须尽欢，莫使金樽空对月。
天生我材必有用，千金散尽还复来。
烹羊宰牛且为乐，会须一饮三百杯。
岑夫子，丹丘生，将进酒，杯莫停。
与君歌一曲，请君为我侧耳听：
钟鼓馔玉不足贵，但愿长醉不复醒。
古来圣贤皆寂寞，唯有饮者留其名。
陈王昔时宴平乐，斗酒十千恣欢谑。
主人何为言少钱，径须沽取对君酌。
五花马，千金裘，呼儿将出换美酒，
与尔同销万古愁。
以下是处理后b文本的内容：
|与|五|主|陈|古|钟|与|岑|烹|天|人|君|君|
|尔|花|人|王|来|鼓|君|夫|羊|生|生|不|不|
|同|马|何|昔|圣|馔|歌|子|宰|我|得|见|见|将
|销|，|为|时|贤|玉|一|，|牛|材|意|，|，|进
|万|千|言|宴|皆|不|曲|丹|且|必|须|高|黄|酒
|古|金|少|平|寂|足|，|丘|为|有|尽|堂|河|—
|愁|裘|钱|乐|寞|贵|请|生|乐|用|欢|明|之|李
|。|，|，|，|，|，|君|，|，|，|，|镜|水|白
| |呼|径|斗|唯|但|为|将|会|千|莫|悲|天|
| |儿|须|酒|有|愿|我|进|须|金|使|白|上|
| |将|沽|十|饮|长|侧|酒|一|散|金|发|来|
| |出|取|千|者|醉|耳|，|饮|尽|樽|，|，|
| |换|对|恣|留|不|听|杯|三|还|空|朝|奔|
| |美|君|欢|其|复|：|莫|百|复|对|如|流|
| |酒|酌|谑|名|醒| |停|杯|来|月|青|到|
| |，|。|。|。|。| |。|。|。|。|丝|海|
| | | | | | | | | | | |暮|不|
| | | | | | | | | | | |成|复|
| | | | | | | | | | | |雪|回|
| | | | | | | | | | | |。|。| | 
发表于 2012-4-27 09:42
| 