• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-字符转换工具

AutoIT3 奇跡の海 1年前 (2017-11-22) 417次浏览 已收录 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,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址