作者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/m.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