※ 引述《aisidi (调配咖哩粉)》之铭言：
: 我想把两首诗词打乱
: 铺排成类似九宫格
: (九只是虚数，不一定是九，)
: 有没有程式or线上软件
: 可以直接帮忙铺排的
: 先谢大家的分享了^^
AutoHotkey 1.1版
朝辞白帝彩云间千里江陵一日还两岸猿声啼不住轻舟已过万重山渭城朝雨浥轻尘客舍青青
柳色新劝君更尽一杯酒西出阳关无故人
↑假设此为input.txt的内容 字与字之间不要有任何换行符或标点符号 纯一行文
=============================================================================
FileRead,iy,R:\input.txt ;输入档 实际路径自己改
iy:=RegExReplace(iy,"(.)","$1`n") ;拆分为一个字一行
Sort,iy,Random ;随机排序
iy:=RegExReplace(iy,"`n") ;合并成一行
iy:=RegExReplace(iy,"(.{9})","$1`n") ;拆分为九个字一行 要八个字一行就把9改为8
FileAppend,%iy%`n`n,R:\output.txt,UTF-8 ;输出档 UTF-8编码 实际路径自己改
=============================================================================
output.txt↓
帝住万浥人朝猿故辞
云重阳江轻酒过白岸
更西日劝柳关陵尽已
出间舟山轻尘啼色君
声一无杯新渭朝城彩
一不青两还里舍千青
雨客
安捏?
直接贴上字串，输出到剪贴簿版本
=============================================================================
InputBox iy,请输入欲排序字串,字串里不要有标点符号`n`n未输入或取消→结束程式
if StrLen(iy)=0 or ErrorLevel
ExitApp
nz:
InputBox mv,请输入欲拆分几个字为一行,请输入1-99的数字`n`nCancel→结束程式
if ErrorLevel
ExitApp
if (mv<1) or (mv>99)
Goto nz
iy:=RegExReplace(iy,"(.)","$1`n") ;拆分为一个字一行
Sort,iy,Random ;随机排序
iy:=RegExReplace(iy,"`n") ;合并成一行
iy:=RegExReplace(iy,"(.{" mv "})","$1`n") ;拆分N个字为一行(使用者输入值)
MsgBox 1,,% "排序后↓`n`n" iy "`n`n(复制到剪贴簿?`n确定→复制，取消→不复制)"
IfMsgBox OK
Clipboard:=iy
ExitApp
=============================================================================