Loops

[gfunk999]

Please help, could someone please help me get this code into a loop? As you can see the model.log could contain different models, this code works the way it is, but I was wondering if a loop was possible. thanks in advance.

#include <file.au3>
#include <Process.au3>


$file = FileOpen("c:\model.log", 0)
$model = FileRead($file)

$err = StringInStr($model, "Model   2047")
If Not $err = 0 Then
    MsgBox(0, "Model", "Model 2047 found!")
EndIf

$err = StringInStr($model, "Model   2056")
If Not $err = 0 Then
    MsgBox(0, "Model", "Model 2056 found!")
EndIf

$err = StringInStr($model, "Model   2347")
If Not $err = 0 Then
    MsgBox(0, "Model", "Model 2347 found!")
EndIf

$err = StringInStr($model, "Model   2500")
If Not $err = 0 Then
    MsgBox(0, "Model", "Model 2500 found!")
EndIf

[SIone]

How about either:

#include <file.au3>
#include <Process.au3>

Func FindModel()
    
    $file = FileOpen("c:\model.log", 0)
    $model = FileRead($file)

    $err = StringInStr($model, "Model   2047")
    If Not $err = 0 Then
        MsgBox(0, "Model", "Model 2047 found!")
    EndIf

    $err = StringInStr($model, "Model   2056")
    If Not $err = 0 Then
        MsgBox(0, "Model", "Model 2056 found!")
    EndIf

    $err = StringInStr($model, "Model   2347")
    If Not $err = 0 Then
        MsgBox(0, "Model", "Model 2347 found!")
    EndIf

    $err = StringInStr($model, "Model   2500")
    If Not $err = 0 Then
        MsgBox(0, "Model", "Model 2500 found!")
    EndIf

    Return $err
EndFunc

or

#include <file.au3>
#include <Process.au3>

Func FindModel($FindModel)
    
    $file = FileOpen("c:\model.log", 0)
    $model = FileRead($file)

    $err = StringInStr($model, $FindModel)
    If Not $err = 0 Then
        MsgBox(0, "Model", $FindModel&" found!")
    EndIf

    
    Return $err
EndFunc

Just enter the Model number into the $FindModel string and call the function..

I havent tested this (as i dont have the .log file you are working) on so let me know how you get on.

SIone

[JustinMeyer]

You could try this to get one message box for all the models in your script, and loop until you want to cancel.

expandcollapse popup

#include <file.au3>
#include <Process.au3>


$file = FileOpen("c:\model.log", 0)
$model = FileRead($file)


Do
$2047_CHCK = StringInStr($model, "Model   2047")
If Not $2047_CHCK = 0 Then
    $2047 = "Model 2047 found!"
Else
    $2047 = "Model 2047 not found!"
EndIf

$2056_CHCK = StringInStr($model, "Model   2056")
If Not $2056_CHCK = 0 Then
    $2056 = "Model 2056 found!"
Else
    $2056 = "Model 2056 not found!"
EndIf

$2347_CHCK = StringInStr($model, "Model   2347")
If Not $2347_CHCK = 0 Then
    $2347 = "Model 2347 found!"
Else
    $2347 = "Model 2347 not found!"
EndIf

$2500_CHCK = StringInStr($model, "Model   2500")
If Not $2500_CHCK = 0 Then
    $2500 = "Model 2500 found!"
Else
    $2500 = "Model 2500 not found!"
EndIf

$RESULT = MsgBox(5,"Model Check",$2047 & @CRLF & $2056 & @CRLF & $2347 & @CRLF & $2500)
Until $RESULT = 2

[SIone]

A good alternative,

I wasnt sure if the list of model numbers was finite, hence my two versions.

[andybiochem]

How about using arrays?

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

;build an array of the 'models' you want to search for
Dim $ModelArray[5]
$ModelArray[1] = "Model   2047"
$ModelArray[2] = "Model   2056"
$ModelArray[3] = "Model   2347"
$ModelArray[4] = "Model   2500"

;load the log file into a separate array
Dim $LogArray[1]
_FileReadToArray("c:\model.log",$LogArray)

;loop through your model array to see if each item exists in the log file
For $i = 1 to (UBound($ModelArray) - 1)
    If _ArraySearch($LogArray,$ModelArray[$i],1) <> -1 Then
        MsgBox(0,"",$ModelArray[$i] & " found!")
    EndIf
Next

Not tested.

[edited to add File.au3 include]

Edited July 13, 2008 by andybiochem

[SIone]

That is very Pro...

I like that you saw the difference between 'testing for', and 'parsing for'.

Slick work!!

[gfunk999]

Thanks all for the replies, they all work excellent!

How about using arrays?

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

;build an array of the 'models' you want to search for
Dim $ModelArray[5]
$ModelArray[1] = "Model   2047"
$ModelArray[2] = "Model   2056"
$ModelArray[3] = "Model   2347"
$ModelArray[4] = "Model   2500"

;load the log file into a separate array
Dim $LogArray[1]
_FileReadToArray("c:\model.log",$LogArray)

;loop through your model array to see if each item exists in the log file
For $i = 1 to (UBound($ModelArray) - 1)
    If _ArraySearch($LogArray,$ModelArray[$i],1) <> -1 Then
        MsgBox(0,"",$ModelArray[$i] & " found!")
    EndIf
Next

Not tested.

[edited to add File.au3 include]