程序代码
'此代码可做加壳程序
Private Sub 文件转文本_Click() '文件转文本
    文件转文本.Enabled = False
    Dim 总字节 As Long
    Dim 二进制数组() As Byte
    Dim 当前数组位置 As Long
    '------------------------------------------------------------------获取文件大小
    Const sFile As String = "C:\A.jpg"
    总字节 = Val(FileLen(sFile))
    '------------------------------------------------------------------获取文件大小
    '------------------------------------------------------------------以二进制打开文件
    Open "C:\A.jpg" For Binary As #1
    ReDim 二进制数组(1 To 总字节)
    Get #1, , 二进制数组
    Close #1
    '------------------------------------------------------------------以二进制打开文件
    '------------------------------------------------------------------保存文本
    For 当前数组位置 = 1 To 总字节
        Me.Caption = "已完成：" & Int(当前数组位置 / 总字节 * 100) & "%"   '显示处理进程
        Open "C:\A.txt" For Append As #1
        Print #1, CStr(二进制数组(当前数组位置))
        Close #1
        DoEvents '防止卡死
    Next 当前数组位置
    MsgBox "文本生成完毕!", vbOKOnly, "提示"
    Me.Caption = "文件转文本"
    文件转文本.Enabled = True
    '------------------------------------------------------------------保存文本
End Sub
Private Sub 文本转文件_Click() '文本转文件
    文本转文件.Enabled = False
    Dim 二进制数组() As Byte
    Dim 文本变量 As String
    '------------------------------------------------------------------打开文本文档
    Open "C:\A.txt" For Binary As #1
    文本变量 = Input(LOF(1), 1)
    Close #1
    
    Dim a
    Dim i As Long
    a = Split(文本变量, vbCrLf)
    ReDim 二进制数组(LBound(a) To UBound(a))
    i = 0
1:
    If a(i) <> "" Then 二进制数组(i) = a(i)
    i = i + 1
    DoEvents '防止卡死
    Me.Caption = "已完成：" & Int(i / UBound(a) * 100) & "%"           '显示处理进程
    If i <> UBound(a) + 1 Then GoTo 1:
    '------------------------------------------------------------------打开文本文档
    '------------------------------------------------------------------保存文件
    Open "C:\B.jpg" For Binary As #3
    Put #3, , 二进制数组
    Close #3
    MsgBox "文件生成完毕!", vbOKOnly, "提示"
    Me.Caption = "文件转文本"
    文本转文件.Enabled = True
    Kill "C:\A.txt"
    '------------------------------------------------------------------保存文件
End Sub

希米日志

主页 代码 笔记 软件 闲谈
更多
虫洞 留言 友链 关于

留言板:

已有留言:

希米日志

主页 代码 笔记 软件 闲谈 更多 虫洞 留言 友链 关于

留言板:

已有留言:

主页代码笔记软件闲谈
更多
虫洞留言友链关于