网站建设资讯

NEWS

网站建设资讯

VB.NET序列化文件 vbnet writeline

vb点虐 2008 如何把数据库里的二进制文件 保存为磁盘文件

先把二进制的数据取出,然后再把取出来的值序列化,存到本地硬盘中。

创新互联是专业的芦山网站建设公司,芦山接单;提供成都网站设计、成都做网站、外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行芦山网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

VB.NET 如何反序列化通过百度翻译API获得的JSON字符串 高分求救!!

这个跟反序列化毫无关系。

分隔字符串就用 Split(),没什么难度。

VB.NET 自定义一个文件类型,比如 "XX.abc" 里面存储文本,且只能自己可以打开,如何实现?

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

网上帮你找的,如果不符合你的要求,你可以再去网上在搜搜,有很多代码的。

为什么vb/c#点虐 里面winform,窗体不能序列化?

因为他没有从serialable继承。

任何东西都可以序列化,没什么保护或者技术困难的问题。


分享题目:VB.NET序列化文件 vbnet writeline
文章网址:http://cdweb.net/article/ddjpico.html