Re: INI - read multiline! - Visual Basic Discussion Boards

it is not working..i tried to "end using" before than every "end if" and it is not working in any place Frown | :(

modified 7-Jan-19 21:02pm.

The "end using" is placed usually after the last time (the last line of code) you actually need the object you're using. After the end-using the object is no longer valid. Depending on your code, that may be the last line of the method.

Alienoiz wrote:
and it is not working in any place

What does "not working" mean? I know you got a message from the compiler, but which one?

Bastard Programmer from Hell Suspicious | :suss:

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

this is my code..!

VB

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
        Dim xmlFile As XmlReader
   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!")
                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

in the lines :

VB

Dim xmlFile As XmlReader

and

VB

Using xmlFile = XmlReader.Create(filePath, New XmlReaderSettings())

the word "xmlFile" is underlined in green and red

modified 7-Jan-19 21:02pm.

Alienoiz wrote:
the word "xmlFile" is underlined in green and red

Red means "error", which you already said. Hover your mouse over it, and it will display a message. Alternatively, you look in the error-window.

It may be "Type is not defined". The one on "XmlFile" would say that it hides another variable. And yes, you already declared a variable with that name. What happens if you remove the first declaration?

Bastard Programmer from Hell Suspicious | :suss:

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

it happens that the using function works .. but still is in conflict with the saving :s
!!!

modified 7-Jan-19 21:02pm.

Alienoiz wrote:
it happens that the using function works .. but still is in conflict with the saving :s

In that case the file is locked by something else; is there a writer in another procedure? Are you viewing the file in an XML-editor while debugging? For example, if you open the XML file using Word, then Word will lock that file, causing an error if you try to read it.

Bastard Programmer from Hell Suspicious | :suss:

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

ok..i will dig harder..maybe another writer.. Smile | :)

modified 7-Jan-19 21:02pm.

My gadget is almost done .. i just have this small problem i cannot fix....when reading, the textbox does not shows multiline..it is joinning the text..but when writing, the paragraphs are written well!!
So if is good in the xml, the problem must be with the reading code...this is what i am using for read:

VB

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 Suspicious | :suss:

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 Suspicious | :suss:

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 Suspicious | :suss:

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 Suspicious | :suss:

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.

this is what i am using for writting:

VB

    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.

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[^]

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;

VB

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

To convert back to your value from base64;

VB

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[^]

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

modified 7-Jan-19 21:02pm.

Good luck and enjoy your weekend Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

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.

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[^]

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