输入字符串，自动保存为竖排文本，改自蜜獾哥竖排脚本

;;字符串竖向排版
VerticalString(ByRef String,Right=0,delimiter:=””,U=0,Rows=12){
    index:=1, result:=””,tarr:=[]
    If (!String)
        return []
    String:=RegExReplace(String,”(*BSR_ANYCRLF)\R|\t”)
    if U {
        While index:=RegExMatch(String, “O).”, match, index){
            if match.Value
                tarr.push(match.Value), index+=match.Len
        }
    }

    tarr:=StrSplit(String),Col:=Ceil(objCount(tarr)/Rows)
    Loop, % Rows
    {
        Index:=A_Index
        Loop, % Col
        {
            result.=tarr[(Right?Col-A_Index:A_Index-1)*Rows+Index]?tarr[(Right?Col-A_Index:A_Index-1)*Rows+Index] delimiter:A_Space A_Space A_Space delimiter
        }
        result:=Trim(result,delimiter) “`r`n”
    }
    String:=result,result:=””
    Clipboard:=String
    Return String
}

InputBox, chars, 竖排,,,, 100

MsgBox % VerticalString(chars,1,””,1)
FileAppend,%chars%,竖排.html                                    ;保存 

;;字符串反转
ReverseString(ByRef String) {
    String .= “”, DllCall(“msvcrt.dll\_wcsrev”, “Ptr”, &String, “CDecl”)
    return String
}