Re: [請問] 有沒有類似九宮格亂碼器or程式

看板EZsoft (小軟體)作者esouxcon時間9月前 (2024/01/28 14:58)推噓3(3推 0噓 4→)

留言7則, 4人參與討論串2/3 (看更多)

※ 引述《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://www.ptt.cc/bbs/EZsoft/M.1706425098.A.893.html