项目中通过StreamReader/StreamWriter自定义后缀（.**）保存输入，以及简单的保护

不说别的，先上代码（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

通过上面三段代码，可以保存自己定义后缀名格式的文件，并通过代码获取该文件的内容。