Regex with Variable

[lordsocke]

Hey there, my problem is that the Substring im looking for in my  Mainstring is changing a lot. 

So for example: 

$aRes = StringRegExp($text,$substring, 3)
FileWrite("found.txt", _ArrayToString($aRes, @crlf))

this returns just -1 while this:

$aRes = StringRegExp($text,"hello", 3)
FileWrite("found.txt", _ArrayToString($aRes, @crlf))

returns my the full array. What am I doing wrong?

[jguinch]

_ArrayToString returns -1 because $aRes is not an array : your $substring pattern is incorrect,

[lordsocke]

this:

$substring = $a1

Global $res = StringRegExp($text, $substring, 3)
If @error Then
    $nbOccurences = 0
Else
   $nbOccurences = UBound($res)
Endif
ConsoleWrite($nbOccurences & @LF)

is also not working without Array problems

[mikell]

31 minutes ago, lordsocke said:

$substring = $a1

Nice !  And what does the $a1 variable contain precisely ? 

[lordsocke]

A string witch has been read out by teserract.exe

[mikell]

Nice. Is it possible for us to have a look at this string ?

[lordsocke]

Just now, lordsocke said:

A string witch has been read out by teserract.exe

I think i found the problem, the string which came from teserract is smaller than the same word in the mainstring. Any solutions for that? For me they seem to be identical

[mikell]

Just now, lordsocke said:

the string which came from teserract is smaller than the same word in the mainstring.

Please explain. If the string (a word ?) exists in the main string then you should get a match

[lordsocke]

23 minutes ago, mikell said:

Please explain. If the string (a word ?) exists in the main string then you should get a match

exactly that is not happening 

[mikell]

Hmm. You definitely don't want to show this wicked string. Too bad, it will be difficult to help
So, guessing : does it contain newlines / special characters ?

[jguinch]

I think you just have to use :

$aRes = StringRegExp($text, "\Q" & $substring & "\E", 3)

but we cannot help you if you don't provide us an example of the content stored in $substring and $text

[mikell]

@jguinch
I'm afraid it's not so obvious. How do you conceptualise this : a word smaller than the same word ? 

 

[lordsocke]

Here is the code im talking about:

func tesseract()
_ScreenCapture_Capture(@DesktopDir&"\Image1.jpg",1223, 452,1647, 509)
Local $img_filename = "C:\Users\bla\Desktop\Image1.jpg"
$ocr_filename = "C:\Users\bla\Desktop\Image1"
$ocr_filename_and_ext ="C:\Users\bla\Desktop\Image1.txt"
Local $iPID = Run(@ComSpec & " /C " & "tesseract.exe """ & $img_filename & """ """ & $ocr_filename & """", @ProgramFilesDir & "\Tesseract-OCR", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
ProcessWaitClose($iPID)
FileOpen($ocr_filename_and_ext)
$a1= FileRead($ocr_filename_and_ext)
FileClose($ocr_filename_and_ext)
EndFunc

tesseract()

FileWriteline("bla.txt",$a1)
FileClose("bla.txt")

FileOpen("bla.txt")
$substring = FileRead("bla.txt")
FileClose("bla.txt")


$compare = StringCompare($substring,"string")
ConsoleWrite($compare)

 

[lordsocke]

this results for me in -1

Just now, lordsocke said:

Here is the code im talking about:

func tesseract()
_ScreenCapture_Capture(@DesktopDir&"\Image1.jpg",1223, 452,1647, 509)
Local $img_filename = "C:\Users\bla\Desktop\Image1.jpg"
$ocr_filename = "C:\Users\bla\Desktop\Image1"
$ocr_filename_and_ext ="C:\Users\bla\Desktop\Image1.txt"
Local $iPID = Run(@ComSpec & " /C " & "tesseract.exe """ & $img_filename & """ """ & $ocr_filename & """", @ProgramFilesDir & "\Tesseract-OCR", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
ProcessWaitClose($iPID)
FileOpen($ocr_filename_and_ext)
$a1= FileRead($ocr_filename_and_ext)
FileClose($ocr_filename_and_ext)
EndFunc

tesseract()

FileWriteline("bla.txt",$a1)
FileClose("bla.txt")

FileOpen("bla.txt")
$substring = FileRead("bla.txt")
FileClose("bla.txt")


$compare = StringCompare($substring,"string")
ConsoleWrite($compare)

 

 

[BrewManNH]

Isn't this the same script you are already asking for help with? If you can't get it to work, how do you expect it to compare 2 strings? You can't even get the text of the first string according to the other thread you have going, so I can't see how it would ever work in this instance

 

[lordsocke]

Okay, I found the problem. Tesseract made 2 invisible letters on the end of the String.  This works fine. Don´t know why.

$substring = StringTrimRight ($substring, 2)

[BrewManNH]

BTW, have you tried the Tesseract UDF?