不说别的,先上代码(VB.NET)
创建.ABC格式的文件,并写入内容
采用的是UTF8的编码方式,因为考虑有可能保存中文字符
Dim FileStr As String = "MLD-" & Trim(iDN) & ".ABC" ' 保存文件名称
Dim FS As New System.IO.FileStream(FileStr, FileMode.Create)
Dim Bw As New System.IO.StreamWriter(FS, System.Text.Encoding.UTF8)
s1 = input ' s1是输入缓冲区,input是即将输入的内容
s1 = ProtectStr(s1, False) ' 简单的保护,直接打开文件,显示的是乱码
Bw.Write(s1)
Bw.Close()
FS.Close()
将.ABC格式的文件打开,并读取内容
Dim FS As New System.IO.FileStream(FileStr, FileMode.Open)
Dim Br As New System.IO.StreamReader(FS, System.Text.Encoding.UTF8)
Dim s1 As String : s1 = ""
s1 = Br.ReadToEnd().ToString
s1 = ProtectStr(s1, True)
简单的保护处理函数
思路很简单:存储之前字符对应的Ascii+3,读取时记得-3就可以了,当然,其它的方法也可以,这里只是很简单的一种方式
Public Function ProtectStr(ByVal strInput As String, ByVal bCho As Boolean) As String
Dim i1 As Integer
ProtectStr= ""
For i1 = 1 To Len(strInput)
If bCho = False Then
ProtectStr= ProtectStr& Chr(Asc(Mid(strInput, i1, 1)) + 3)
Else
ProtectStr= ProtectStr& Chr(Asc(Mid(str1, i1, 1)) - 3)
End If
Next
End Function
通过上面三段代码,可以保存自己定义后缀名格式的文件,并通过代码获取该文件的内容。