Visual Basic

    Dim newPerson As String =
    "<MEMOS ID=""" + TextBox1.Text + """>" & Environment.NewLine & " " &
    "<DATE>" + TextBox1.Text + "</DATE>" & Environment.NewLine & " " &
    "<HOUR>" + ComboBox1.Text + "</HOUR>" & Environment.NewLine & " " &
    "<MINUTES>" + ComboBox2.Text + "</MINUTES>" & Environment.NewLine & " " &
    "<AMPM>" + ComboBox3.Text + "</AMPM>" & Environment.NewLine & " " &
   "<PLACE>" + TextBox2.Text + "</PLACE>" & Environment.NewLine & " " &
   "<NAME>" + TextBox3.Text + "</NAME>" & Environment.NewLine & "  " &
    "<PHONE>" + TextBox4.Text + "</PHONE>" & Environment.NewLine & "  " &
     "<EMAIL>" + TextBox5.Text + "</EMAIL>" & Environment.NewLine & "  " &
     "<HEADER>" + TextBox6.Text + "</HEADER>" & Environment.NewLine & "  " &
     "<MEMO>" + TextBox7.Text + "</MEMO>" & Environment.NewLine & "  " &
    "</MEMOS>"

    ' Load the XmlDocument.
    Dim xd As New XmlDocument()
    xd.Load(filePath)

    ' Create a new XmlDocumentFragment for our document.
    Dim docFrag As XmlDocumentFragment = xd.CreateDocumentFragment()
    ' The Xml for this fragment is our newPerson string.
    docFrag.InnerXml = newPerson
    ' Append the new person to the root element.
    Dim root As XmlNode = xd.DocumentElement
    root.AppendChild(docFrag)

    ' Save the Xml.
    xd.Save(filePath)
    MessageBox.Show("MEMO SAVED")

End If

Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes("Hello world"))

System.Text.Encoding.UTF8.GetString(Convert.FromBase64String("base64charshere"))

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Alienoiz wrote:

after the efforts i believe i got something..wanna try?

Alienoiz wrote:

it is simple but you need framework 4.5 and run it as admin case you run it from a private folder Smile |

Alienoiz wrote:

Thanks and Merry Xmas!

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Private Sub createNode(ByVal dat As String, ByVal hor As String, ByVal plc As String, ByVal hed As String, ByVal mem As String, ByVal writer As XmlTextWriter)
    Dim MEMOSAVE = TextBox5.Text
    writer.WriteStartElement(MEMOSAVE)
    writer.WriteStartElement("Date")
    writer.WriteString(dat)
    writer.WriteEndElement()
    writer.WriteStartElement("Hour")
    writer.WriteString(hor)
    writer.WriteEndElement()
    writer.WriteStartElement("Place")
    writer.WriteString(plc)
    writer.WriteEndElement()
    writer.WriteStartElement("Header")
    writer.WriteString(hed)
    writer.WriteEndElement()
    writer.WriteStartElement("MEMO")
    writer.WriteString(mem)
    writer.WriteEndElement()
    writer.WriteEndElement()
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, "MEMOS\Database.xml")
    Dim dat = TextBox1.Text
    Dim plc = TextBox2.Text
    Dim hed = TextBox3.Text
    Dim mem = TextBox4.Text
    Dim hor = ComboBox1.Text + " : " + ComboBox2.Text + " " + ComboBox3.Text
    Dim writer As New XmlTextWriter(filePath, System.Text.Encoding.UTF8)
    writer.WriteStartDocument(True)
    writer.Formatting = Formatting.Indented
    writer.Indentation = 2
    writer.WriteStartElement(TextBox5.Text)
    createNode(dat, hor, plc, hed, mem, writer)
    writer.WriteEndElement()
    writer.WriteEndDocument()
    writer.Close()
End Sub

Alienoiz wrote:

only writes one set of data

Private Sub createNode(ByVal dat As String, ByVal hor As String, ByVal plc As String, ByVal hed As String, ByVal mem As String, ByVal writer As XmlTextWriter)
      Dim MEMOSAVE = TextBox1.Text
      writer.WriteStartElement(MEMOSAVE)
      writer.WriteStartElement("Date")
      writer.WriteString(dat)
      writer.WriteEndElement()
      writer.WriteStartElement("Hour")
      writer.WriteString(hor)
      writer.WriteEndElement()
      writer.WriteStartElement("Place")
      writer.WriteString(plc)
      writer.WriteEndElement()
      writer.WriteStartElement("Header")
      writer.WriteString(hed)
      writer.WriteEndElement()
      writer.WriteStartElement("MEMO")
      writer.WriteString(mem)
      writer.WriteEndElement()
      writer.WriteEndElement()
  End Sub


  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      Dim folderPath As String = Directory.GetCurrentDirectory()
      Dim filePath As String = Path.Combine(folderPath, "MEMOS\Database.xml")
      Dim dat = TextBox1.Text
      Dim plc = TextBox2.Text
      Dim hed = TextBox3.Text
      Dim mem = TextBox4.Text
      Dim hor = ComboBox1.Text + " : " + ComboBox2.Text + " " + ComboBox3.Text
      Dim writer As New XmlTextWriter(filePath, System.Text.Encoding.UTF8)
      writer.WriteStartDocument(True)
      writer.Formatting = Formatting.Indented
      writer.Indentation = 2
      writer.WriteStartElement("MEMOSAVE")
      createNode(dat, hor, plc, hed, mem, writer)
      writer.WriteEndElement()
      writer.WriteEndDocument()
      writer.Close()
  End Sub


  Private Sub readNode(ByVal dat As String, ByVal hor As String, ByVal plc As String, ByVal hed As String, ByVal mem As String, ByVal reader As XmlTextReader)
      Dim MEMOSAVE = TextBox1.Text
      reader.ReadStartElement(MEMOSAVE)
      reader.ReadStartElement("Date")
      reader.ReadString()
      reader.ReadEndElement()
      reader.ReadStartElement("Hour")
      reader.ReadString()
      reader.ReadEndElement()
      reader.ReadStartElement("Place")
      reader.ReadString()
      reader.ReadEndElement()
      reader.ReadStartElement("Header")
      reader.ReadString()
      reader.ReadEndElement()
      reader.ReadStartElement("MEMO")
      reader.ReadString()
      reader.ReadEndElement()
      reader.ReadEndElement()
  End Sub
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim folderPath As String = Directory.GetCurrentDirectory()
      Dim filePath As String = Path.Combine(folderPath, "MEMOS\Database.xml")
      Dim reader As New XmlTextReader(filePath)
      reader.ReadStartElement("MEMOSAVE")
      readNode("Date", "Hour", "Place", "Header", "MEMO", reader)
      reader.ReadEndElement()
      reader.Close()
  End Sub

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<MEMOSAVE>
  <15/12/2016>
    <Date>15/12/2016</Date>
    <Hour>01 : 05 PM</Hour>
    <Place>USA</Place>
    <Header>Testing Memo</Header>
    <MEMO>Memorando test text!</MEMO>
  </15/12/2016>
</MEMOSAVE>