Visual Basic 2012 - File "log.log" to ListBox (multiple lines) Help

[corei7]

Hi! I got a little problem:

I made an application in Visual Studio 2012 and I need the application to read a "log.log" file and write the content of the file in a ListBox. I've made that using this code:

var = My.Computer.FileSystem.ReadAllText(TextBox15.Text & "\logs\log.log")

As you can see, the content of the file "log.log" is written in a variable called "var", thats okay but after that, I need the application to write the content of "var" in a LISTBOX in MULTIPLE ITEMS. The file "log.log" has multiple lines but when I write the content of the "log.log" in the Listbox, it just creates 1 item with all the content.

What I need is something that detects the different lines of the "log.log" content and write each line in a different item of the listbox.

NOTE: When I open the "log.log" file with the Windows txt editor, it displays all the content in 1 line too. If I open the "log.log" file with a program such as Notepad ++ (Code editor that supports many formats) its shows correctly, in different lines.

NOTE2: Each line of the "log.log" has 2 initial characters "ch". That may help detecting the lines and separate them.

Help please? Thanks so much.

[IanRyder]

Hi,

The trick here is to read the file line by line or split the complete text into different lines using the Carriage Return / Line Feed character. Here is one example for you:-

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  Using myReader As New StreamReader("d:\temp\MyFileText.txt")
    Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))
    ListBox1.Items.AddRange(myVar)
  End Using
End Sub

Hope that helps.

Cheers,

Ian

If the above does not work with your file then you may need to expand on this comment a bit more:-

NOTE2: Each line of the "log.log" has 2 initial characters "ch". That may help detecting the lines and separate them.

[corei7]

Hi,

The trick here is to read the file line by line or split the complete text into different lines using the Carriage Return / Line Feed character. Here is one example for you:-

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  Using myReader As New StreamReader("d:\temp\MyFileText.txt")
    Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))
    ListBox1.Items.AddRange(myVar)
  End Using
End Sub

Hope that helps.

Cheers,

Ian

If the above does not work with your file then you may need to expand on this comment a bit more:-

Hi, thanks for answering. There is an error: The type "StreamReader" is not defined.

Here is the full class:

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

        'BUSCAR CARPETA CON NOMBRE VARIABLE DENTRO DE LA RUTA DE LA CARPETA PHPFREECHAT DEFINIDA EN "INICIO", CARPETA DEL LOG
        For Each carpetaencontrada As String In My.Computer.FileSystem.GetDirectories _
        (TextBox4.Text & "\data\private\logs")
            TextBox15.Text = carpetaencontrada
        Next

        'LEER CONTENIDO DE FICHERO Y BUSCAR FICHERO DE LOG
        Dim var As String
        var = My.Computer.FileSystem.ReadAllText(TextBox15.Text & "\logs\log.log")

        Using myReader As New StreamReader(TextBox15.Text & "\logs\log.log")
            Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))
            ListBox1.Items.AddRange(myVar)
        End Using

    End Sub
End Class

[corei7]

Hi,

The trick here is to read the file line by line or split the complete text into different lines using the Carriage Return / Line Feed character. Here is one example for you:-

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  Using myReader As New StreamReader("d:\temp\MyFileText.txt")
    Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))
    ListBox1.Items.AddRange(myVar)
  End Using
End Sub

Hope that helps.

Cheers,

Ian

If the above does not work with your file then you may need to expand on this comment a bit more:-

Hi, thanks for answering. There is an error: The type "StreamReader" is not defined.

Here is the full class:

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

        'BUSCAR CARPETA CON NOMBRE VARIABLE DENTRO DE LA RUTA DE LA CARPETA PHPFREECHAT DEFINIDA EN "INICIO", CARPETA DEL LOG
        For Each carpetaencontrada As String In My.Computer.FileSystem.GetDirectories _
        (TextBox4.Text & "\data\private\logs")
            TextBox15.Text = carpetaencontrada
        Next

        'LEER CONTENIDO DE FICHERO Y BUSCAR FICHERO DE LOG
        Dim var As String
        var = My.Computer.FileSystem.ReadAllText(TextBox15.Text & "\logs\log.log")

        Using myReader As New StreamReader(TextBox15.Text & "\logs\log.log")
            Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))
            ListBox1.Items.AddRange(myVar)
        End Using

    End Sub
End Class

[IanRyder]

Hi,

Sorry, should have said that you need to add the following Imports statement:-

Imports System.IO

Cheers,

Ian

[corei7]

Hi,

Sorry, should have said that you need to add the following Imports statement:-

Imports System.IO

Cheers,

Ian

Yeah, I tried with IO.StreamReader and it alows me to run the debug, but it still adds a single item with all the content of the log.log.

LOG.LOG CONTENT

ch_My room	18/02/2013	09:30:16	Manuelele	ow yea
ch_My room	18/02/2013	10:08:58		guest615 joins My room
ch_My room	18/02/2013	10:09:36	guest615	hola
ch_My room	18/02/2013	10:09:49	guest615	
ch_My room	18/02/2013	10:09:56	guest615	
ch_My room	18/02/2013	10:09:56	guest615	
ch_My room	18/02/2013	10:09:57	guest615	
ch_My room	18/02/2013	10:09:57	guest615	
ch_My room	18/02/2013	10:09:57	guest615	
ch_My room	18/02/2013	10:09:57	guest615	
ch_My room	18/02/2013	10:09:57	guest615	
ch_My room	18/02/2013	10:09:58	guest615	
ch_My room	18/02/2013	10:10:04	guest615	:)
ch_My room	18/02/2013	10:10:07	guest615	:drizzle:
ch_My room	18/02/2013	10:10:09	guest615	:cloudly:
ch_My room	18/02/2013	10:10:19	guest615	tira tira
ch_My room	18/02/2013	10:10:22	guest615	amai
ch_My room	18/02/2013	10:10:32	guest615	PS4:drizzle:
ch_My room	18/02/2013	10:10:34	guest615	:***:
ch_My room	18/02/2013	10:10:47	guest615	:!::!::!::!::!::!::!::!::!::!::!::!::!::!::!::!:
ch_My room	18/02/2013	10:11:03	guest615	>O<
ch_My room	18/02/2013	10:11:05	guest615	>O<
pv_d97ef4b626e518f84cd7de3cfa3f26ef3c5d2472_ebbf294852ddbda3d031fbc7ca8f0ddeaa695ba4	18/02/2013	10:11:26	guest615	amai
pv_d97ef4b626e518f84cd7de3cfa3f26ef3c5d2472_ebbf294852ddbda3d031fbc7ca8f0ddeaa695ba4	18/02/2013	10:11:34	guest615	:lol:
pv_d97ef4b626e518f84cd7de3cfa3f26ef3c5d2472_ebbf294852ddbda3d031fbc7ca8f0ddeaa695ba4	18/02/2013	10:12:03	guest615	guest615 quit
ch_My room	18/02/2013	10:12:53	Manuelele	guest615 quit (timeout)
ch_My room	18/02/2013	10:20:16	Manuelele	holo
pv_d97ef4b626e518f84cd7de3cfa3f26ef3c5d2472_ebbf294852ddbda3d031fbc7ca8f0ddeaa695ba4	18/02/2013	10:20:31	Manuelele	Manuelele quit

As you can see, each line starts with "ch_"... The "pv_", ignoring the "pv_" lines.

[Inferrd]

Dim myVar() As String = myReader.ReadToEnd.Split(CChar(vbCrLf))

CChar(vbCrLf) will return vbCr as a single Char, so the above will split the string only on Carriage Returns, leaving any vbLf characters as the first character of every split line (except the first split line, of course).

However, it sounds like the lines in corei7‎'s log files are terminated with only the LineFeed character, which is why the file's content is not being split by the above.


What you probably want to use is:

Dim myVar() As String = myReader.ReadToEnd.Split(vbCrLf.ToCharArray, StringSplitOptions.RemoveEmptyEntries))

which should work for lines terminated in just a LineFeed, just a Carriage Return, or a combination of both Carriage Return and LineFeed.


However, there's an easier method:

ListBox1.Items.Clear() ' if needed ?
ListBox1.Items.AddRange(IO.File.ReadAllLines(TextBox15.Text & "\logs\log.log"))

[corei7]

CChar(vbCrLf) will return vbCr as a single Char, so the above will split the string only on Carriage Returns, leaving any vbLf characters as the first character of every split line (except the first split line, of course).

However, it sounds like the lines in corei7‎'s log files are terminated with only the LineFeed character, which is why the file's content is not being split by the above.


What you probably want to use is:

Dim myVar() As String = myReader.ReadToEnd.Split(vbCrLf.ToCharArray, StringSplitOptions.RemoveEmptyEntries))

which should work for lines terminated in just a LineFeed, just a Carriage Return, or a combination of both Carriage Return and LineFeed.


However, there's an easier method:

ListBox1.Items.Clear() ' if needed ?
ListBox1.Items.AddRange(IO.File.ReadAllLines(TextBox15.Text & "\logs\log.log"))

Awesome! It worked the way I wanted! with the easier method. Thanks so much @Inferrd! Thanks to IanRyder too for trying to help me