How to read a txt file after an external program ran (How to check if a process is running?)?

Replies to This Discussion

Permalink Reply by David Rutten on January 8, 2015 at 7:45am

The Grasshopper File parameter allows you to expire the solution after a file has changed:

However this won't work if the FEM application is writing data slowly to the file. To detect when a file has been released by whatever application had a lock on it, I think you'll need to use a timer and check.

The System.Diagnostics.Process class is available from within the VB component. What example code did you find that doesn't work?

Permalink Reply by Mauro Sogni on January 8, 2015 at 9:42am

SOLVED

Here is the Sub in case anyone needs it

Private Sub RunScript(ByVal Filebat As Object, ByVal Avvia As Object, ByVal x As Object, ByRef LST As Object, ByRef B As Object, ByRef A As Object) 

    Dim bret As Boolean = False

    Dim parti As Boolean

    Dim listproc() As system.Diagnostics.Process

    Dim objProcess As System.Diagnostics.Process

 

    parti = CBool(Avvia)

 

    ''''''''''''''''''''''''''''''''''''''''fa partire sofistik'''''''''''''''''''''''''''''''

    If parti Then

 

      objProcess = New System.Diagnostics.Process()

      objProcess.StartInfo.FileName = Cstr(Filebat)

      'objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal

      objProcess.Start()

 

      'Wait until the process passes back an exit code

      objProcess.WaitForExit()

 

      'Free resources associated with this process

      objProcess.Close()

 

    End If

 

    ''''''''''''''''''''''''''''''''''''''''legge il file di sofistik'''''''''''''''''''''''''

 

    ' We need to read into this List.

    Dim list As New List(Of String)

    ' Open file.txt with the Using statement.

    Using r As StreamReader = New StreamReader(CStr(x))

      ' Store contents in this String.

      Dim line As String

      ' Read first line.

      line = r.ReadLine

      ' Loop over each line in file, While list is Not Nothing.

      Do While (Not line Is Nothing)

        ' Add this line to list.

        list.Add(line)

        ' Read in the next line.

        line = r.ReadLine

      Loop

    End Using

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    LST = list

 

 

  End Sub