Visual Basic

Afzaal Ahmad Zeeshan wrote:

Can you show the response that it read, vs. the input that was given?

Sub readtext()
    Dim path As String = Directory.GetCurrentDirectory()
    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText(path + Form1.TextBox1.Text + ".txt")
    Form1.TextBox2.Text = fileReader
End Sub
Sub writetext()
    Dim objStreamWriter As StreamWriter
    Dim path As String = Directory.GetCurrentDirectory()
    objStreamWriter = New StreamWriter(path + Form1.TextBox1.Text + ".txt")
    objStreamWriter.WriteLine(Form2.TextBox2.Text)
    objStreamWriter.Close()

End Sub

Sub readtext()
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, Form1.TextBox1.Text + ".txt")
    If Not File.Exists(filePath) Then
        MessageBox.Show("File not found.")
        Return
    End If
    
    Try
        Dim fileContents As String = File.ReadAllText(filePath)
        Form1.TextBox2.Text = fileContents
    
    Catch ex As FileNotFoundException
        MessageBox.Show("File was deleted")
    
    Catch ex As IOException
        MessageBox.Show(ex.Message)
    End Try
End Sub

Sub writetext()
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, Form1.TextBox1.Text + ".txt")
    
    Using writer As StreamWriter = File.AppendText(filePath)
        writer.WriteLine(Form2.TextBox2.Text)
    End Using
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
     Dim folderPath As String = Directory.GetCurrentDirectory()
     Dim filePath As String = Path.Combine(folderPath + ("Data1.ini"))
     TextBox7.Text = File.ReadAllLines(filePath).FirstOrDefault(Function(x) x.Contains("11/12/2016"))
 End Sub

Dim filePath As String = Path.Combine(folderPath + ("Data1.ini"))

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, "TextFile1.txt") ' note, 2 arguments.
    TextBox1.Multiline = True
    TextBox1.Size = New Size(100, 100)
    TextBox1.Text = String.Join(Environment.NewLine, File.ReadAllLines(filePath).Where(Function(x) x.Contains("audio")))
End Sub

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

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 Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    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
        xmlFile = XmlReader.Create(filePath, New XmlReaderSettings())
        Dim ds As New DataSet
        Dim dv As DataView
        ds.ReadXml(xmlFile)
        dv = New DataView(ds.Tables(0))
        dv.Sort = "Date"
        Dim index As Integer = dv.Find(sav)

        If index = -1 Then
            MsgBox("Item Not Found")
        Else
            Label9.Text = (dv(index)("Date").ToString())
            Label10.Text = (dv(index)("Hour").ToString())
            Label11.Text = (dv(index)("Place").ToString())
            Label12.Text = (dv(index)("Header").ToString())
            TextBox4.Text = (dv(index)("MEMO").ToString())
        End If
        Return
    End If
End Sub

Alienoiz wrote:

The only problem is that is writing and reading only the first node.

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

Alienoiz wrote:

i believe i can do it with a few lines of code and is nothing really hard..but yes..

Imports System.IO
Imports System.Xml.Serialization

' defines how our stuff looks
Public Class MyMemoEntry
    Public CreatedOn As DateTime ' contains both date and time
    Public Location As String
    Public Header As String
    Public Memo As String
End Class

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' create a list to hold our stuff
        Dim Entries As New List(Of MyMemoEntry)

        ' create new stuff
        Dim newEntry As New MyMemoEntry
        newEntry.CreatedOn = DateTime.Now
        newEntry.Location = "Home, sweet home"
        newEntry.Header = "How to build a decent chicken-soup"
        newEntry.Memo = "Call Mom and say you want chicken-soup"

        ' add new stuff to list
        Entries.Add(newEntry)

        ' save list to XML; for that we need a serializer
        Dim serializer As New XmlSerializer(Entries.GetType(), "space")

        ' write it to a filestream using said serializer
        Using FileStream As New FileStream("output.xml", FileMode.Create)
            serializer.Serialize(FileStream, Entries)
        End Using

    End Sub

End Class

<?xml version="1.0"?>
<ArrayOfMyMemoEntry xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="space">
  <MyMemoEntry>
    <CreatedOn>2016-12-14T17:59:55.9937761+01:00</CreatedOn>
    <Location>Home, sweet home</Location>
    <Header>How to build a decent chicken-soup</Header>
    <Memo>Call Mom and say you want chicken-soup</Memo>
  </MyMemoEntry>
</ArrayOfMyMemoEntry>

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

<?xml version="1.0"?>
<ArrayOfMyMemoEntry xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="space">
  <MyMemoEntry>
    <CreatedOn>2016-12-14T17:59:55.9937761+01:00</CreatedOn>
    <Location>Home, sweet home</Location>
    <Header>How to build a decent chicken-soup</Header>
    <Memo>Call Mom and say you want chicken-soup</Memo>
  </MyMemoEntry>
  <MyMemoEntry1>
    <CreatedOn>2016-12-14T17:59:55.9937761+01:00</CreatedOn>
    <Location>Home</Location>
    <Header>chicken-soup</Header>
    <Memo>Call Mom</Memo>
  </MyMemoEntry1>
</ArrayOfMyMemoEntry>

' create new stuff
Dim newEntry As New MyMemoEntry
newEntry.CreatedOn = DateTime.Now
newEntry.Location = "Home, sweet home"
newEntry.Header = "How to build a decent chicken-soup"
newEntry.Memo = "Call Mom and say you want chicken-soup"

Dim notherEntry As New MyMemoEntry
notherEntry.CreatedOn = DateTime.Now
notherEntry.Location = "Home, sweet home"
notherEntry.Header = "How to build a decent noodle-soup"
notherEntry.Memo = "Call Mom and say you want noodle-soup"

Dim testEntry As New MyMemoEntry
testEntry.CreatedOn = DateTime.Now.AddDays(-2)
testEntry.Location = "The restaurant at the end of the Universe"
testEntry.Header = "Eat more soup"
testEntry.Memo = "I forgot the reason"

' add new stuff to list
Entries.Add(newEntry)
Entries.Add(notherEntry)
Entries.Add(testEntry)

<?xml version="1.0"?>
<ArrayOfMyMemoEntry xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="space">
  <MyMemoEntry>
    <CreatedOn>2016-12-14T18:54:25.0337545+01:00</CreatedOn>
    <Location>Home, sweet home</Location>
    <Header>How to build a decent chicken-soup</Header>
    <Memo>Call Mom and say you want chicken-soup</Memo>
  </MyMemoEntry>
  <MyMemoEntry>
    <CreatedOn>2016-12-14T18:54:25.0337545+01:00</CreatedOn>
    <Location>Home, sweet home</Location>
    <Header>How to build a decent noodle-soup</Header>
    <Memo>Call Mom and say you want noodle-soup</Memo>
  </MyMemoEntry>
  <MyMemoEntry>
    <CreatedOn>2016-12-12T18:54:25.0337545+01:00</CreatedOn>
    <Location>The restaurant at the end of the Universe</Location>
    <Header>Eat more soup</Header>
    <Memo>I forgot the reason</Memo>
  </MyMemoEntry>
</ArrayOfMyMemoEntry>

For Each item As MyMemoEntry In Entries _
    .Where(Function(ent As MyMemoEntry) As Boolean
               Return ent.CreatedOn.Date = DateTime.Today
           End Function)
    MessageBox.Show(item.Header)
Next

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

Dim newEntry As New MyMemoEntry
       newEntry.CreatedOn = DateTime.Now
       newEntry.Location = "Home, sweet home"
       newEntry.Header = "How to build a decent chicken-soup"
       newEntry.Memo = "Call Mom and say you want chicken-soup"

Dim notherEntry As New MyMemoEntry
       notherEntry.CreatedOn = DateTime.Now
       notherEntry.Location = "Home, sweet home"
       notherEntry.Header = "How to build a decent noodle-soup"
       notherEntry.Memo = "Call Mom and say you want noodle-soup"

Dim testEntry As New MyMemoEntry
      testEntry.CreatedOn = DateTime.Now.AddDays(-2)
      testEntry.Location = "The restaurant at the end of the Universe"
      testEntry.Header = "Eat more soup"
      testEntry.Memo = "I forgot the reason"

testEntry.Header = textBoxHeader.Text
testEntry.Memo = textBox163.Text

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

Dim testEntry As New MyMemoEntry