Code to get the line where a word is placed on a txt file

Question

I'm unable to write a code that looks for a word in a txt file and return the line where the word is placed.

The word is usually at the 31th line (placed at the start of the string) but sometimes is placed below. I tried to make a loop that stopped at the 32th line and it worked, but when the string is placed on a different number line the code doesn't work.

That's because I thought on looking for the word and then getting the line.

I've tried some copy-paste codes from many places but I couldn't managed to make them work.

Here is a sample of the *.txt file:

%%%
  VERSION:1
  LANGUAGE:ENGLISH
%%%

MODULE RP02


PROC P02()
ConfL\Off;
ConfJ\Off;
vfeed.v_tcp := 20;
vfeed.v_ori := 300;
vrapid.v_tcp := 500;
vrapid.v_ori := 300;
vfeed.v_leax := 500;
vfeed.v_reax := 20;
vrapid.v_leax := 1000;
vrapid.v_reax := 20;
CurrZone.pzone_tcp :=1;
CurrZone.pzone_ori :=2;
CurrZone.pzone_eax := 100;
CurrZone.zone_leax := 30;
CurrZone.zone_reax := 30;
AccSet 10,50;

CurrWObj := caja1;
CurrWObj.oframe.trans := [0,0,0];
CurrWObj.oframe.rot := [1,0,0,0];
! Item ID 2.1: NCL Code - Carga herramienta_02_D63_L520_H12_CAR=1

LoadTool 2,H12_PAT_1,1,1;
! Item ID 2.2: NCL Code - Posicionamiento ST180 R
MoveAbsJ [[96.98,-14.64,15.98,87.92,-32.69,-87.52],[2040,0,0,0,0,0]],vrapid,CurrZone,CurrTool;
MoveAbsJ [[96.98,-14.64,15.98,87.92,-32.69,-87.52],[2540,0,0,0,0,0]],vrapid,CurrZone,CurrTool;
!---------------------------------------------

And this is the code that worked previously:

Dim fso As New FileSystemObject
Dim f As File
Dim fsoStream As TextStream
Dim strLine As String
Dim j As Integer

Set f = fso.GetFile("C:\fileToRead.txt")
Set fsoStream = f.OpenAsTextStream(ForReading)

j = 1

Do Until j > 32


strLine = fsoStream.ReadLine
Debug.Print strLine

j = j + 1

Loop

But when the string where "LoadTool" is placed changes the line number this doesn't work...

I tried to modify copy/pastes I found on the web in order to achieve a FIND function or something similar and get the line number but I got stucked...

user_3219613 · Answer

I think the problem is that you stop at line 32. Just run the loop Until fsoStream.AtEndOfStream and check each line for your SearchWord. If found then exit the loop.

Option Explicit

Sub Example()
    Dim fso As New FileSystemObject
    
    Dim f As Object
    Set f = fso.GetFile("C:\fileToRead.txt")
    
    Dim fsoStream As TextStream
    Set fsoStream = f.OpenAsTextStream(ForReading)
    
    Dim SearchWord As String
    SearchWord = "LoadTool"

    Dim WasFound As Boolean
    WasFound = False  'initialization needed for loops!        

    Dim strLine As String
    Do Until fsoStream.AtEndOfStream
        strLine = fsoStream.ReadLine
        DoEvents 'do not freeze Excel give
        
        If Left$(strLine, Len(SearchWord)) = SearchWord Then
            'MsgBox "'" & SearchWord & "' was found."
            WasFound = True
            Exit Do
        End If
    Loop
    
    If WasFound Then
        'strLine now contains
        'LoadTool 2,H12_PAT_1,1,1;
        
        'put your code to handle that file here
    Else
        'search word was not found
        
        'put your code to handle what should happen if search word was not found
        'or omit the entire Else part to just skip that file.
    End If
    
End Sub

Code to get the line where a word is placed on a txt file

1 Answers