top of page
Search

Quick AutoIT 3 parsing Engine

#cs ----------------------------------------------------------------------------


AutoIt Version: 3.3.14.5

Author: Corey Schafer


Script Function:

Template AutoIt script.


#ce ----------------------------------------------------------------------------


; Script Start - Add your code below here

MsgBox(0,"Starting to parse", "Starting to parse")


$file1 = FileOpen("C:\PreDev Refresh 032919\scriptletterdp thru z.sql", 0);0 = Read mode

$file2 = FileOpen("C:\PreDev Refresh 032919\Triggers P thru Z.sql", 2)


$foundString = 0

$Counter = 0


; Check if file opened for reading OK

If $file1 = -1 Then

MsgBox(0, "Error", "Unable to open input file.")

Exit

EndIf


If $file2 = -1 Then

MsgBox(0, "Error", "Unable to open output file.")

Exit

EndIf



;SplashTextOn("Status", "Parsing", -1, -1, -1, -1, "", "", 5)



; Read in lines of text until the EOF is reached

While 1

$Counter = $Counter + 1

$line = FileReadLine($file1)

$message = "Parsing Line " & $Counter


; SplashTextOn("Status", $message, -1, -1, -1, -1, "", "", 5)


; ControlSetText("Status", "", "Static1", $message)




;If @error = -1 Then

; msgbox(0,"FILE ERROR #1","FILE ERROR #1")

; ExitLoop

; endif


if $FoundString = 1 Then

FileWriteLine ( $file2, $line )

Else


If StringInStr ($line, "Trigger") Then

$foundstring = 1

;FileWriteLine ( $file2, $line )

$message = "Parsing Text Found " & $Counter

MsgBox(0,"Found File Write Trigger",$message)

EndIf

EndIf



Wend


FileClose($file1)

FileClose($file2)


;SplashOff();


MsgBox(0,"Parsing Complete","Parsing of File Complete")




 
 
 

Comments


© 2019 Corey Schafer - All Scripts require author's permssion to re-share  -  Proudly created with Wix.com

Subscribe for Dr. Tech Updates!

Thanks for submitting!

bottom of page