'Save >>Dim lcXml As String = "<Test>Hello</Test>" >>Dim writer As New System.IO.StreamWriter("c:\Save") >>writer.Write(Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml))) >>writer.Close() >> >>'Restore >>Dim reader As New System.IO.StreamReader("c:\Save") >>Dim lcXmlback As String = System.Text.Encoding.Default.GetString(Convert.FromBase64String(reader.ReadToEnd())) >>reader.Close()>
> ' Convert to Base64 > Public Function ConvertToBase64() As Boolean > Dim lcXml As String = "" > Dim llSuccess As Boolean = False > Dim loStreamReader As System.IO.StreamReader = Nothing > > Try > loStreamReader = New System.IO.StreamReader(cFile) > > lcXml = loStreamReader.ReadToEnd() > > loStreamReader.Close() > > cXML = Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml)) > > llSuccess = True > Catch loError As Exception > cError = loError.Message > End Try > > Return llSuccess > End Function > > ' Convert from Base64 > Public Function ConvertFromBase64() As Boolean > Dim lcXml As String = "" > Dim llSuccess As Boolean = False > Dim loStreamWriter As System.IO.StreamWriter = Nothing > > Try > loStreamWriter = New System.IO.StreamWriter(cFile) > > loStreamWriter.Write(System.Text.Encoding.Default.GetString(Convert.FromBase64String(cXML))) > > loStreamWriter.Close() > > llSuccess = True > Catch loError As Exception > cError = loError.Message > End Try > > Return llSuccess > End Function >>