先把二進制的數(shù)據(jù)取出,然后再把取出來的值序列化,存到本地硬盤中。
成都創(chuàng)新互聯(lián)公司是專業(yè)的遼源網(wǎng)站建設(shè)公司,遼源接單;提供成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務;采用PHP框架,可快速的進行遼源網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
由于你要求的是能夠動態(tài)的加載與卸載,所以這里選用了appdomain的load方法來加載一個程序集(同樣的,卸載的時候調(diào)用appdomain的靜態(tài)方法Unload即可).
另外由于,在appdomain.load的時候remoting會試圖將程序集序列化到defaultdomain中去,這會產(chǎn)生問題,通常以一個"FileNotFoundException"結(jié)束,因此采用了一種折中的辦法.
思路如下:
1.建立一個新的程序集,里面包含一個輕量的類型,這個類型只包含一個用來加載程序集的公共方法;
2.在你的主程序里面,用appdomain.load來加載上一步的程序集,接著實例化上一步的輕量的類型;
3.而后就可以像操作通常的對象一樣,調(diào)用它上面的方法來加載你想要的程序集了;
源代碼已經(jīng)打包發(fā)給你了,
你看看吧~
如果有問題,再找我哈
Function ByteToBin(m As Byte) As String ' 將字節(jié)型數(shù)據(jù)轉(zhuǎn)換成八位二進制字符串
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 ' 將八位二進制串轉(zhuǎn)換成十進制
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函數(shù)是求文件長度的內(nèi)部函數(shù)
Get #1, i, x ' 取出第i個字節(jié)
x = BinToByte(Reverse(ByteToBin(x))) ' 這里調(diào)用了三個自定義函數(shù)
Put #1, i, x ' 將加密后的這個字節(jié)寫回到文件原位置
Next i
Close
MsgBox "完成!"
End Sub
退出:Unload Me
網(wǎng)上幫你找的,如果不符合你的要求,你可以再去網(wǎng)上在搜搜,有很多代碼的。
這個跟反序列化毫無關(guān)系。分隔字符串就用 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繼承。
任何東西都可以序列化,沒什么保護或者技術(shù)困難的問題。
當前文章:vb.net序列化,VBNET的編程機制
網(wǎng)頁網(wǎng)址:http://www.rwnh.cn/article8/dsiggop.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設(shè)、微信公眾號、網(wǎng)站建設(shè)、面包屑導航、域名注冊、用戶體驗
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)