vb操作记事本的问题？

Question

设a = "61"
b = "62"
c = "63"
d = "64"
e = "65"
f = "66"
g = "67"
h = "68"
i = "69"
j = "6A"
k = "6B"
l = "6C"
m = "6D"
n = "6E"
o = "6F"
p = "70"
q = "71"
r = "72"
s = "73"
t = "74"
u = "75"
v = "76"
w = "77"
x = "78"
y = "79"
z = "7A"在c盘下有一个文本文件123.txt，如果记事本的内容是name= 73 63 78 78 那么就在text1中显示scxx，如果是其他的数字，就根据这个定义的显示相应的字母

Answer 1

首先将name= 73 63 78 78 这种字符串中需要处理的部分提出来，即73 63 78 78,然后将数字转换为字符,p是转换后的字符scxx.s = "73 63 78 78"
p = ""
For Each a In Split(s, " ")
    p = p + Chr(CInt("&h" + a))
Next

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    binary2ascii "d:\0.jpg", "d:\1.txt"
    ascii2binary "d:\1.txt", "d:\1.jpg"
End SubPrivate Function gethex(ByVal c As Byte) As String
    Dim s As String
    s = Trim(Hex$(c))
    If c < 16 Then
        s = "0" & s
    End If
    gethex = s
End Function
Private Function h2s(ByRef h() As Byte, ByVal start As Long, ByVal length As Long) As String
    Dim s As String
    Dim i As Long
    For i = start To start + length - 1
        s = s & gethex(h(i)) & " "
    Next i
    h2s = s
End FunctionPrivate Function binary2ascii(ByVal src As String, ByVal dest As String) As Boolean
    Dim len1 As Long
    Dim bin() As Byte
    len1 = FileLen(src)
    ReDim bin(0 To len1 - 1) As Byte
    Open src For Binary As #1
        Get #1, , bin
    Close #1
    Dim s As String
    
    Dim i As Long
    Open dest For Output As #1
        For i = 0 To len1 - 1 Step 16
            If len1 - 1 - i > 16 Then
                s = h2s(bin, i, 16)
            Else
                s = h2s(bin, i, len1 - i)
            End If
            Print #1, s
        Next i
    Close #1
    
    binary2ascii = True
End FunctionPrivate Function parse(ByVal s As String, ByRef bin() As Byte, ByVal offset As Long) As Long
    s = Replace(s, " ", "")
    Dim i As Long
    Dim l As Long
    For i = 1 To Len(s) Step 2
        bin(offset + l) = Val("&h" & Mid(s, i, 2))
        l = l + 1
    Next i
    parse = l
End Function
Private Function ascii2binary(ByVal src As String, ByVal dest As String) As Boolean
    Dim s As String
    Dim len1 As Long
    Dim parselen As Long
    Dim bin(0 To 15) As Byte
    Dim i As Long
    
    Open dest For Binary As #2
    Close #2
    Kill dest
    
    Open src For Input As #1
    Open dest For Binary As #2
    Do
        Line Input #1, s
        len1 = parse(s, bin, 0)
        If 16 = len1 Then
            Put #2, , bin
        Else
            For i = 0 To len1 - 1
                Put #2, , bin(i)
            Next i
        End If
    Loop While Not EOF(1)
    Close #2
    Close #1
    ascii2binary = True
End Function

Answer 3

Private Sub Command1_Click()
  Dim str1 As String, strt As String
  Dim strs() As String
  Dim i As Long
  Open "e:\123.txt" For Input As #1
  Line Input #1, str1
  strs = Split(str1)
  For i = 1 To UBound(strs)
    strt = strt & Chr$(Val("&H" & strs(i)))
  Next
  Text1 = strt
  Close #1
End Sub

Answer 4

那說明你給的123.txt 并不完全是 name= 73 63 78 78 格式
或許包含了其他內容或者 name前面包含空格之類的情況

Answer 5

就是说本来是由73 63 78 78转成scxx，我现在想反过来转换一下，由scxx转换成73 63 78 78