4 replies to this topic

[DPyro]

I am reading the StandardOutput of a process to a string and would like to match certain text and write the full line to a text file.
For example:


Filename: file1
ID = ID100GH
Version = 1.00
Size: 251,088 bytes

I want it to read the standard output and write the entire line if it matches say ID or Version on separate lines to a text file.

[FuhrerDarqueSyde]

not sure if this is what you're looking for and my vb.net is a little rusty (and i hate the syntax) but this might help.

		Dim TestString As String = "Filename: file1" & vbCrLf &
		"ID = ID100GH" & vbCrLf &
		"Version = 1.0" & vbCrLf &
		"Size: 251,088 bytes"

		Dim PatternString As String = "ID = (.*)"

		Dim Result As Match = Regex.Match(TestString, PatternString, RegexOptions.None)

		If (Result.Captures.Count > 0) Then
			Dim Test As String = Result.Captures(0).Value
		End If

or in C#

		    String Content = @"Filename: file1
ID = ID100GH
Version = 1.00
Size: 251,088 bytes";

		    String PatternMatcher = @"ID = (.*)";
		    Match RegexMatcher = Regex.Match(Content, PatternMatcher, RegexOptions.None);

		    if (RegexMatcher.Captures.Count > 0)
		    {
			    String Result = RegexMatcher.Captures[0].Value;
		    }

This is an example fyi. Replace TestString with your StdOutput data, etc.

[DPyro]

Hmm, maybe I could use something like this:

Dim value As String = "ID = ID100GH"
If value.StartsWith("ID") Then
WriteLine
End If

EDIT:
I think I found what I need

Dim output = New StringBuilder()

' Read the lines from FileName into an array of strings. '
Dim input = File.ReadAllLines(FileName)

For Each line in input

    If line.StartsWith("ID") OrElse
       line.StartsWith("Version") Then

       output.AppendLine(line)

    End If

Next

Edited by DPyro, 18 November 2012 - 05:22.

[DPyro]

Ok that didn't seem to work

This works but now I need to write it to a file:

For Each line As String In txtOutputLog.Lines
If line.StartsWith("ID") OrElse
line.StartsWith("Version") Then
  txtOutputLog.Text += line & vbCrLf
End If
Next

Edited by DPyro, 18 November 2012 - 06:58.

[DPyro]

For reference, here is my final code:

Public out as string
While output.HasExited = False
Dim sLine As String = output.StandardOutput.ReadLine
  If (Not String.IsNullOrEmpty(sLine)) Then
  out &= sLine & "~"
End If
Application.DoEvents()
End While
.WaitForExit()
.Close()

Dim swriter As StreamWriter
Dim strOutput As String = (Application.StartupPath & "\" & output & ".txt")
For Each line As String In out.Split("~")
swriter = File.AppendText(strOutput)
If line.StartsWith("ID") OrElse
  line.StartsWith("Version") Then
  swriter.WriteLine(line)
End If
swriter.Close()
Next
out = ""
txtOutputLog.Text = My.Computer.FileSystem.ReadAllText(strOutput) & vbCrLf & "Output file saved to: " & vbCrLf & strOutput