Sorry for not posting more of the code. Les, I believe this is something that you've written and I've made a mess of. If not, I apologize to whoever did and not giving them proper credit. BTW Howard, I'm using 4.22.
Code:
$null = SetOption ("NoVarsInStrings","On")
$null = SetOption ("Explicit","On")
Dim $file,$filehandle,$namevalue,$line,$name,$namearray,$null,$outputfile,$outputhandle
$file = 'c:\kix\test_text.txt'
$filehandle = FreeFileHandle()
If Open ($filehandle,$file) = 0
$namevalue = 0
While @Error = 0
$line = ReadLine ($filehandle)
If InStr ($line,'DCS Application Snapshot')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
If InStr ($line,'Authorization')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
If InStr ($line,'Inbound communication address')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
If InStr ($line,'Outbound communication address')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
If InStr ($line,'Application name')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
If InStr ($line,'Application status')
ReDim Preserve $namearray[$namevalue]
$namearray[$namevalue] = $line
$namevalue = $namevalue+1
EndIf
Loop
$null = Close ($filehandle)
$outputfile = 'c:\kix\test_text_out.txt'
$outputhandle = FreeFileHandle()
If Exist ($outputfile)
Del $outputfile
EndIf
If $namearray[0] <> ''
If Open ($outputhandle,$outputfile,5) = 0
For Each $name In $namearray
$null = WriteLine ($outputhandle,$name+@CRLF)
Next
$null = Close ($outputhandle)
Else
$null = MessageBox ('Unable To Create '+$outputfile,'Error',0)
EndIf
EndIf
Else
$null = MessageBox ('Unable To Open '+$file,'Error',0)
EndIf
