以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，把exe文件转换为文本文件保存。那个帖子找不到了。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58603)
--  作者：黄花菜
--  发布时间：2014/10/20 17:03:00
--  求助，把exe文件转换为文本文件保存。那个帖子找不到了。

 

论坛里好像有个转换的帖子，居然找不到了。

 

就是把任何文件都可以转换成0-9/A-Z组成的文本文件保存的，帮忙找一下，或者提供FT算法。

[此贴子已经被作者于2014-10-20 17:03:01编辑过]
--  作者：有点甜
--  发布时间：2014/10/20 17:15:00
--  

 读取

 

Dim file As String = "d:\\test.xls"

Dim fs As System.IO.FileStream = New System.IO.FileStream(file, System.IO.FileMode.Open)
Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(fs)
Dim byTmp() As Byte = br.ReadBytes(fs.Length)
FileSys.WriteAllText("d:\\temp.txt", System.Text.Encoding.Unicode.GetString(byTmp), False)

br.Close()
fs.Close()
fs.Dispose()

 

 还原

 

Dim file As String = "d:\\temp.txt"

Dim byTmp() As Byte = System.Text.Encoding.Unicode.GetBytes(FileSys.ReadAllText(file))
My.Computer.FileSystem.WriteAllBytes("d:\\测试.xls", Bytmp, False)
--  作者：黄花菜
--  发布时间：2014/10/20 17:52:00
--  

谢谢甜版！

 

这个容易出现乱码，我还是使用回BASE64编码吧。