string parsing - Xtreme Visual Basic Talk

07-11-2006, 02:38 PM

mookie

Centurion

Join Date: Feb 2004

Posts: 179

string parsing

Im just fishing for different ways that some of you might go about the following task. More so because im only a novice and i can do it but i would like to know if there is a different way.

I have a tabcontrol that i am going to use as an config tool for different applications. the actual parameters are listed in a textfile "$config.dat"

im searching for different things such as the string

"DISP1SCHEDULE[1]={DISP_GUN 1,COMMENT[]"

now heres the thing..

this file that im using has 2187 lines within it. normally i have created a richtextbox to load the file into and then parse it from there such as

Code:

Private Sub AppConfig_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Stop
        Dim temp As String
        If File.Exists(pFilepath & "\KRC\R1\System\$config.dat") Then
            Dim cText As New RichTextBox
            cText.LoadFile(pFilepath & "\KRC\R1\System\$config.dat", RichTextBoxStreamType.PlainText)
            temp = cText.Text.Substring(cText.Text.LastIndexOf("DISP1SCHEDULE[1]={DISP_GUN 1,COMMENT[] "), cText.Text.Length - cText.Text.LastIndexOf("DISP1SCHEDULE[32]={DISP_GUN 1,COMMENT[] "))
            For i As Integer = 1 To 32
                cText.Find("DISP1SCHEDULE[1]={DISP_GUN 1,COMMENT[]")
            Next

        End If
end sub

but i have seen alot of people use a streamreader such as

Code:

If File.Exists(pFilepath & "\KRC\R1\System\$config.dat") Then
   Dim nfs As FileStream = File.OpenRead(pFilepath & "\KRC\R1\System\$config.dat")
            Do While nfs.Read(b, 0, b.Length) > 0

' do code to find parameters
                'Set StatusBarText
            Loop

is there advantages of using one over the other?

Last edited by mookie; 07-11-2006 at 02:39 PM. Reason: ...

07-11-2006, 08:20 PM

brandnew

Centurion

Join Date: Jun 2004

Location: Phnom Penh, Cambodia.

Posts: 181

Regular Expression (a.k.a Regex) rules them all! Read The 30 minute regex Tutorial

First back to the two, you did it all wrong with the RichTextBox. You don't need it just to read file. What you really need is:
VS 2005

Code:

Dim text As String = IO.File.ReadAllText(pFilepath & "\KRC\R1\System\$config.dat")

VS 2003

Code:

Dim sr As IO.StreamReader = New IO.StreamReader(pFilepath & "\KRC\R1\System\$config.dat")
Dim text As String = sr.ReadToEnd

__________________
Very useful and free stuffs for VB programmers.
API-Guide - Wonderful API viewer with examples and full explanation.
APIViewer - More APIs; replacement for default api viewer in VB.

07-11-2006, 11:35 PM

gigemboy

Centurion

Join Date: Oct 2005

Location: College Station, TX

Posts: 156

Quote:

Originally Posted by brandnew

VS 2003

Code:

Dim sr As IO.StreamReader = New IO.StreamReader(pFilepath & "\KRC\R1\System\$config.dat")
Dim text As String = sr.ReadToEnd

Dont forget to close the streamreader with "sr.Close"

Regex is great if you know the syntax, but it takes a while to learn it in order to be able to use it effectively, but I just love it... (get that tutorial link from me?? I post that everywhere hehe)

__________________
NOTE: My code will usually get the job done, but it is not the prettiest. If you see of a way to make it more efficient or to look more elegant, please feel free to comment on it :) Im still learning...

07-12-2006, 05:52 AM

shaul_ahuva

Ultimate Contributor

Retired Leader
* Expert *

Join Date: Jul 2003

Location: Camp Hill, PA

Posts: 1,992

Quote:

Originally Posted by mookie

...is there advantages of using one over the other?

If you use a StreamReader, you don't have the extra overhead of the RichTextBox