a B c
d E f
m N o
g E h

   
$file = “inv.txt”
$input = “B”

$ = Open (1,$file)
$Line = ReadLine (1)
	
	If InStr($Line,$input)
	$LFound = Split($Line," ")
	
        For Each $item in $LFound
	
        If 0 <= Ubound($LFound)
        $First = $LFound[0]

	If 0 <= Ubound($LFound)
	$second = $LFound[1]

	If 0 <= Ubound($LFound)
	$third = $LFound[2]

	Next
$First ? 
$second ?
$third ?	 

Break ON
$asSearchStrings="B","E"
 
If Open(1,"inv.txt")
	"Cannot open file for reading ["+@ERROR+"] "+@SERROR+@CRLF
Else
	$sLine=ReadLine(1)
	While Not @ERROR
		$asLine=Split($sLine+"  ")
		If 1+AScan($asSearchStrings,$asLine[1])
			"Match: "+$asLine[1]+" First="+$asLine[0]+" Second="+$asLine[1]+" Third="+$asLine[2]+@CRLF
		EndIf
		$sLine=ReadLine(1)
	Loop
EndIf

Quote:

---

Match: B First=a Second=B Third=c
Match: E First=d Second=E Third=f
Match: E First=g Second=E Third=h

---

Quote:

---

readfile() UDF
FilterArray() UDF

$file=readfile("inv.txt")
$filtered=filterarray($file,' B ')
for each $item in $filtered
? $item
next

---

Quote:

---

richie's code does not work as it splits with double space.
remove the another space and it should work fine.

---