✔ Programação GLOBAL®: VBA Tips - Detectando conteúdo num arquivo texto externo à aplicação

Mas imagine o seguinte: Um processo em andamento, sendo executado através de Shell - Um código externo, fora da nossa aplicação, o qual não pode ser controlado através do nosso código VBA.

Como medir em que passo está?

Como saber se está dando certo?

Como saber se já terminou?

Isso é bem comum, quando por exemplo executamos um Script SQL. E ao invés de usarmos um arquivo BATCH para processarmos diversos Scripts, desejamos controlar o andamento através de nossa aplicação MS Access.

Neste caso, e na maioria dos demais, podemos solicitar ao Script que retorne alguma informação como a saída do resultado do processamento para um arquivo texto. Após a análise do conteúdo deste arquivo, continuamos com a seqüência seguinte.

Ok, já entendi, mas como verificarei o conteúdo do arquivo texto?

Segue: Para usar essa função é necessário fazer referência ao Microsoft Scripting Runtime (scrrun.dll)

Function rTxtFile (sSearchText As String, sFileName As String) As Boolean

' Author: André Luiz Bernardes - Bernardess@gmail.com.

'    Date: 10/04/2011 - 16:14.

' Application:

'   Functionality: Detecta uma palavra dentro do arquivo texto.

Dim oFSO As New FileSystemObject

Dim oFS As Variant

Dim sText As Variant

Dim nParticula As Variant

Dim Encontrou As Integer

Set oFS = oFSO.OpenTextFile(sFileName)

Let Encontrou = 0

Do Until oFS.AtEndOfStream

Let sText = UCase(oFS.ReadLine)

Let nParticula = InStr(1, sText, sSearchText, vbTextCompare)



If nParticula <> 0 Then

Let Encontrou = Encontrou + 1

End If

Loop

If Encontrou = 0 Then

Let rTxtFile = False

Else

Let rTxtFile = True

End If

End Function