I tried to speed up scanning for a value in a large file.


Task Steps: (Right click, Select All, Copy to copy to the clipboard. Steps can then be pasted into the AutoMate Task Builder)
<AMVARIABLE NAME="cInputFile" DESCRIPTION="Inputfile to be scanned">C:\temp\a.log</AMVARIABLE> <AMCOMMONDIALOG WINDOWTITLE="Select file to scan" RESULTVARIABLE="cInputFile" DEFAULTFOLDER="H:\Documenten"> <AMIFFILEEXISTS FILE="%cInputFile%"> <AMVARIABLE NAME="cOutputFile" DESCRIPTION="Outputfile to be created">%ExtractFilePath( cInputFile) & &quot;Extraction of &quot; & ExtractFileName( cInputFile)%</AMVARIABLE> <AMVARIABLE NAME="cCriterium" DESCRIPTION="To search for in inputfile"></AMVARIABLE> <AMVARIABLE NAME="nOccurrences" TYPE="NUMBER">0</AMVARIABLE> <AMVARIABLE NAME="nLines" TYPE="NUMBER">0</AMVARIABLE> <AMVARIABLE NAME="cDelimiter" DESCRIPTION="Recorddelimiter">%vbCrLf%</AMVARIABLE> <AMINPUTBOX WINDOWTITLE="Input a value" RESULTVARIABLE="cCriterium">Input a value:</AMINPUTBOX> <AMFILEWRITE FILE="%cOutputFile%" APPEND="NO"> </AMFILEWRITE> <AMSCRIPT>Sub Main Dim nSize As Long Dim nPos As Long Dim hOrgFile As Long Dim hNewFile As Long Dim nBytesWritten As Long Dim bBytes() As Byte Dim bPositions() As Long Dim nTeller As Long Dim nRecTel As Long Dim cBuffer2 As String hOrgFile = CreateFile( cInputFile, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, 0, 0) nSize = GetFileSize( hOrgFile, 0) SetFilePointer hOrgFile, 0, 0, FILE_BEGIN ReDim bBytes( 1 To nSize) As Byte ReadFile hOrgFile, bBytes( 1), UBound( bBytes), Ret, 0& CloseHandle hOrgFile cBuffer = StrConv( bBytes,vbUnicode) aRecs = Split( cBuffer, cCriterium) If UBound( aRecs) &gt; 0 Then hNewFile = CreateFile(cOutputFile, GENERIC_WRITE, FILE_SHARE_READ, 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&) nTeller = 0 nPos = 0 nRecTel = 0 While nRecTel &lt;= UBound( aRecs) - 1 ReDim Preserve bPositions( nTeller) nPos = nPos + Len( aRecs( nRecTel)) + 1 bPositions( nTeller) = nPos nPos = nPos + Len( cCriterium) - 1 nTeller = nTeller + 1 nRecTel = nRecTel + 1 Wend nOccurrences = UBound( bPositions) + 1 aRecs = vbNullString cBuffer = vbNullString cBuffer2 = &quot;&quot; nTeller = 0 While nTeller &lt;= UBound( bPositions) nPos = bPositions( nTeller) While InStr( cBuffer2, cDelimiter) = 0 And nPos &gt; 0 cBuffer2 = Chr( bBytes( nPos)) & cBuffer2 nPos = nPos - 1 Wend cBuffer2= Replace( cBuffer2, cDelimiter, vbNullString) nPos = bPositions( nTeller) nPos = nPos + 1 While InStr( cBuffer2, cDelimiter) = 0 And nPos &lt;= UBound( bBytes) cBuffer2 = cBuffer2 & Chr( bBytes( nPos)) nPos = nPos + 1 Wend If bPositions( nTeller) &lt;= nPos Then While ( bPositions( nTeller) &lt; nPos) nTeller = nTeller + 1 If nTeller &gt; UBound( bPositions) Then Exit While End If Wend Else nTeller = nTeller + 1 End If WriteFile( hNewFile, cBuffer2, Len( cBuffer2), nBytesWritten, 0) nLines = nLines + 1 cBuffer2 = &quot;&quot; Wend CloseHandle hNewFile Else nOccurrences = 0 nLines = 0 End If End Sub Public Const MOVEFILE_REPLACE_EXISTING = &H1 Public Const FILE_ATTRIBUTE_TEMPORARY = &H100 Public Const FILE_BEGIN = 0 Public Const FILE_SHARE_READ = &H1 Public Const FILE_SHARE_WRITE = &H2 Public Const CREATE_NEW = 1 Public Const OPEN_EXISTING = 3 Public Const GENERIC_READ = &H80000000 Public Const GENERIC_WRITE = &H40000000 Public Declare Function ReadFile Lib &quot;kernel32&quot; (ByVal hFile As Long, lpBuffer As Byte, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long Public Declare Function CreateFile Lib &quot;kernel32&quot; Alias &quot;CreateFileA&quot; (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Public Declare Function CloseHandle Lib &quot;kernel32&quot; (ByVal hObject As Long) As Long Public Declare Function SetFilePointer Lib &quot;kernel32&quot; (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long Public Declare Function GetFileSize Lib &quot;kernel32&quot; (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Public Declare Function WriteFile Lib &quot;kernel32&quot;(ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long </AMSCRIPT> <AMMESSAGEBOX WINDOWTITLE="Ready.">Outputfile: %cOutputFile% has been created. That file has all the records of %cInputFile% (size: %FileLen( cInputFile)% bytes) containing this value: %cCriterium% Number of occurrences: %nOccurrences% Number of records: %nLines% Size of %cOutputFile%: %FileLen( cOutputFile)% bytes.</AMMESSAGEBOX> <AMELSE> <AMMESSAGEBOX>File: %cInputFile% doesn't exist (anymore)!</AMMESSAGEBOX> </AMIF>

-------------------------
Bart van Lagen
ICT Department.
St Jansdal Hospital
Harderwijk, Netherlands
Automate 7.1.1.0 / BPA 7.1.1.0
Windows 2003SP2SRV