Problem with StringInStr()

[Just_Plain_Cool]

Hello all...

I have a sporadic bug in the code below. Sometimes the StringInStr() does not find the "</TABLE>" even though it is there. I have checked the contents of the clipboard on the occasions where this does fail and clipboard does contain the correct string. Any ideas??

Thanks,

JPC

ClipPut($HTML)
Send("^v")
Sleep(200);added this delay in case things were happening too quickly for the system
Send("+{HOME}^c{RIGHT}");copy the last pasted line into the clipboard
$Teststring = ClipGet()
If StringInStr($TestString, "</TABLE>") Then
   $Passed = 1
Else
   $Passed = 0
EndIf
If $Passed = 0 Then
   MsgBox(0, "Error", "There may be a problem with this description.  Please preview this item before posting!")
EndIf

[DaveF]

Hello all...

I have a sporadic bug in the code below.  Sometimes the StringInStr() does not find the "</TABLE>" even though it is there.  I have checked the contents of the clipboard on the occasions where this does fail and clipboard does contain the correct string.  Any ideas??

Thanks,

JPC 

ClipPut($HTML)
Send("^v")
Sleep(200);added this delay in case things were happening too quickly for the system
Send("+{HOME}^c{RIGHT}");copy the last pasted line into the clipboard
$Teststring = ClipGet()
If StringInStr($TestString, "</TABLE>") Then
   $Passed = 1
Else
   $Passed = 0
EndIf
If $Passed = 0 Then
   MsgBox(0, "Error", "There may be a problem with this description.  Please preview this item before posting!")
EndIf

<{POST_SNAPBACK}>

Maybe another Sleep() after the ^c and before your call to ClipGet() ? Are you re-checking the clipboard on the failed occasions or the contents of $TestString?

[MHz]

$html = '11</TABLE>11'

ClipPut($HTML)
;~ Send("^v")
Sleep(200);added this delay in case things were happening too quickly for the system
;~ Send("+</TABLE>{HOME}^c{RIGHT}");copy the last pasted line into the clipboard
$Teststring = ClipGet()
$Passed = StringInStr($TestString, "</TABLE>")
If @error Then MsgBox(0, '', 'error')
If $Passed >= 1 Then
   MsgBox(0, "Success", "Passed! " & $Passed)
EndIf
If $Passed = 0 Then
   MsgBox(0, "Error", "There may be a problem with this description.  Please preview this item before posting!")
EndIf

Try this instead. Notice I have the $Passed infront of StringInStr. And I check the @error macro. I commented the sends for easy checking.

[Just_Plain_Cool]

$html = '11</TABLE>11'

ClipPut($HTML)
;~ Send("^v")
Sleep(200);added this delay in case things were happening too quickly for the system
;~ Send("+</TABLE>{HOME}^c{RIGHT}");copy the last pasted line into the clipboard
$Teststring = ClipGet()
$Passed = StringInStr($TestString, "</TABLE>")
If @error Then MsgBox(0, '', 'error')
If $Passed >= 1 Then
   MsgBox(0, "Success", "Passed! " & $Passed)
EndIf
If $Passed = 0 Then
   MsgBox(0, "Error", "There may be a problem with this description.  Please preview this item before posting!")
EndIf

Try this instead. Notice I have the $Passed infront of StringInStr. And I check the @error macro. I commented the sends for easy checking.

<{POST_SNAPBACK}>

Hi Mhz and DaveF,

Thank you both for your replies...

I tried Mhz's fix first, mainly because after reviewing it I found it to be cleaner code than mine, but also because I didn't want to believe that this bug could have been as simple as adding another Sleep().

Alas, the cleaner code did not solve the problem. However, the Sleep() did...

Thanks again guys...

JPC