Reading Text file and Finding strings

[deef99 0]

Ok...trying to do what I thought was fairly simple...

I have a file - example below of some lines. I need to find 2 strings of data, and write them out to a file. I can find the first one...but having trouble gettin the second.

My thought was: find the "Heat List for:" ...then first the very next one. Then go back 2 lines and get the HEAT line. First person done...write to file, move to next person. The goal is to create a file with Dancer's Name and Last Heat Number.

FILE EXAMPLE:

Heat list for:Vance Allen [The Tango], 27 entries

Practice [saturday September 17, 2011, 10:00AM]

American Smooth & International Standard Single Dance Events [saturday September 17, 2011, 11:00AM]

With Stu Rozier, number 12

11:19AM Heat 14 L-B Bronze I Closed Waltz

11:21AM Heat 15 L-B Bronze I Closed Tango

11:22AM Heat 16 L-B Bronze I Closed Foxtrot

11:33AM Heat 22 L-B Bronze II Closed Waltz

11:35AM Heat 23 L-B Bronze II Closed Tango

11:36AM Heat 24 L-B Bronze II Closed Foxtrot

11:38AM Heat 25 L-B Bronze II Closed V. Waltz

12:05PM Heat 43 L-B Bronze I Closed V. Waltz

-----------------------------------PAGE BREAK-----------------------------------

Heat list for:Lenn Also, number 17 [Dance City Ballroom], 4 entries

Practice [saturday September 17, 2011, 10:00AM]

American Smooth & International Standard Single Dance Events [saturday September 17, 2011, 11:00AM]

With Margie

11:07AM Heat 6 L-D Bronze II Closed Foxtrot

11:53AM Heat 35 L-D Bronze II Closed Waltz

11:54AM Heat 36 L-D Bronze II Closed Tango

American Smooth 3 Dance Challenge Events [saturday September 17, 2011, 12:25PM]

01:13PM Heat 65 L-D Pro/Am Tango

American Rhythm & International Latin Single Dance Events [saturday September 17, 2011, 02:00PM]

Rhythm 3 Dance Challenge Events [saturday September 17, 2011, 04:33PM]

-----------------------------------PAGE BREAK-----------------------------------

Heat list for:Margie Doe [Dance City Ballroom], 4 entries

Here's what I have left of my code that didn't work:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Outfile=C:\cmpmgr\Top.exe

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <File.au3>

$file = FileOpen("c:\cmpmgr\top\lastheat.txt", 0)

$result = ""

$vnum = ""

$d1 = ""

$d2 = ""

$logfile = "c:\cmpmgr\top\LAST.txt"

FileDelete($logfile)

While 1

$line = FileReadLine($file)

If @error = -1 Then ExitLoop

$result = StringInStr($line, "Heat List for:")

If $result > 0 Then

$d1 = $line

EndIf

$result = StringInStr($line, "Heat List for:")

MsgBox(0, "vnum:", $result)

$result = $result - 2

$result = StringInStr($line, "M HEAT")

$vnum = $line

MsgBox(0, "vnum:", $vnum)

FileWrite($logfile, $d1 & " - " & $vnum & @CRLF)

WEnd

FileClose($logfile)

[somdcomputerguy 103]

Try this function, _FileReadToArray. Putting the file into an array and manipulating that data, while maybe not 'fairly simple', may be easier in the long run..

[Melba23 3,515]

deef99,

If I use this file:

Heat list for:Vance Allen [The Tango], 27 entries
Practice [Saturday September 17, 2011, 10:00AM]
American Smooth & International Standard Single Dance Events [Saturday September 17, 2011, 11:00AM]
With Stu Rozier, number 12
11:19AM Heat 14 L-B Bronze I Closed Waltz
11:21AM Heat 15 L-B Bronze I Closed Tango
11:22AM Heat 16 L-B Bronze I Closed Foxtrot
11:33AM Heat 22 L-B Bronze II Closed Waltz
11:35AM Heat 23 L-B Bronze II Closed Tango
11:36AM Heat 24 L-B Bronze II Closed Foxtrot
11:38AM Heat 25 L-B Bronze II Closed V. Waltz
12:05PM Heat 43 L-B Bronze I Closed V. Waltz
-----------------------------------PAGE BREAK-----------------------------------
Heat list for:Lenn Also, number 17 [Dance City Ballroom], 4 entries
Practice [Saturday September 17, 2011, 10:00AM]
American Smooth & International Standard Single Dance Events [Saturday September 17, 2011, 11:00AM]
With Margie 
11:07AM Heat 6 L-D Bronze II Closed Foxtrot
11:53AM Heat 35 L-D Bronze II Closed Waltz
11:54AM Heat 36 L-D Bronze II Closed Tango
American Smooth 3 Dance Challenge Events [Saturday September 17, 2011, 12:25PM]
01:13PM Heat 65 L-D Pro/Am Tango
American Rhythm & International Latin Single Dance Events [Saturday September 17, 2011, 02:00PM]
Rhythm 3 Dance Challenge Events [Saturday September 17, 2011, 04:33PM]
-----------------------------------PAGE BREAK-----------------------------------
Heat list for:Margie Doe [Dance City Ballroom], 4 entries
Practice [Saturday September 17, 2011, 10:00AM]
American Smooth & International Standard Single Dance Events [Saturday September 17, 2011, 11:00AM]
With Fred
03:10PM Heat 97 L-D Pro/Am Tango

Then this script works:

expandcollapse popup

#include <File.au3>
#include <Array.au3>

Global $aLines

_FileReadToArray("mylist.txt", $aLines)

$iStart = 0

$sSections = ""

While 1

    $iIndex = _ArraySearch($aLines, "Heat list for:", $iStart, 0, 0, 1)

    If $iIndex = -1 Then ExitLoop

    $sSections &= $iIndex & "|"

    $iStart = $iIndex + 1

WEnd

$sSections &= $aLines[0] + 2

$aSections = StringSplit($sSections, "|")

For $i = 1 To $aSections[0] - 1

    $sName = StringRegExpReplace($aLines[$aSections[$i]], ".*:(.*),.*", "$1")

    ConsoleWrite($sName & " - Last Heat: ")

    $iStart = $aSections[$i + 1] - 1
    If $iStart > $aLines[0] Then
        $iStart = $aLines[0]
    EndIf

    For $j = $iStart To $aSections[$i] Step -1

        If StringInStr($aLines[$j], "Heat") Then
            $iHeatNumber = StringRegExpReplace($aLines[$j], ".*Heat\x20(\d+)\x20.*", "$1")
            ConsoleWrite($iHeatNumber & @CRLF)
            ExitLoop
        EndIf

    Next

Next

Assumption: The last Heat is always the last listed - if this is not the case the problem become much more complex, although not impossible.

Any use?

M23

[deef99 0]

I think this will work most excellently!!! Thank you so much!

YUP... just set it up and it ran perfectly!

Edited September 15, 2011 by deef99