Jump to content
Sign in to follow this  
JohnOne

udf help

Recommended Posts

JohnOne

I'm having dificulty making my first ever function

My script, captures charactors of text on screen (individual letters) reads them with tesseract and corrects the ones it returns wrong, (tesseract returns "iu" for example when the letter is actually "t"), and a number of others

here is my working script (no problems with this, but I figure I could probably use a function to replace the repetative code.

I'm just not sure how

#include <Tesseract.au3>
$coord0 = PixelSearch(0, 0, @DesktopWidth / 2, @DesktopHeight / 2, 0x3F5F60)
$c1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 283, $coord0[1] + 133, $coord0[0] + 296, $coord0[1] + 150, 0)
If StringLeft($c1, 1) = "B" Then $c1 = "8"
If StringLeft($c1, 2) = "IU" Then $c1 = "T"
If StringLeft($c1, 2) = "H]" Then $c1 = "T"
If StringLeft($c1, 2) = "ID" Then $c1 = "T"
If StringLeft($c1, 1) = "0" Then $c1 = "D"
If StringLeft($c1, 1) = "O" Then $c1 = "D"
If StringLeft($c1, 2) = "41" Then $c1 = "D"
$c1 = StringLeft($c1, 1)
$s1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 284, $coord0[1] + 149, $coord0[0] + 296, $coord0[1] + 164, 0)
If StringLeft($s1, 1) = "Q" Then $s1 = "w"
If StringLeft($s1, 1) = "6" Then $s1 = "x"
If StringLeft($s1, 1) = "4" Then $s1 = "y"
If StringLeft($s1, 1) = "V" Then $s1 = "z"

$c2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 323, $coord0[1] + 133, $coord0[0] + 336, $coord0[1] + 150, 0)
If StringLeft($c2, 1) = "B" Then $c2 = "8"
If StringLeft($c2, 2) = "IU" Then $c2 = "T"
If StringLeft($c2, 2) = "H]" Then $c2 = "T"
If StringLeft($c2, 2) = "ID" Then $c2 = "T"
If StringLeft($c2, 1) = "0" Then $c2 = "D"
If StringLeft($c2, 1) = "O" Then $c2 = "D"
If StringLeft($c2, 2) = "41" Then $c2 = "D"
$c2 = StringLeft($c2, 1)
$s2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 324, $coord0[1] + 149, $coord0[0] + 336, $coord0[1] + 164, 0)
If StringLeft($s2, 1) = "Q" Then $s2 = "w"
If StringLeft($s2, 1) = "6" Then $s2 = "x"
If StringLeft($s2, 1) = "4" Then $s2 = "y"
If StringLeft($s2, 1) = "V" Then $s2 = "z"

$c3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 363, $coord0[1] + 133, $coord0[0] + 376, $coord0[1] + 150, 0)
If StringLeft($c3, 1) = "B" Then $c3 = "8"
If StringLeft($c3, 2) = "IU" Then $c3 = "T"
If StringLeft($c3, 2) = "H]" Then $c3 = "T"
If StringLeft($c3, 2) = "ID" Then $c3 = "T"
If StringLeft($c3, 1) = "0" Then $c3 = "D"
If StringLeft($c3, 1) = "O" Then $c3 = "D"
If StringLeft($c3, 2) = "41" Then $c3 = "D"
$c3 = StringLeft($c3, 1)
$s3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 364, $coord0[1] + 149, $coord0[0] + 376, $coord0[1] + 164, 0)
If StringLeft($s3, 1) = "Q" Then $s3 = "w"
If StringLeft($s3, 1) = "6" Then $s3 = "x"
If StringLeft($s3, 1) = "4" Then $s3 = "y"
If StringLeft($s3, 1) = "V" Then $s3 = "z"
MsgBox(0,"Result", $c1 & $s1 & " " & $c2 & $s2 & " " & $c3 & $s3)

So I've tried this, and as usual its all over the place and probably totally wrong

#include <Tesseract.au3>
$coord0 = PixelSearch(0, 0, @DesktopWidth / 2, @DesktopHeight / 2, 0x3F5F60)
$c1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 283, $coord0[1] + 133, $coord0[0] + 296, $coord0[1] + 150, 0)
_SortText()
$s1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 284, $coord0[1] + 149, $coord0[0] + 296, $coord0[1] + 164, 0)
_SortMarker()
$c2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 323, $coord0[1] + 133, $coord0[0] + 336, $coord0[1] + 150, 0)
_SortText()
$s2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 324, $coord0[1] + 149, $coord0[0] + 336, $coord0[1] + 164, 0)
_SortMarker()
$c3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 363, $coord0[1] + 133, $coord0[0] + 376, $coord0[1] + 150, 0)
_SortText()
$s3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 364, $coord0[1] + 149, $coord0[0] + 376, $coord0[1] + 164, 0)
_SortMarker()
MsgBox(0,"Result", $c1 & $s1 & " " & $c2 & $s2 & " " & $c3 & $s3)


Func _SortText()
    For $s = 1 to UBound($c1, 1) -1
If StringLeft($c1, 1) = "B" Then $c1 = "8"
If StringLeft($c1, 2) = "IU" Then $c1 = "T"
If StringLeft($c1, 2) = "H]" Then $c1 = "T"
If StringLeft($c1, 2) = "ID" Then $c1 = "T"
If StringLeft($c1, 1) = "0" Then $c1 = "D"
If StringLeft($c1, 1) = "O" Then $c1 = "D"
If StringLeft($c1, 2) = "41" Then $c1 = "D"
$c1 = StringLeft($c1, 1)
Next
EndFunc


Func _SortMarker()
    For $s = 1 to Ubound($s1, 1) -1
If StringLeft($s3, 1) = "Q" Then $s3 = "w"
If StringLeft($s3, 1) = "6" Then $s3 = "x"
If StringLeft($s3, 1) = "4" Then $s3 = "y"
If StringLeft($s3, 1) = "V" Then $s3 = "z"
Next
EndFunc

In my working script I get a msgbox containing something like "Fx Py Tw"

In the barmy functioned one I get Randon letters, and not in the correct format, as though its putting @LF into the msgbox

I would appreciate any education regarding my attempt at making a function.

Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites
martin

I'm having dificulty making my first ever function

My script, captures charactors of text on screen (individual letters) reads them with tesseract and corrects the ones it returns wrong, (tesseract returns "iu" for example when the letter is actually "t"), and a number of others

here is my working script (no problems with this, but I figure I could probably use a function to replace the repetative code.

I'm just not sure how

#include <Tesseract.au3>
$coord0 = PixelSearch(0, 0, @DesktopWidth / 2, @DesktopHeight / 2, 0x3F5F60)
$c1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 283, $coord0[1] + 133, $coord0[0] + 296, $coord0[1] + 150, 0)
If StringLeft($c1, 1) = "B" Then $c1 = "8"
If StringLeft($c1, 2) = "IU" Then $c1 = "T"
If StringLeft($c1, 2) = "H]" Then $c1 = "T"
If StringLeft($c1, 2) = "ID" Then $c1 = "T"
If StringLeft($c1, 1) = "0" Then $c1 = "D"
If StringLeft($c1, 1) = "O" Then $c1 = "D"
If StringLeft($c1, 2) = "41" Then $c1 = "D"
$c1 = StringLeft($c1, 1)
$s1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 284, $coord0[1] + 149, $coord0[0] + 296, $coord0[1] + 164, 0)
If StringLeft($s1, 1) = "Q" Then $s1 = "w"
If StringLeft($s1, 1) = "6" Then $s1 = "x"
If StringLeft($s1, 1) = "4" Then $s1 = "y"
If StringLeft($s1, 1) = "V" Then $s1 = "z"

$c2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 323, $coord0[1] + 133, $coord0[0] + 336, $coord0[1] + 150, 0)
If StringLeft($c2, 1) = "B" Then $c2 = "8"
If StringLeft($c2, 2) = "IU" Then $c2 = "T"
If StringLeft($c2, 2) = "H]" Then $c2 = "T"
If StringLeft($c2, 2) = "ID" Then $c2 = "T"
If StringLeft($c2, 1) = "0" Then $c2 = "D"
If StringLeft($c2, 1) = "O" Then $c2 = "D"
If StringLeft($c2, 2) = "41" Then $c2 = "D"
$c2 = StringLeft($c2, 1)
$s2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 324, $coord0[1] + 149, $coord0[0] + 336, $coord0[1] + 164, 0)
If StringLeft($s2, 1) = "Q" Then $s2 = "w"
If StringLeft($s2, 1) = "6" Then $s2 = "x"
If StringLeft($s2, 1) = "4" Then $s2 = "y"
If StringLeft($s2, 1) = "V" Then $s2 = "z"

$c3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 363, $coord0[1] + 133, $coord0[0] + 376, $coord0[1] + 150, 0)
If StringLeft($c3, 1) = "B" Then $c3 = "8"
If StringLeft($c3, 2) = "IU" Then $c3 = "T"
If StringLeft($c3, 2) = "H]" Then $c3 = "T"
If StringLeft($c3, 2) = "ID" Then $c3 = "T"
If StringLeft($c3, 1) = "0" Then $c3 = "D"
If StringLeft($c3, 1) = "O" Then $c3 = "D"
If StringLeft($c3, 2) = "41" Then $c3 = "D"
$c3 = StringLeft($c3, 1)
$s3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 364, $coord0[1] + 149, $coord0[0] + 376, $coord0[1] + 164, 0)
If StringLeft($s3, 1) = "Q" Then $s3 = "w"
If StringLeft($s3, 1) = "6" Then $s3 = "x"
If StringLeft($s3, 1) = "4" Then $s3 = "y"
If StringLeft($s3, 1) = "V" Then $s3 = "z"
MsgBox(0,"Result", $c1 & $s1 & " " & $c2 & $s2 & " " & $c3 & $s3)

So I've tried this, and as usual its all over the place and probably totally wrong

#include <Tesseract.au3>
$coord0 = PixelSearch(0, 0, @DesktopWidth / 2, @DesktopHeight / 2, 0x3F5F60)
$c1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 283, $coord0[1] + 133, $coord0[0] + 296, $coord0[1] + 150, 0)
_SortText()
$s1 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 284, $coord0[1] + 149, $coord0[0] + 296, $coord0[1] + 164, 0)
_SortMarker()
$c2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 323, $coord0[1] + 133, $coord0[0] + 336, $coord0[1] + 150, 0)
_SortText()
$s2 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 324, $coord0[1] + 149, $coord0[0] + 336, $coord0[1] + 164, 0)
_SortMarker()
$c3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 363, $coord0[1] + 133, $coord0[0] + 376, $coord0[1] + 150, 0)
_SortText()
$s3 = _TesseractScreenCapture(0, "", 1, 1, $coord0[0] + 364, $coord0[1] + 149, $coord0[0] + 376, $coord0[1] + 164, 0)
_SortMarker()
MsgBox(0,"Result", $c1 & $s1 & " " & $c2 & $s2 & " " & $c3 & $s3)


Func _SortText()
    For $s = 1 to UBound($c1, 1) -1
If StringLeft($c1, 1) = "B" Then $c1 = "8"
If StringLeft($c1, 2) = "IU" Then $c1 = "T"
If StringLeft($c1, 2) = "H]" Then $c1 = "T"
If StringLeft($c1, 2) = "ID" Then $c1 = "T"
If StringLeft($c1, 1) = "0" Then $c1 = "D"
If StringLeft($c1, 1) = "O" Then $c1 = "D"
If StringLeft($c1, 2) = "41" Then $c1 = "D"
$c1 = StringLeft($c1, 1)
Next
EndFunc


Func _SortMarker()
    For $s = 1 to Ubound($s1, 1) -1
If StringLeft($s3, 1) = "Q" Then $s3 = "w"
If StringLeft($s3, 1) = "6" Then $s3 = "x"
If StringLeft($s3, 1) = "4" Then $s3 = "y"
If StringLeft($s3, 1) = "V" Then $s3 = "z"
Next
EndFunc

In my working script I get a msgbox containing something like "Fx Py Tw"

In the barmy functioned one I get Randon letters, and not in the correct format, as though its putting @LF into the msgbox

I would appreciate any education regarding my attempt at making a function.

I don't know anything about Tesseract.au3, but it looks like you are expecting a 1 or 2 character string to be returned. If so then you should not use UBound biut StringLen.

I think it would also be better to pass the string the the function than to use a global variable, and maybe use Select instead of working out the first 1 or 2 characters repeatedly.

.
.
.
_SortMarker($s3)
.
.

Func _SortMarker($sSM)
    if $sSM = '' then return

Local $s1 = StringLeft($s3, 1)
Switch $s1
 Case "Q" 
   $s3 = "w"
 Case "6"
    $s3 = "x"
 Case  "4" 
   $s3 = "y"
  Case  "V" 
     $s3 = "z"
 EndSwitch
EndFunc

If I misunderstood you are trying to parse a complete string then

.
.
.
_SortMarker($s3)
.
.

Func _SortMarker($sSM)
    Local $s1, $n
    If $sSM = '' Then Return
    For $n = 1 To StringLen($sSM)
        $s1 = StringMid($s3, $n 1)
        Switch $s1
            Case "Q"
                $s3 = "w"
            Case "6"
                $s3 = "x"
            Case "4"
                $s3 = "y"
            Case "V"
                $s3 = "z"
        EndSwitch
    Next
EndFunc   ;==>_SortMarker

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites
JohnOne

Thanks for your response Martin

I get the same result with the func you posted

The tesseract aspect is working fine, and I can change the incorrect returned letters, but I just have absolutely

no idead how to turn the two if segments into just two functions

I suspect your offering does that, but I cannot understand what it is doing :)

There are tons more peices to the script you see, here I have just $c1 $c2 $c3 but it goes upto $c16 and it just looks ridiculous and probably using more cpu and memory than it should

EDIT:

the only reason I use stringleft is that I think the od whitespace is being returned by tesseract and If I dont use it, the result is undesirale to me

I only want a single charactor returned you see

Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites
JohnOne

I often dont get my question across correctly, so I will try to rephrase it.

$c1 = "ID" (could be anything)

$c2 = "H" (could be anything)

$c3 = "41"(could be anything)

stuff =

If StringLeft($c1, 1) = "B" Then $c1 = "8"
If StringLeft($c1, 2) = "IU" Then $c1 = "T"
If StringLeft($c1, 2) = "H]" Then $c1 = "T"
If StringLeft($c1, 2) = "ID" Then $c1 = "T"
If StringLeft($c1, 1) = "0" Then $c1 = "D"
If StringLeft($c1, 1) = "O" Then $c1 = "D"
If StringLeft($c1, 2) = "41" Then $c1 = "D"
$c1 = StringLeft($c1, 1)

As you can see, its doing stuff, but only for $c1

I'm hpoing to make stuff into a function so it will perform stuff on $c2, $c3, $c4 etc without having to repeat the code each time.

And I'm totally lost

Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites
dantay9

Could you be looking for eval and assign? Here is an example:

$c1 = "2"
$c2 = "3"
$c3 = "4"
$c4 = "5"

Function(4)

Func Function($VariableNumber)
    For $i = 1 To $VariableNumber + 1
;~         If StringLeft(Eval("c" & $i), 1) = "B" Then Assign("c" & $i, "8")
;~         If StringLeft(Eval("c" & $i), 2) = "IU" Then Assign("c" & $i, "T")
;~         If StringLeft(Eval("c" & $i), 2) = "H]" Then Assign("c" & $i, "T")
;~         If StringLeft(Eval("c" & $i), 2) = "ID" Then Assign("c" & $i, "T")
;~         If StringLeft(Eval("c" & $i), 1) = "0" Then Assign("c" & $i, "D")
;~         If StringLeft(Eval("c" & $i), 1) = "O" Then Assign("c" & $i, "D")
;~         If StringLeft(Eval("c" & $i), 2) = "41" Then Assign("c" & $i, "D")
;~         Eval("c" & $i) = StringLeft(Eval("c" & $i), 1)
        ConsoleWrite(Eval("c" & $i) & @CRLF)
    Next
EndFunc   ;==>Function

Edit: Maybe this would be a bit easier and more varsatile.

;declare variables
Global $c1 = "2", $c2 = "3", $c3 = "4", $c4 = "5"

;put whatever variables that you want to perform Function on in here
Dim $array[4] = ["c1", "c2", "c3", "c4"]

;call function
Function($array)

Func Function($aArray)
    For $element In $aArray
        ;execute these commands for each variable in the array given
;~         If StringLeft(Eval($element), 1) = "B" Then Assign($element, "8")
;~         If StringLeft(Eval($element), 2) = "IU" Then Assign($element, "T")
;~         If StringLeft(Eval($element), 2) = "H]" Then Assign($element, "T")
;~         If StringLeft(Eval($element), 2) = "ID" Then Assign($element, "T")
;~         If StringLeft(Eval($element), 1) = "0" Then Assign($element, "D")
;~         If StringLeft(Eval($element), 1) = "O" Then Assign($element, "D")
;~         If StringLeft(Eval($element), 2) = "41" Then Assign($element, "D")
;~         Eval($element) = StringLeft(Eval($element), 1)
        ConsoleWrite(Eval($element) & @CRLF)
    Next
EndFunc   ;==>Function
Edited by dantay9

[font="Verdana"] [size="2"]"[/size][/font]Failure is not an option -- it comes packaged with Windows"[font="Verdana"][size="2"] Gecko Web Browser[/size][/font][font="Verdana"][size="2"], [/size][/font][font="Verdana"][size="2"]Yahtzee![/size][/font][font="Verdana"][size="2"], Toolbar Launcher (like RocketDock)[/size][/font][font="Verdana"][size="2"]Internet Blocker, Simple Calculator, Local Weather, Easy GDI+ GUI [/size][/font][font="Verdana"][size="2"]Triangle Solver, TCP File Transfer, [/size][/font][font="Verdana"][size="2"]Valuater's Autoit Wrappers[/size][/font][font="Verdana"][size="3"][size="2"][size="2"]OOP In AutoIt[/size][/size][/size][/font][font="Verdana"][size="2"][size="1"]Using Windows XP SP3, 1GB RAM, AMD Athlon Processor @ 2.1 GHzCheck me out at gadgets.freehostrocket.com[/size][/size][/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×