
正文
VB.NET序列化文件 vbnet format
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET 如何反序列化通过百度翻译API获得的JSON字符串 高分求救!!
这个跟反序列化毫无关系。
分隔字符串就用 Split(),没什么难度。
相关问答
Q1: 为什么vb/c#.net里面winform,窗体不能序列化?
因为他没有从serialable继承。
任何东西都可以序列化,没什么保护或者技术困难的问题。
Q2: vb.net 2008 如何把数据库里的二进制文件 保存为磁盘文件
先把二进制VB.NET序列化文件的数据取出VB.NET序列化文件,然后再把取出来的值序列化,存到本地硬盘中。
Q3: 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.NET序列化文件的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet format、VB.NET序列化文件的信息别忘了在本站进行查找喔。







