• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-字符轉換工具

AutoIT3 奇跡の海 2年前 (2017-11-22) 695次瀏覽 已收錄 0個評論 掃描二維碼

代碼簡介

AutoIt3(au3)源碼-字符轉換工具
字符轉換工具,仿牛族字符轉換

AU3源碼

;沒有設置錯誤陷阱,仿牛族字符轉換.因為牛族老是被金山滅掉,所以就自己仿了個.功能簡單只是Ascii與char的互轉而已.
;#Region**** 參數創建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_OutFile=字符轉換.exe
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 參數創建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <array.au3>


#Region ### START Koda GUI section ### Form=d:\程\字符轉換\字符轉換.kxf
$Form1_1 = GUICreate("字符轉換", 623, 538, 192, 114, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_THICKFRAME))
$Edit1 = GUICtrlCreateEdit("", 8, 8, 601, 225);ID=3
;GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Ascii to Char ↓", 88, 248, 113, 41, $BS_MULTILINE);ID=4
$Edit2 = GUICtrlCreateEdit("", 8, 304, 601, 225);ID=5
;GUICtrlSetData(-1, "Edit2")
$Button2 = GUICtrlCreateButton("清空", 368, 248, 105, 41);ID=6
$Button4 = GUICtrlCreateButton("退出", 504, 248, 105, 41);ID=7
$Button3 = GUICtrlCreateButton("Char to Ascii ↑", 224, 248, 113, 41);ID=8
$Label1 = GUICtrlCreateLabel("分隔符:", 24, 248, 43, 17);ID=9
$Input1 = GUICtrlCreateInput("", 16, 264, 57, 21);ID=10 分隔符
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Button1;Ascii to Char
            
            $NumOfLine = "";存儲輸入的數據
            $string = "";輸出
            $splitflag = GUICtrlRead(10, 0)
            
            For $x = 0 To _GUICtrlEdit_GetLineCount(3) - 1
                $NumOfLine = _GUICtrlEdit_GetLine(3, $x)
                $array = StringSplit($NumOfLine, $splitflag, 1);此時$NumOfLine[0]=數組元素的總數,
                _ArrayDelete($array, 0);所以用_ArrayDelete函數將$NumOfLine[0]的值刪除
                _ArrayAdd($array, "13") ;為實現換行,添加一個換行符至$array數組末尾.
                
                For $a In $array
                    If $a <> "" Then
                        If $a <> "13" Then
                            $string = $string & Chr($a)
                        Else
                            $string = $string & @CRLF
                        EndIf
                    EndIf
                    GUICtrlSetData(5, $string)
                Next
            Next
            
        Case $Button2;清空
            GUICtrlSetData(3, "")
            GUICtrlSetData(5, "")
            GUICtrlSetData(10, "")
        Case $Button3;Char to Ascii
            
            $string = ""
            $NumOfLine = ""
            
            For $x = 0 To _GUICtrlEdit_GetLineCount(5)
                
                $NumOfLine = StringStripWS(StringStripCR(_GUICtrlEdit_GetLine(5, $x)), 8)
                
                For $a = 1 To StringLen($NumOfLine)
                    $string = $string & Asc(StringMid($NumOfLine, $a)) & " "
                Next
                $string = $string & @CRLF
                GUICtrlSetData(3, $string)
            Next
        Case $Button4;退出
            Exit
    EndSwitch
WEnd

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-字符轉換工具!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果