Sign in to follow this  
Followers 0
kctvt

Problem with string XXX

18 posts in this topic

Hi there :) I have a problem with string and I need help.

Example I have 5 strings :

<tr class="alitem"><td>1</td><td>03192</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>

<tr class="alitem"><td>2</td><td>03224</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>

<tr class="alitem"><td>3</td><td>[b]03355[/b]</td><td>[b]24/11/2011 09:32:12[/b]</td><td>[b]This person is here now[/b]</td></tr>

<tr class="alitem"><td>4</td><td>02234</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>

<tr class="alitem"><td>3</td><td>[b]03355[/b]</td><td>[b]24/11/2011 09:32:12[/b]</td><td>[b]This person is here now[/b]</td></tr>

I only want find string "<tr class="alitem"><td>3</td><td>03355</td><td>xxxxxxxxxxxxxxxxxxx</td><td>This person is here now</td></tr>"

xxxxxxxxxxxxxxxxxxx : can be anything.

I dont know how to do this @_@ help me.

$Texts = _IEBodyReadText ($oIEXX)

If StringInStr ($Texts,"I only want find string "<tr class="alitem"><td>3</td><td>[b]03355[/b]</td><td>" & [b]xxxxxxxxxxxxxxxxxxx & [/b]</td><td>[b]This person is here now[/b]</td></tr>[b] [/b])

Msgbox (48, "Notice","BUZZ!" ,3)

Endif

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Yes. I tried StringRegExp . I lost all last night to do this @_@ But it not work. So , i come here , creat this topic, and need help :(( :

JohnOne, will you help me ? :

Edited by kctvt

Share this post


Link to post
Share on other sites

$Texts = FileReadLine ("xtest.txt",2)


if StringInStr ($Texts,'<tr class="alitem"><td>4</td><td>03192</td><td>24/' & [:alnum:] & '/2011') Then
Msgbox (48, "Notice","Buzz!" ,3)
EndIf

$Texts = FileReadLine ("xtest.txt",2)

if StringRegExp ($Texts,'<tr class="alitem"><td>4</td><td>03192</td><td>24/(.*?)/2011',1) = 1 Then
Msgbox (48, "Notice","Buzz!" ,3)
EndIf

and something more, but i deleted it >"<

Share this post


Link to post
Share on other sites

#include <Array.au3>

$sString = '<tr class="alitem"><td>1</td><td>03192</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>' & _
'<tr class="alitem"><td>2</td><td>03224</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>' & _
'<tr class="alitem"><td>3</td><td>[b]03355[/b]</td><td>[b]24/11/2011 09:32:12[/b]</td><td>[b]This person is here now[/b]</td></tr>' & _
'<tr class="alitem"><td>4</td><td>02234</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>'

$sString = StringRegExpReplace($sString, '(?ms).*?((?:<td>.*?</td>){3}).*?(</tr>)', '\1\2')
$aReturn = StringRegExp($sString, '(?s)(<td>.*?</td>)(<td>.*?</td>)(<td>.*?</td>)</tr>', 4)

Local $l
For $i = 0 To UBound( $aReturn ) -1
$l = $aReturn[$i]
_ArrayDelete($l, 0 ) ;Can be commented out to receive the full match.
_ArrayDisplay($l, "Item " & $i + 1)
Next
Ask if you don't get the code

Regards

1 person likes this

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

#include <IE.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#Include <Excel.au3>
#include <Word.au3>
#include <FTPEx.au3>
$oIEP2 = _IECreate ("http://vnptonline.net/bb/xxxx1.txt")
_IELoadWait ($oIEP2)

$Texts = _IEBodyReadHTML ($oIEP2)
$a = StringRegExp ($Texts,'<(?i>td>03355</td><td>(.*?)/2011(.*?)</td><td>This person is here now</(?i)td>',0)
Msgbox (48, "Notice",$a ,30)

if $a = 1 Then
Msgbox (48, "Notice","Buzz!" ,3)
EndIf

And this :

#include <IE.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#Include <Excel.au3>
#include <Word.au3>
#include <FTPEx.au3>
$oIEP2 = _IECreate ("http://vnptonline.net/bb/xxxx1.txt")
_IELoadWait ($oIEP2)

$Texts = _IEBodyReadHTML ($oIEP2)

$sString = StringRegExpReplace($Texts, '(?ms).*?((?:<td>.*?</td>){3}).*?(</tr>)', '\1\2')
$aReturn = StringRegExp($sString, '(?s)(<td>.*?</td>)(<td>.*?</td>)(<td>.*?</td>)</tr>', 4)

Local $l
For $i = 0 To UBound( $aReturn ) -1
$l = $aReturn[$i]
_ArrayDelete($l, 0 ) ;Can be commented out to receive the full match.
_ArrayDisplay($l, "Item " & $i + 1)
Next

Here everybody, this is my full code. Can you check it, it dont work.

If everything is ok, ,$a will be : 1

Edited by kctvt

Share this post


Link to post
Share on other sites

#include <Array.au3>
#include <IE.au3>

$oIEP2 = _IECreate ("http://vnptonline.net/bb/xxxx1.txt")
_IELoadWait ($oIEP2)

$sString =  _IEBodyReadHTML ($oIEP2)
ConsoleWrite( $sString & @CR )
See what you receive in the Console, its not the string you gave the forum to perform tests on ;)
1 person likes this

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

This should work

#include <Array.au3>

$sString = BinaryToString(InetRead("http://vnptonline.net/bb/xxxx1.txt"))

$sString = StringRegExpReplace($sString, '(?ms).*?((?:<td>.*?</td>){3}).*?(</tr>)', '\1\2')
$aReturn = StringRegExp($sString, '(?s)(<td>.*?</td>)(<td>.*?</td>)(<td>.*?</td>)</tr>', 4)

Local $l
For $i = 0 To UBound($aReturn) - 1
$l = $aReturn[$i]
_ArrayDelete($l, 0) ;Can be commented out to receive the full match.
_ArrayDisplay($l, "Item " & $i + 1)
Next

Please try some debugging before asking for help.

Regards :)

Edited by PhoenixXL
1 person likes this

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

Hi FoenixXL , thank so much :)

But I still have problem.

1. I use _IE.

2. String.

This is my code :

$oIEP2 = _IECreate ("http://vnptonline.net/testdemo/")
_IELoadWait ($oIEP2)
$oNameP2 = _IEGetObjById ($oIEP2,"txtUsername")
_IEFormElementSetValue ($oNameP2,"Username")
Sleep (100)
$oPassP2 = _IEGetObjById ($oIEP2,"txtPassword")
_IEFormElementSetValue ($oPassP2,"123456")
Sleep (100)
$oClickP2 = _IEGetObjById ($oIEP2,"cmdLogin")
_IEAction ($oClickP2,"click")
Sleep (1000)
_IELoadWait ($oIEP2)
Sleep (1000)
_IENavigate ($oIEP2,"http://vnptonline.net/testdemo/demo1234.php")
Sleep (2000)
_IELoadWait ($oIEP2)
Sleep (2000)

$oClickP2 = _IEGetObjById ($oIEP2,"FindxDsl")
_IEAction ($oClickP2,"click")
Sleep (1000)

$oClickP2 = _IEGetObjById ($oIEP2,"rbFindBy_username")
_IEAction ($oClickP2,"click")
Sleep (100)

Sleep (100)
$oName2P2 = _IEGetObjById ($oIEP2,"Find_hd")
_IEFormElementSetValue ($oName2P2,"petrojapan")
Sleep (100)
$oClick1P2 = _IEGetObjByName ($oIEP2,"submitButton")
_IEAction ($oClick1P2,"click")
Sleep (100)
_IELoadWait ($oIEP2)
Sleep (3000)
$sText = _IEBodyReadText ($oIEP2)
$sString = BinaryToString(_IEBodyReadHTML ($oIEP2))
;$sString = BinaryToString(InetRead($oIEP2))

$oForm = _IEGetObjById($oIEP2, "HdNhsl")
ConsoleWrite( $sString & @CR )

Select
Case StringInStr($sText, "Using Service")

$sString = StringRegExpReplace($sString, '(?ms).*?((?:<TD>.*?</TD>){4}).*?(</TR>)', '\1\2')
$aReturn = StringRegExp($sString, '(?s)(<TD>.*?</TD>)(<TD>.*?</TD>)(<TD>.*?</TD>)(<TD>.*?</TD>)</TR>', 4)

Local $l
For $i = 0 To UBound( $aReturn ) -1
$l = $aReturn[$i]
$ax = _ArrayToString($l,".", 1, 7)
Msgbox (48, "Notice",$ax,30)
If StringInStr($ax,"03192") and StringInStr($ax,"2011") and StringInStr($ax,"Online in server") Then

Msgbox (48, "Notice","BUZZ !!!",30)

Else
MsgBox(4096, "NOTICE", "Check this customer",1)
EndIf
Next

Case StringInStr($sText, "Stop service")
_ExcelWriteCell ($oData,"STOP",$a,3)

Case Else

MsgBox(4096, "Thông báo", "CANCEL",1)
     _ExcelWriteCell ($oData,"CANCEL",$a,3)
EndSelect

And this is code from ConsoleWrite

<DIV class=page>
<DIV id=headerHD>
<DIV id=menucontainer>
<DIV class=menuHD id=cssmenu>
<UL>
<UL>
<DIV id=main>
</FIELDSET>
<DIV class=groupbtn><INPUT class=button id=btnpass onclick=ClearHD() type=button value="Next"> </DIV>
<DIV id=tientrinh style="CLEAR: both; Z-INDEX: 1000; MARGIN-LEFT: 0px; OVERFLOW: auto; WIDTH: 100%; HEIGHT: 200px">
<TABLE class=table style="WIDTH: 100%">
<TBODY>
<TR class=item>
<TD>1 </TD>
<TD>03192 </TD>
<TD>28/03/2013 08:46:30 </TD>
<TD>Update service second time</TD></TR>
<TR class=alitem>
<TD>2 </TD>
<TD>12453 </TD>
<TD>20/03/2012 09:33:56 </TD>
<TD>Change number phone </TD></TR>
<TR class=item>
<TD>3 </TD>
<TD>12453 </TD>
<TD>20/03/2012 08:52:08 </TD>
<TD>Change address </TD></TR>
<TR class=alitem>
<TD>4 </TD>
<TD>14627 </TD>
<TD>19/03/2012 09:54:08 </TD>
<TD>Change name </TD></TR>
<TR class=item>
<TD>5 </TD>
<TD>03432 </TD>
<TD>24/11/2011 09:32:12 </TD>
<TD>Update service first time</TD></TR>
<TR class=alitem>
<TD>6 </TD>
<TD>0068 </TD>
<TD>08/04/2011 07:59:02 </TD>
<TD>Buy 2 more service </TD></TR>
<TR class=item>
<TD>7 </TD>
<TD>14214 </TD>
<TD>17/08/2009 10:19:22 </TD>
<TD>Visa :0518,Username:petrojanpan,4214,True </TD></TR>
<TR class=alitem>
<TD>8 </TD>
<TD>1414 </TD>
<TD>17/08/2009 10:18:31 </TD>
TBODY></TABLE></DIV></FORM>
<DIV id=dvFloating style="LEFT: 951px; POSITION: absolute; TOP: 10px">
<TABLE class=float_box cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD class=rec_left_top></TD>
<TD class=rec_top></TD>
<TD class=rec_right_top></TD></TR>
<TR>
<TR>
<TD class=rec_left_bottom></TD>
<TD class=rec_bottom></TD>
<TD class=rec_right_bottom></TD></TR></TBODY></TABLE></DIV></DIV>
<DIV class=center id=divHSinfo></DIV>
<DIV class=expand id=divExpand></DIV>
<UL class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" style="DISPLAY: none; Z-INDEX: 1; LEFT: 0px; TOP: 0px" role="listbox" jQuery15108276158049942242="11" aria-activedescendant="ui-active-menuitem"></UL>
<UL class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" style="DISPLAY: none; Z-INDEX: 1; LEFT: 0px; TOP: 0px" role="listbox" jQuery15108276158049942242="13" aria-activedescendant="ui-active-menuitem"></UL>
<UL class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" style="DISPLAY: none; Z-INDEX: 1; LEFT: 0px; TOP: 0px" role="listbox" jQuery15108276158049942242="15" aria-activedescendant="ui-active-menuitem"></UL>
<UL class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" style="DISPLAY: none; Z-INDEX: 1; LEFT: 0px; TOP: 0px" role="listbox" jQuery15108276158049942242="17" aria-activedescendant="ui-active-menuitem"></UL>
<UL class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" style="DISPLAY: none; Z-INDEX: 1; LEFT: 0px; TOP: 0px" role="listbox" jQuery15108276158049942242="19" aria-activedescendant="ui-active-menuitem"></UL>

And this important code :

<TR class=item>
<TD>1 </TD>
<TD>03192 </TD>
<TD>28/03/2013 08:46:30 </TD>
<TD>Update service second time</TD></TR>

Only accept : 03192

Only accept : Update service second time

Only accept time is : 2013

By the way , this code is ok :

#include <IE.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#Include <Excel.au3>
#include <Word.au3>
#include <FTPEx.au3>


$sString = BinaryToString(InetRead("[url="http://vnptonline.net/bb/xxxx1.txt"]http://vnptonline.net/bb/xxxx1.txt"[/url]))
ConsoleWrite( $sString & @CR )


$sString = StringRegExpReplace($sString, '(?ms).*?((?:<td>.*?</td>){4}).*?(</tr>)', '\1\2')
$aReturn = StringRegExp($sString, '(?s)(<td>.*?</td>)(<td>.*?</td>)(<td>.*?</td>)(<td>.*?</td>)</tr>', 4)




Local $l
For $i = 0 To UBound( $aReturn ) -1
$l = $aReturn[$i]

$ax = _ArrayToString($l,".", 1, 7)
Msgbox (48, "Notice",$ax,30)

If StringInStr($ax,"03355") and StringInStr($ax,"2011") and StringInStr($ax,"This person is here now") Then

Msgbox (48, "Notice","BUZZ! THIS GUY !!!",30)
EndIf

Next
Edited by kctvt

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

kctvt,

If you are trying to find out whether a string exists or not then you can do this

$sString = BinaryToString(InetRead("http://vnptonline.net/bb/xxxx1.txt"))

ConsoleWrite($sString & @LF)

if StringRegExp($sString, '<tr class="alitem"><td>3</td><td>03355</td><td>.*</td><td>This person is here now</td></tr>',0) = 1 then
    msgbox(0,'HIT','Person Logged On')
endif

kylomas

edit: disregard, was editing this when you posted...

Edited by kylomas
1 person likes this

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Share this post


Link to post
Share on other sites

deleted nonsense post...


Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Share this post


Link to post
Share on other sites

But I still have problem.

And the problem is ?

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

Hi PhonexXL , My problem is here :

#include 
#include 
#include 
#include 
#Include 
#include 
#include 


$sString = BinaryToString(InetRead("http://vnptonline.net/bb/xxxx2.txt"))
ConsoleWrite( $sString &amp; @CR )



Local $l
For $i = 0 To UBound( $aReturn ) -1
$l = $aReturn[$i]

$ax = _ArrayToString($l,".", 1, 7)
Msgbox (48, "Notice",$ax,30)

If StringRegExp($sString,'<td>03355</td>' & @CR &'<td> .* /2011 .* </td>' & @CR & '<td>This person is here now</td></tr>',0) = 1 Then

Msgbox (48, "Notice","BUZZ! THIS GUY !!!",30)
EndIf

Next

Code website is :

<tr class="alitem">
<td>1</td>
<td>03192</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>
<tr class="alitem">
<td>2</td>
<td>03224</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>
<tr class="alitem">
<td>3</td>
<td>03355</td>
<td>24/11/2011 09:32:12</td>
<td>This person is here now</td></tr>
<tr class="alitem">
<td>4</td>
<td>02234</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>

Not be :

<tr class="alitem"><td>1</td><td>03192</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>
<tr class="alitem"><td>2</td><td>03224</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>
<tr class="alitem"><td>3</td><td>03355</td><td>24/11/2011 09:32:12</td><td>This person is here now</td></tr>
<tr class="alitem"><td>4</td><td>02234</td><td>24/11/2011 09:32:12</td><td>This person is not here anymore</td></tr>

I try to run this code, but I cant @_@

So.... What'll do with :

<tr class="alitem">

<td>3</td>

<td>03355</td>

<td>24/11/2011 09:32:12</td>

<td>This person is here now</td></tr>

It dont run >''<

Edited by kctvt

Share this post


Link to post
Share on other sites

#include <Array.au3>

$sString = BinaryToString(InetRead("http://vnptonline.net/bb/xxxx2.txt"))
ConsoleWrite($sString & @CR)

$aReturn = StringRegExp( $sString, "(?is)<tr[^>]+>.*?<td>(.*?)</td>.*?<td>(.*?)</td>.*?<td>(?:\d{1,2}|/)+(\d{4}).*?</td>.*?<td>(.*?)</td>", 4 )

Local $l
For $i = 0 To UBound($aReturn) - 1
$l = $aReturn[$i]
;~  _ArrayDisplay($l)
If $l[2] = "03355" And $l[4] = "This person is here now" And $l[3] = "2011" Then _ArrayDisplay( $l,  "BUZZ!! The Guy Here." )
Next

#cs
<tr class="alitem">
<td>1</td>
<td>03192</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>
<tr class="alitem">
<td>2</td>
<td>03224</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>
<tr class="alitem">
<td>3</td>
<td>03355</td>
<td>24/11/2011 09:32:12</td>
<td>This person is here now</td></tr>
<tr class="alitem">
<td>4</td>
<td>02234</td>
<td>24/11/2011 09:32:12</td>
<td>This person is not here anymore</td></tr>
#ce
Thumbs up if it helped ;)
1 person likes this

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites

Thanks PhoenixXL , :)

My code is running now , and this is my code :

$oIEP2 = _IECreate ("http://vnptonline.net/testdemo/")
_IELoadWait ($oIEP2)
$oNameP2 = _IEGetObjById ($oIEP2,"txtUsername")
_IEFormElementSetValue ($oNameP2,"Username")
Sleep (100)
$oPassP2 = _IEGetObjById ($oIEP2,"txtPassword")
_IEFormElementSetValue ($oPassP2,"123456")
Sleep (100)
$oClickP2 = _IEGetObjById ($oIEP2,"cmdLogin")
_IEAction ($oClickP2,"click")
Sleep (1000)
_IELoadWait ($oIEP2)
Sleep (1000)
_IENavigate ($oIEP2,"http://vnptonline.net/testdemo/demo1234.php")
Sleep (2000)
_IELoadWait ($oIEP2)
Sleep (2000)

$oClickP2 = _IEGetObjById ($oIEP2,"FindxDsl")
_IEAction ($oClickP2,"click")
Sleep (1000)

$oClickP2 = _IEGetObjById ($oIEP2,"rbFindBy_username")
_IEAction ($oClickP2,"click")
Sleep (100)

Sleep (100)
$oName2P2 = _IEGetObjById ($oIEP2,"Find_hd")
_IEFormElementSetValue ($oName2P2,"petrojapan")
Sleep (100)
$oClick1P2 = _IEGetObjByName ($oIEP2,"submitButton")
_IEAction ($oClick1P2,"click")
Sleep (100)
_IELoadWait ($oIEP2)
Sleep (3000)
$sText = _IEBodyReadText ($oIEP2)
$sString = BinaryToString(_IEBodyReadHTML ($oIEP2))

$oForm = _IEGetObjById($oIEP2, "HdNhsl")
ConsoleWrite( $sString & @CRLF )

Select
Case StringInStr($sText, "Using Service")

If StringRegExp($sString, '<TR class=.*tem>' & @CRLF & '<TD>.*</TD>' & @CRLF & '<TD>03192 </TD>' & @CRLF & '<TD>.*/2011 .*</TD>' & @CRLF & 'Online in server .*</TD></TR>',0) = 1 then

MsgBox(4096, "NOTICE", "BUZZ !!! HERE, THIS GUY ",122)

Else
MsgBox(4096, "NOTICE", "Nothing happen",1)
EndIf


Case StringInStr($sText, "Stop service")
_ExcelWriteCell ($oData,"STOP",$a,3)

Case Else

MsgBox(4096, "NOTICE", "CANCEL",1)
_ExcelWriteCell ($oData,"CANCEL",$a,3)
EndSelect

KEY IS : @CRLF not @CR , not @LF . KEY IS : @CRLF

However, I have new problem. After I know what I want to chose , I want to know exaclly time.

Such as :

<tr class="alitem">
<td>3</td>
<td>03355</td>
<td>24/11/2011 09:32:12</td>
<td>This person is here now</td></tr>

This is right infomation, I got. But, I want to know the time. The time is : "24/11/2011"

So... how can I take that time with my new code ?

Share this post


Link to post
Share on other sites

#18 ·  Posted (edited)

kctvt,

The code you posted does NOT run, even after I added all required includes. The Excel object ($odata) is missing.

As to your question about the date/time:

Look at PhoenixXL's post #16 if you want to return values and not just true/false.

One last thing. You will get better help if you clearly define what results you need and provide complete information. So far we have been chasing a moving target. If language is a problem, ue the Google translator.

Good Luck,

kylomas

edit: spelling

Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

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  
Followers 0