parsing, splitting Nightmare

[dedub]

Ive read all I could possible read on this subject to no avail. Im sure the answer is easy I just CANT get it

This is part of the .txt/.log file I'm trying to separate into its own RichTextBox.
-------------------------------------
Windows 2000 IP Configuration



Host Name . . . . . . . . . . . . : parents
Primary DNS Suffix . . . . . . . :
Node Type . . . . . . . . . . . . : Broadcast

IP Routing Enabled. . . . . . . . : No

WINS Proxy Enabled. . . . . . . . : No

DNS Suffix Search List. . . . . . : nc.rr.com
----------------------------------------
All I want to do is pull the specific info like the word "parents" and put it into the mentioned box.

Ive tried: selLenth, Seltart, Span,InStr,Split,InBetween and who knows what else.
I've had luck with split but all I can do with that is pull out info that is between "like chacters" ie..commas and colons. I need to get inbetween some constant words that wont change in the file like "Host Name" and the word "Primary", remember the word "parents" will change from computer to computer.

Any and all help is appreciated

[Merri]

'place in a form (make Public if in to module)
Private Function AnalyseLine(ByVal Text As String) As String
    Dim MyName As String, MyValue As String
    If InStr(Text, ". ") Then MyName = Trim$(Left$(Text, InStr(Text, ". ")))
    If InStr(Text, ": ") Then MyValue = Trim$(Mid$(Text, InStr(Text, ": ") + 2))
    AnalyseLine = MyName & "|" & MyValue
End Function

For the line Host Name . . . . . . . . . . . . : parents this should return Host Name|parents

For each line you told it should return (as I didn't test the code...sorry about that):

|
|
|
|
Host Name|parents 
Primary DNS Suffix|
Node Type|Broadcast 
|
IP Routing Enabled|No
|
WINS Proxy Enabled|No
|
DNS Suffix Search List|nc.rr.com 
|

Use this function when you have done Line Input while reading the file. Hope this is of any help

[Mc Brain]

This would let you parse lines like I.P. Routing Enabled. . . . . . . . : No

Private Function AnalyseLine(ByVal Text As String) As String
    Dim MyName As String, MyValue As String
    If InStr(Text, ": ") Then MyValue = Trim$(Mid$(Text, InStr(Text, ": ") + 2))
    
    MyName = Trim$(Left$(Text, InStr(Text, ": " & MyValue) - 1))
    Do Until Right(MyName, 1) <> "."
        MyName = Trim$(Left$(MyName, Len(MyName) - 1))
    Loop
    
    AnalyseLine = MyName & "|" & MyValue
End Function

[dedub]

Thanks to you Both, your code has helped me Immeasurably. Not only has my project started moving again I learned a little about parsing, thanks again!

ds