|
So if is good in the xml, the problem must be with the reading code...this is what i am using for read:
Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
TextBox1.Text = MonthCalendar1.SelectionRange.Start.ToShortDateString()
Dim folderPath As String = Directory.GetCurrentDirectory()
Dim filePath As String = Path.Combine(folderPath, "MEMOS\Database.xml")
If Not File.Exists(filePath) Then
MessageBox.Show("DataBase not found!")
Else
Dim sav = TextBox1.Text
Using xmlFile = XmlReader.Create(filePath, New XmlReaderSettings())
Dim ds As New DataSet
Dim dv As DataView
ds.ReadXml(xmlFile)
Dim dset = ds.Tables.Count
If dset = 1 Then
dv = New DataView(ds.Tables(0))
dv.Sort = "Date"
Dim index As Integer = dv.Find(sav)
If index = -1 Then
MsgBox("Nothing set for this date!")
ComboBox1.Text = "01"
ComboBox2.Text = "00"
ComboBox3.Text = "AM"
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
Else
ComboBox1.Text = (dv(index)("HOUR").ToString())
ComboBox2.Text = (dv(index)("MINUTES").ToString())
ComboBox3.Text = (dv(index)("AMPM").ToString())
TextBox1.Text = (dv(index)("DATE").ToString())
TextBox2.Text = (dv(index)("PLACE").ToString())
TextBox3.Text = (dv(index)("NAME").ToString())
TextBox4.Text = (dv(index)("PHONE").ToString())
TextBox5.Text = (dv(index)("EMAIL").ToString())
TextBox6.Text = (dv(index)("HEADER").ToString())
TextBox7.Text = (dv(index)("MEMO").ToString())
End If
Return
Else
MessageBox.Show("No MEMOS in DataBase!")
End If
End Using
End If
End Sub
any ideas?!!
TY!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
The code you have shown does not join any texts; on reading the contents of a textbox are replaced.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
yes they are supposed to be replaced...but is joinning the xml text!!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
I'm not sure what you are seeing, but the assignment-code is not joining anything.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
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.
|
|
|
|
|
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 
If you can't read my code, try converting it here[^]
|
|
|
|
|
ok leave it..thanks anyway
modified 7-Jan-19 21:02pm.
|
|
|
|
|
..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
If you can't read my code, try converting it here[^]
|
|
|
|
|
yes i am using mutiline textboxes..leave it..TY!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
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>"
Dim xd As New XmlDocument()
xd.Load(filePath)
Dim docFrag As XmlDocumentFragment = xd.CreateDocumentFragment()
docFrag.InnerXml = newPerson
Dim root As XmlNode = xd.DocumentElement
root.AppendChild(docFrag)
xd.Save(filePath)
MessageBox.Show("MEMO SAVED")
End If
modified 7-Jan-19 21:02pm.
|
|
|
|
|
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
If you can't read my code, try converting it here[^]
|
|
|
|
|
yes..thats it removing the spaces in the string!!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
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
If you can't read my code, try converting it here[^]
|
|
|
|
|
ok..im understanding this code....thanks : )
modified 7-Jan-19 21:02pm.
|
|
|
|
|
Good luck and enjoy your weekend 
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?
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
If you can't read my code, try converting it here[^]
|
|
|
|
|
... 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.
|
|
|
|
|
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[^].
|
|
|
|
|
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.
|
|
|
|
|
Follow the links I provided in my previous message.
|
|
|
|
|
ok thanks.. i will check them out!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
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.
|
|
|
|
|
Alienoiz wrote: only writes one set of data
What is the result in your file?
|
|
|
|
|
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:
="1.0"="utf-8"="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.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
