Problem with string XXX

kctvt · March 28, 2013

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

JohnOne · March 28, 2013

Have you tried anything at all?

kctvt · March 28, 2013

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 March 28, 2013 by kctvt

JohnOne · March 28, 2013

Hi JohnOne, I need you help. I really need....
Here , this's my problem.
I really dont know how to fix this problem.

post the code of everything you have tried.

Please do not use PM

kctvt · March 28, 2013

$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 >"<

JohnOne · March 28, 2013

Take a look at this thread, it is very similar you your own.

PhoenixXL · March 28, 2013

#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

kctvt · March 28, 2013

#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 March 28, 2013 by kctvt

PhoenixXL · March 28, 2013

#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

PhoenixXL · March 28, 2013

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 March 28, 2013 by PhoenixXL

kctvt · March 28, 2013

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 March 28, 2013 by kctvt

kylomas · March 28, 2013

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 March 28, 2013 by kylomas

kylomas · March 28, 2013

deleted nonsense post...

PhoenixXL · March 28, 2013

But I still have problem.

And the problem is ?

kctvt · March 28, 2013

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 :

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

It dont run >''<

Edited March 28, 2013 by kctvt

PhoenixXL · March 29, 2013

#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

kctvt · March 29, 2013

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 ?

kylomas · March 29, 2013

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 March 29, 2013 by kylomas

Problem with string XXX

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members