作者esouxcon ()
看板EZsoft
标题Re: [请问] 有没有类似九宫格乱码器or程式
时间Sun Jan 28 14:58:12 2024
※ 引述《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
=============================================================================
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.224.151.64 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/EZsoft/M.1706425098.A.893.html
1F：推 Jochum: 好强阿。 01/28 15:08
※ 编辑: esouxcon (61.224.151.64 台湾), 01/28/2024 15:41:25
2F：推 aisidi: 好强阿~ 谢谢大大帮忙 这对我来说有点难度 01/29 13:09
3F：→ aisidi: 後来 有版友建议 直接使用 文字顺序打乱器 然後自己手动断 01/29 13:10
4F：→ aisidi: 行 铺排变成宫格态样 01/29 13:10
5F：→ aisidi: 小小红包 请笑纳 01/29 13:10
6F：→ esouxcon: 可惜没帮到你 红包有收到 ^^ 01/29 22:23
※ 编辑: esouxcon (61.224.144.152 台湾), 02/08/2024 18:14:06
7F：推 tinyfan: 这篇好强，看不懂只能给推QQ 03/22 09:11