找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › au3怎样把2进制转换成16进制（已解决）
12下一页
返回列表 发新帖
查看: 6614|回复: 19

[AU3基础] au3怎样把2进制转换成16进制（已解决）

 火.. [复制链接]
fuldho
发表于 2016-2-24 20:40:06 | 显示全部楼层 |阅读模式
本帖最后由 fuldho 于 2016-2-26 10:41 编辑

如：111=7
        111111111111111111111=1FFFFF
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
lpxx
发表于 2016-2-24 22:43:12 | 显示全部楼层
是这样么？

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

lpxx
发表于 2016-2-24 22:45:11 | 显示全部楼层
本帖最后由 lpxx 于 2016-2-24 22:48 编辑

我自己收集整理的，非原创。原作者是德国au3牛人UZE，原版找不到了。

;#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

$Form1 = GUICreate("进制转换器", 489, 599, 195, 135)
$Group1 = GUICtrlCreateGroup("转换器/ASCII码/十进制/十六进制", 5, 5, 473, 425)
$Edit1 = GUICtrlCreateEdit("", 16, 25, 449, 89)
GUICtrlSetData(-1, "在这里你输入需要转换的字符")
$Btn1 = GUICtrlCreateButton("转换", 16, 209, 300, 50, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 0, "Comic Sans MS")
$Btn3E = GUICtrlCreateButton("删除", 320, 209, 149, 50, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 0, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 16, 268, 449, 89)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("Ascii", 21, 121, 47, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$ASCii1 = GUICtrlCreateRadio("十进制", 21, 145, 100, 17)
GUICtrlSetState($ASCii1, $GUI_CHECKED)
$ASCii2 = GUICtrlCreateRadio("十六进制", 21, 166, 100, 17)
$ASCii3 = GUICtrlCreateRadio("二进制", 21, 187, 100, 17)
$Label2 = GUICtrlCreateLabel("十进制", 125, 121, 75, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Dec1 = GUICtrlCreateRadio("ASCII码", 125, 145, 100, 17)
$Dec2 = GUICtrlCreateRadio("十六进制", 125, 166, 100, 17)
$Dec3 = GUICtrlCreateRadio("二进制", 125, 187, 100, 17)
$Label3 = GUICtrlCreateLabel("十六进制", 230, 121, 120, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Hexa1 = GUICtrlCreateRadio("ASCII码", 230, 145, 100, 17)
$Hexa2 = GUICtrlCreateRadio("十进制", 230, 166, 100, 17)
$Hexa3 = GUICtrlCreateRadio("二进制", 230, 187, 100, 17)
$Label4 = GUICtrlCreateLabel("二进制", 360, 119, 67, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Bin1 = GUICtrlCreateRadio("ASCII码", 360, 145, 100, 17)
$Bin2 = GUICtrlCreateRadio("十进制", 360, 166, 100, 17)
$Bin3 = GUICtrlCreateRadio("十六进制", 360, 187, 100, 17)
$Btn2 = GUICtrlCreateButton("复制", 16, 367, 449, 50, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 0, "Comic Sans MS")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Edit3 = GUICtrlCreateEdit("", 5, 440, 473, 145)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)

ConsoleWrite(" ____                __                              __                        " & @LF)
ConsoleWrite("/\  _`\             /\ \                            /\ \                       " & @LF)
ConsoleWrite("\ \ \L\ \  __  __   \ \ \        ___     ___     ___\ \ \/'\   __  __    ____  " & @LF)
ConsoleWrite(" \ \  _ <'/\ \/\ \   \ \ \  __  / __`\  / __`\  /'___\ \ , <  /\ \/\ \  /',__\ " & @LF)
ConsoleWrite("  \ \ \L\ \ \ \_\ \   \ \ \L\ \/\ \L\ \/\ \L\ \/\ \__/\ \ \\`\\ \ \_\ \/\__, `\" & @LF)
ConsoleWrite("   \ \____/\/`____ \   \ \____/\ \____/\ \____/\ \____\\ \_\ \_\/`____ \/\____/" & @LF)
ConsoleWrite("    \/___/  `/___/> \   \/___/  \/___/  \/___/  \/____/ \/_/\/_/`/___/> \/___/ " & @LF)
ConsoleWrite("               /\___/                                              /\___/      " & @LF)
ConsoleWrite("               \/__/                                               \/__/       " & @LF)
ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Btn1
                        _Btn1()
                Case $Btn2
                        _Btn2()
                Case $Btn3E
                        GUICtrlSetData($Edit1, "")

        EndSwitch
WEnd

Func _Btn1()
        If GUICtrlRead($ASCii1) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, "")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = " "
                                EndIf
                                $Tab2[$i] = AscW($Tab1[$i])
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        GUICtrlSetData($Edit2, $TabR2)
                        ConsoleWrite("消息: " & $Saisie & @LF & @LF & "ASCII十进制转换消息: " & $TabR2 & @LF)
                        ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                EndIf
        EndIf
        If GUICtrlRead($ASCii2) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, "")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = " "
                                EndIf
                                $Tab2[$i] = Hex(AscW($Tab1[$i]))
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        GUICtrlSetData($Edit2, $TabR2)
                        ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十六进制的ASCII码转换信息: " & $TabR2 & @LF)
                        ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                EndIf
        EndIf
        If GUICtrlRead($ASCii3) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, "")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = " "
                                EndIf
                                $Tab2[$i] = Dec2Bin(AscW($Tab1[$i]))
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        GUICtrlSetData($Edit2, $TabR2)
                        ConsoleWrite("信息: " & $Saisie & @LF & @LF & "二进制ASCII码的转换信息: " & $TabR2 & @LF)
                        ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                EndIf
        EndIf
        If GUICtrlRead($Dec1) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "32"
                                EndIf
                                $Tab2[$i] = ChrW($Tab1[$i])
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, "")
                        If Not StringRegExp($TabR1, '[^0123456789]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十进制ASCII的转换信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "十进制错误", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Dec2) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "32"
                                EndIf
                                $Tab2[$i] = Hex($Tab1[$i])
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        If Not StringRegExp($TabR1, '[^0123456789]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十六进制转换十进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "错误十进制", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Dec3) = 1 Then
                Global $Saisie
                $Saisie = GUICtrlRead($Edit1)
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "32"
                                EndIf
                                $Tab2[$i] = Dec2Bin($Tab1[$i])
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        If Not StringRegExp($TabR1, '[^0123456789]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十进制转换成二进制的信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "错误十进制", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Hexa1) = 1 Then
                Global $Saisie
                $Saisie = StringUpper(GUICtrlRead($Edit1))
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "20"
                                EndIf
                                $Tab2[$i] = ChrW(Dec($Tab1[$i]))
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, "")
                        If Not StringRegExp($TabR1, '[^0123456789ABCDEF]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "转换成十六进制ASCII信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "十六进制错误", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Hexa2) = 1 Then
                Global $Saisie
                $Saisie = StringUpper(GUICtrlRead($Edit1))
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "20"
                                EndIf
                                $Tab2[$i] = Dec($Tab1[$i])
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        If Not StringRegExp($TabR1, '[^0123456789ABCDEF]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十六进制转换十进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "十六进制错误", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Hexa3) = 1 Then
                Global $Saisie
                $Saisie = StringUpper(GUICtrlRead($Edit1))
                $Nbr = StringLen($Saisie)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        $Flag1 = StringSplit($Saisie, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        Dim $Tab2[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "20"
                                EndIf
                                $Tab2[$i] = Dec2Bin(Dec($Tab1[$i]))
                        Next
                        $TabR1 = _ArrayToString($Tab1, "")
                        $TabR2 = _ArrayToString($Tab2, " ")
                        If Not StringRegExp($TabR1, '[^0123456789ABCDEF]') Then
                                GUICtrlSetData($Edit2, $TabR2)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十六进制转换成二进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "错误十六进制", "输入必须包含" & @LF & "以下字符 : 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Bin1) = 1 Then
                Global $CodeBinaire = GUICtrlRead($Edit1)
                $Nbr = StringLen($CodeBinaire)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        Global $Bool = True
                        $Flag1 = StringSplit($CodeBinaire, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "100000"
                                EndIf
                        Next
                        Dim $TabF[$Flag3[1]]
                        For $a = 0 To $Flag3[1] - 1 Step 1
                                If Not StringRegExp($Tab1[$a], '[^01]') Then
                                        $Flag4 = StringSplit($Tab1[$a], "")
                                        $Nbr2 = StringLen($Tab1[$a])
                                        Global $V1 = 1
                                        Dim $Tab2[$Nbr2]
                                        $Tab2[0] = "1"
                                        For $i = 1 To $Nbr2 - 1 Step 1
                                                $V1 *= 2
                                                $Tab2[$i] = $V1
                                        Next
                                        $Rtab2 = _ArrayToString($Tab2)
                                        $V1 = 1
                                        Local $V2
                                        For $i = $Flag4[0] To 1 Step -1
                                                $V2 &= $Flag4[$i]
                                        Next
                                        $Flag5 = StringSplit($V2, "")
                                        $V2 = ""
                                        Global $V3
                                        Dim $Tab3[$Nbr2]
                                        For $i = 0 To $Nbr2 - 1 Step 1
                                                $Tab3[$i] = $Flag5[$i + 1]
                                                If ($Tab3[$i] = "1") Then
                                                        $V3 += $Tab2[$i]
                                                EndIf
                                        Next
                                        $ChrW = ChrW($V3)
                                        $TabF[$a] = $ChrW
                                        $V3 = ""
                                Else
                                        $Bool = False
                                EndIf
                        Next
                        If ($Bool = True) Then
                                $ResultatFinal = _ArrayToString($TabF, "")
                                GUICtrlSetData($Edit2, $ResultatFinal)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "转换成二进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "错误 二进制", "输入必须包含" & @LF & "以下字符 : 0,1")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Bin2) = 1 Then
                Global $CodeBinaire = GUICtrlRead($Edit1)
                $Nbr = StringLen($CodeBinaire)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        Global $Bool = True
                        $Flag1 = StringSplit($CodeBinaire, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "100000"
                                EndIf
                        Next
                        Dim $TabF[$Flag3[1]]
                        For $a = 0 To $Flag3[1] - 1 Step 1
                                If Not StringRegExp($Tab1[$a], '[^01]') Then
                                        $Flag4 = StringSplit($Tab1[$a], "")
                                        $Nbr2 = StringLen($Tab1[$a])
                                        Global $V1 = 1
                                        Dim $Tab2[$Nbr2]
                                        $Tab2[0] = "1"
                                        For $i = 1 To $Nbr2 - 1 Step 1
                                                $V1 *= 2
                                                $Tab2[$i] = $V1
                                        Next
                                        $Rtab2 = _ArrayToString($Tab2)
                                        $V1 = 1
                                        Local $V2
                                        For $i = $Flag4[0] To 1 Step -1
                                                $V2 &= $Flag4[$i]
                                        Next
                                        $Flag5 = StringSplit($V2, "")
                                        $V2 = ""
                                        Global $V3
                                        Dim $Tab3[$Nbr2]
                                        For $i = 0 To $Nbr2 - 1 Step 1
                                                $Tab3[$i] = $Flag5[$i + 1]
                                                If ($Tab3[$i] = "1") Then
                                                        $V3 += $Tab2[$i]
                                                EndIf
                                        Next
                                        $TabF[$a] = $V3 & " "
                                        $V3 = ""
                                Else
                                        $Bool = False
                                EndIf
                        Next
                        If ($Bool = True) Then
                                $ResultatFinal = _ArrayToString($TabF, "")
                                GUICtrlSetData($Edit2, $ResultatFinal)
                                ConsoleWrite("Message: " & $Saisie & @LF & @LF & "十进制转换二进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "二进制错误", "输入必须包含" & @LF & "以下字符 : 0,1")
                        EndIf
                EndIf
        EndIf
        If GUICtrlRead($Bin3) = 1 Then
                Global $CodeBinaire = GUICtrlRead($Edit1)
                $Nbr = StringLen($CodeBinaire)
                If ($Nbr <= 0) Then
                        MsgBox(48, "错误", "你没有输入任何字符")
                Else
                        Global $Bool = True
                        $Flag1 = StringSplit($CodeBinaire, " ")
                        $Flag2 = _ArrayToString($Flag1, " ")
                        $Flag3 = StringSplit($Flag2, " ")
                        Dim $Tab1[$Flag3[1]]
                        For $i = 0 To $Flag3[1] - 1 Step 1
                                $Tab1[$i] = $Flag1[$i + 1]
                                If ($Flag1[$i + 1] = "") Then
                                        $Tab1[$i] = "100000"
                                EndIf
                        Next
                        Dim $TabF[$Flag3[1]]
                        For $a = 0 To $Flag3[1] - 1 Step 1
                                If Not StringRegExp($Tab1[$a], '[^01]') Then
                                        $Flag4 = StringSplit($Tab1[$a], "")
                                        $Nbr2 = StringLen($Tab1[$a])
                                        Global $V1 = 1
                                        Dim $Tab2[$Nbr2]
                                        $Tab2[0] = "1"
                                        For $i = 1 To $Nbr2 - 1 Step 1
                                                $V1 *= 2
                                                $Tab2[$i] = $V1
                                        Next
                                        $Rtab2 = _ArrayToString($Tab2)
                                        $V1 = 1
                                        Local $V2
                                        For $i = $Flag4[0] To 1 Step -1
                                                $V2 &= $Flag4[$i]
                                        Next
                                        $Flag5 = StringSplit($V2, "")
                                        $V2 = ""
                                        Global $V3
                                        Dim $Tab3[$Nbr2]
                                        For $i = 0 To $Nbr2 - 1 Step 1
                                                $Tab3[$i] = $Flag5[$i + 1]
                                                If ($Tab3[$i] = "1") Then
                                                        $V3 += $Tab2[$i]
                                                EndIf
                                        Next
                                        $hex = Hex("0x" & $V3)
                                        $TabF[$a] = $hex & " "
                                        $V3 = ""
                                Else
                                        $Bool = False
                                EndIf
                        Next
                        If ($Bool = True) Then
                                $ResultatFinal = _ArrayToString($TabF, "")
                                GUICtrlSetData($Edit2, $ResultatFinal)
                                ConsoleWrite("信息: " & $Saisie & @LF & @LF & "十六进制转换二进制信息: " & $TabR2 & @LF)
                                ConsoleWrite("-------------------------------------------------------------------------------" & @LF & @LF)
                        Else
                                MsgBox(48, "错误二进制", "输入必须包含" & @LF & "以下字符 : 0,1")
                        EndIf
                EndIf
        EndIf
EndFunc   ;==>_Btn1

Func _Btn2()
        GUICtrlSetData($Edit3, "数据 : " & GUICtrlRead($Edit2))
        ClipPut(GUICtrlRead($Edit2))
EndFunc   ;==>_Btn2

Func Dec2Bin($iNumber)
        Local $sRet = ""
        Do
                $sRet = BitAND($iNumber, 1) & $sRet
                $iNumber = BitShift($iNumber, 1)
        Until $iNumber = 0
        Return $sRet
EndFunc   ;==>Dec2Bin



本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

评分

参与人数 1金钱 +16 收起 理由
fuldho + 16 值得收藏

查看全部评分

回复

举报

afan
发表于 2016-2-24 23:58:12 | 显示全部楼层
本帖最后由 afan 于 2016-2-25 00:15 编辑 
Local $s0 =  '111'
Local $s1 =  '111111111111111111111'
Msgbox(0, _2To16($s0), _2To16($s1))

Func _2To16($sBN)
        If Not StringRegExp($sBN, '^[01]+$') Then Return SetError(1)
        $sBN = '000' & $sBN
        $sBN = StringTrimLeft($sBN, Mod(StringLen($sBN), 4))
        Local $aSN = StringRegExp($sBN, '....', 3)
        Local $sOut = '', $v, $i, $j
        For $i = 0 To UBound($aSN) - 1
                $v = StringMid($aSN[$i], 1, 1)
                For $j = 1 to 3
                        $v = $v * 2 + StringMid($aSN[$i], $j + 1, 1)
                Next
                $sOut &= StringMid('0123456789ABCDEF', $v + 1, 1)
        Next
        Return $sOut
EndFunc   ;==>_2To16

评分

参与人数 2金钱 +36 贡献 +2 收起 理由
fuldho + 16 谢谢
zldfsz + 20 + 2 +

查看全部评分

回复

举报

zldfsz
发表于 2016-2-25 09:14:02 | 显示全部楼层
回复 4# afan


    学习了
回复

举报

haijie1223
发表于 2016-2-25 11:31:43 | 显示全部楼层
回复 5# zldfsz


    好久不见
回复

举报

zldfsz
发表于 2016-2-25 13:09:26 | 显示全部楼层
回复 6# haijie1223

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

chamlien
发表于 2016-2-25 17:59:00 | 显示全部楼层
回帖收藏！！
回复

举报

h20040606
发表于 2016-2-26 05:43:12 | 显示全部楼层
afan的方法很不错，谢谢
回复

举报

zhaoyun
发表于 2016-2-26 09:20:52 | 显示全部楼层
学习下。。。。。。。。。。。
回复

举报

邪恶海盗
发表于 2016-2-26 09:40:04 | 显示全部楼层
回复 4# afan


    好像以前用过,挺好使...
回复

举报

chzj589
发表于 2016-2-26 10:04:12 | 显示全部楼层
回复 3# lpxx

谢谢分享！收藏了
回复

举报

afan
发表于 2016-2-26 10:24:38 | 显示全部楼层
回复 11# 邪恶海盗


    没有吧，这个是现写的。好像以前写过类似的十进制与其它进制间的转换，可能都查不多吧，所以眼熟而已 ^ ^
回复

举报

fuldho
 楼主| 发表于 2016-2-26 10:40:09 | 显示全部楼层
版主出马立即解决，看我的笨办法..
 For $h = 1 To $R Step 4
$he = StringMid($strExt1, $h, 4)
If $he = "0000" Then $hex = "0"
If $he = "0001" Then $hex = "1"
If $he = "0010" Then $hex = "2"
If $he = "0011" Then $hex = "3"
If $he = "0100" Then $hex = "4"
If $he = "0101" Then $hex = "5"
If $he = "0110" Then $hex = "6"
If $he = "0111" Then $hex = "7"
If $he = "1000" Then $hex = "8"
If $he = "1001" Then $hex = "9"
If $he = "1010" Then $hex = "A"
If $he = "1011" Then $hex = "B"
If $he = "1100" Then $hex = "C"
If $he = "1101" Then $hex = "D"
If $he = "1110" Then $hex = "E"
If $he = "1111" Then $hex = "F"
Next
回复 4# afan
回复

举报

afan
发表于 2016-2-26 11:09:30 | 显示全部楼层
回复 14# fuldho


    这个很直观 呵呵
不过，前面应该还需要先整理成4的倍数位，不然就全错了
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 11:34 , Processed in 0.078755 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表