vb點(diǎn)虐 2008 如何把數(shù)據(jù)庫(kù)里的二進(jìn)制文件 保存為磁盤(pán)文件

先把二進(jìn)制的數(shù)據(jù)取出，然后再把取出來(lái)的值序列化，存到本地硬盤(pán)中。

創(chuàng)新互聯(lián)是專(zhuān)業(yè)的蘆山網(wǎng)站建設(shè)公司，蘆山接單;提供成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行蘆山網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

VB.NET 如何反序列化通過(guò)百度翻譯API獲得的JSON字符串 高分求救??！

這個(gè)跟反序列化毫無(wú)關(guān)系。

分隔字符串就用 Split()，沒(méi)什么難度。

VB.NET 自定義一個(gè)文件類(lèi)型，比如 "XX.abc" 里面存儲(chǔ)文本，且只能自己可以打開(kāi)，如何實(shí)現(xiàn)？

Function ByteToBin(m As Byte) As String ' 將字節(jié)型數(shù)據(jù)轉(zhuǎn)換成八位二進(jì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 ' 將八位二進(jìn)制字符串顛倒順序

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 ' 將八位二進(jìn)制串轉(zhuǎn)換成十進(jì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("請(qǐng)輸入要加密的文件名！注意加上路徑名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

Open fname For Binary As #1 ' 以二進(jìn)制訪問(wèn)模式打開(kāi)待加密文件

For i = 1 To LOF(1) ' LOF函數(shù)是求文件長(zhǎng)度的內(nèi)部函數(shù)

Get #1, i, x ' 取出第i個(gè)字節(jié)

x = BinToByte(Reverse(ByteToBin(x))) ' 這里調(diào)用了三個(gè)自定義函數(shù)

Put #1, i, x ' 將加密后的這個(gè)字節(jié)寫(xiě)回到文件原位置

Next i

Close

MsgBox "完成！"

End Sub

退出：Unload Me

網(wǎng)上幫你找的，如果不符合你的要求，你可以再去網(wǎng)上在搜搜，有很多代碼的。

為什么vb/c#點(diǎn)虐 里面winform,窗體不能序列化？

因?yàn)樗麤](méi)有從serialable繼承。

任何東西都可以序列化，沒(méi)什么保護(hù)或者技術(shù)困難的問(wèn)題。