Visual Basic

Eddy Vluggen23-Dec-16 2:54

23-Dec-16 2:54

I'm not sure what you are seeing, but the assignment-code is not joining anything.

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 2:59

23-Dec-16 2:59

well i write:
"Hello

World"

and when i read it returns: "HelloWorld"

simple as that..i do not know what is wrong..after writting i check the .xml file and it is written:
"Hello

World"

i do not know why the text is joinning!!!

modified 7-Jan-19 21:02pm.

Eddy Vluggen23-Dec-16 3:01

23-Dec-16 3:01

That is an observation, and might happen due to other code. Like the way it is written.

textBox1.Text = "Hello";
textBox1.Text = "World";

Means the first value will be overwritten. There is no joining there.

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 3:09

23-Dec-16 3:09

ok leave it..thanks anyway

modified 7-Jan-19 21:02pm.

Eddy Vluggen23-Dec-16 3:18

23-Dec-16 3:18

..if you look at that text, you'll see it already has three lines of values before you read it. Are you using multi-line textboxes? If not, then only the first line will be displayed.

I'll bet that you are not overwriting those values on save, but appending them. That's where they get joined.

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 3:31

23-Dec-16 3:31

yes i am using mutiline textboxes..leave it..TY!

modified 7-Jan-19 21:02pm.

User 989707423-Dec-16 3:40

23-Dec-16 3:40

this is what i am using for writting:

    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

modified 7-Jan-19 21:02pm.

Eddy Vluggen23-Dec-16 4:17

23-Dec-16 4:17

I don't see anything.. aw, wait, did you mean by "join" that it is removing empty space from the string?

If yes, then that is the normal behaviour. Easiest solution is to encode the data, or wrap it in a CDATA structure.

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 4:26

23-Dec-16 4:26

yes..thats it removing the spaces in the string!!!

modified 7-Jan-19 21:02pm.

Eddy Vluggen23-Dec-16 4:33

23-Dec-16 4:33

Putting the values directly in the tag has its limits; imagine you put the value "<test" in="" there.<pre="" lang="cs">
<xml>
<mysetting><test</mysetting>
</xml>
As you can see, saving that string would cause the XML to be malformed. The easy solution to both problems is to encode your values in base64 (and decode them when reading).

To convert a value to base64;

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

To convert back to your value from base64;

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

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 4:52

23-Dec-16 4:52

ok..im understanding this code....thanks : )

modified 7-Jan-19 21:02pm.

Eddy Vluggen23-Dec-16 8:35

23-Dec-16 8:35

Good luck and enjoy your weekend Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707423-Dec-16 23:20

23-Dec-16 23:20

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

www.beatassist.eu/demos/StickyDo.zip

Thanks and Merry Xmas!

modified 7-Jan-19 21:02pm.

Eddy Vluggen24-Dec-16 2:55

24-Dec-16 2:55

Alienoiz wrote:
after the efforts i believe i got something..wanna try?

Nice

So, you got code and you can explain it. How about writing an article?

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 |

Without simple examples it would be very hard to learn. Also, most people will already have 4.5, so no problem there.

Alienoiz wrote:
Thanks and Merry Xmas!

Merry Christmas and a happy new year!

Bastard Programmer from Hell Suspicious | :suss:

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

User 989707412-Dec-16 7:33

12-Dec-16 7:33

... My idea is to separate the .ini keyname from the data it contains and use each other to a different ending!

i hope i am being clear enough.. since i am bothering you guys so much....

Thanks,
Duarte

modified 7-Jan-19 21:02pm.

Richard MacCutchan12-Dec-16 22:09

12-Dec-16 22:09

Like we have all been telling you: forget .INI files, they are outdated and not supported. Use something that fits with the language and framework as it is now. As Eddy has suggested XML is a much better choice and there is full support for it in the language and framework: vb.net XMLreader - Google Search[^].

User 989707412-Dec-16 23:59

12-Dec-16 23:59

ok i am up to it.. where can i get some snippets or tutorials to learn how to work with it?

Thank You!

modified 7-Jan-19 21:02pm.

Richard MacCutchan13-Dec-16 0:03

13-Dec-16 0:03

Follow the links I provided in my previous message.

User 989707413-Dec-16 0:14

13-Dec-16 0:14

ok thanks.. i will check them out!

modified 7-Jan-19 21:02pm.

User 989707413-Dec-16 1:51

13-Dec-16 1:51

i am not understanding how do i create more nodes??!!

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

it is writing but only writes one set of data!!!!

modified 7-Jan-19 21:02pm.

Richard MacCutchan13-Dec-16 5:50

13-Dec-16 5:50

Alienoiz wrote:
only writes one set of data

What is the result in your file?

User 989707413-Dec-16 6:13

13-Dec-16 6:13

ok i am using this code to write and read, but i am yet trying to figure out the part of reading...
it seems it does not reads the entries started with "0" and those that have "/"...

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

and this is my XML output when i write:

XML

<?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>

The fact is that i am not understanding how to create multiple nodes with different data!

i am trying to make a small agenda..and i would like that when i choose a date from the MonthCalendar i auto shows in a textbox the memos for that day!

Thanks
Duarte

modified 7-Jan-19 21:02pm.

Richard MacCutchan13-Dec-16 6:25

13-Dec-16 6:25

You create node called "15/12/2016" which is most likely the problem.

You really need to stop writing random code, and spend much more time studying the protocol and classes used to manage XML. You cannot learn programming just by posting questions here.

User 989707413-Dec-16 6:34