先把二進制的數據取出,然后再把取出來的值序列化,存到本地硬盤中。
成都創新互聯公司是專業的遼源網站建設公司,遼源接單;提供成都網站制作、成都做網站、外貿營銷網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行遼源網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!
由于你要求的是能夠動態的加載與卸載,所以這里選用了appdomain的load方法來加載一個程序集(同樣的,卸載的時候調用appdomain的靜態方法Unload即可).
另外由于,在appdomain.load的時候remoting會試圖將程序集序列化到defaultdomain中去,這會產生問題,通常以一個"FileNotFoundException"結束,因此采用了一種折中的辦法.
思路如下:
1.建立一個新的程序集,里面包含一個輕量的類型,這個類型只包含一個用來加載程序集的公共方法;
2.在你的主程序里面,用appdomain.load來加載上一步的程序集,接著實例化上一步的輕量的類型;
3.而后就可以像操作通常的對象一樣,調用它上面的方法來加載你想要的程序集了;
源代碼已經打包發給你了,
你看看吧~
如果有問題,再找我哈
Function ByteToBin(m As Byte) As String ' 將字節型數據轉換成八位二進制字符串
Dim c$
c$ = ""
Do While m 0
r = m Mod 2
m = m \ 2
c$ = r c$
Loop
c$ = Right("00000000" c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 將八位二進制字符串顛倒順序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 將八位二進制串轉換成十進制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("請輸入要加密的文件名!注意加上路徑名:")
If Dir(fname) = "" Then
MsgBox "文件不存在!"
Exit Sub
End If
Open fname For Binary As #1 ' 以二進制訪問模式打開待加密文件
For i = 1 To LOF(1) ' LOF函數是求文件長度的內部函數
Get #1, i, x ' 取出第i個字節
x = BinToByte(Reverse(ByteToBin(x))) ' 這里調用了三個自定義函數
Put #1, i, x ' 將加密后的這個字節寫回到文件原位置
Next i
Close
MsgBox "完成!"
End Sub
退出:Unload Me
網上幫你找的,如果不符合你的要求,你可以再去網上在搜搜,有很多代碼的。
這個跟反序列化毫無關系。分隔字符串就用 Split(),沒什么難度。
Module Module1
Sub Main()
Dim MYAAA As New AAA
MYAAA.A1 = "BAIGEZY"
MYAAA.A2 = "ASDFASDF"
MYAAA.A3 = "EMC"
Dim serialize As XmlSerializer = New XmlSerializer(GetType(AAA))
serialize.Serialize(Console.Out, MYAAA)
Console.ReadLine()
End Sub
End Module
'類不要套在Module中
Public Class AAA
Public A1 As String
Public A2 As String
Public A3 As String
Public Sub New()
End Sub
End Class
因為他沒有從serialable繼承。
任何東西都可以序列化,沒什么保護或者技術困難的問題。
當前文章:vb.net序列化,VBNET的編程機制
網頁網址:http://vcdvsql.cn/article8/dsiggop.html
成都網站建設公司_創新互聯,為您提供品牌網站建設、微信公眾號、網站建設、面包屑導航、域名注冊、用戶體驗
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯