Jump to content
Sign in to follow this  
MikeTranser

Show Information (BodyHtml)

Recommended Posts

MikeTranser

Hello how to download information in website to me?

Iam try but my script don't working...

WebSite HTML:

<td class='center' colspan='2'>online (145):</td>

First Script:

$ttt = _StringBetween($I, 'online (', '):</td>')
    $ttt2 = StringSplit($ttt, " ")
        MsgBox(64, "Test", $ttt2)

Second Script:

$bodyhtml = _IEBodyReadHTML($I)
$s = StringInStr($bodyhtml, 'online (', '):</td>')
MsgBox(64, "Test", $s)

Two script Not working... Everyone have script read information in $I(Bodyhtml) online("HOW")?

Iam need read in MsgBox online ("HOW")

Mike,

Edited by MikeTranser

Share this post


Link to post
Share on other sites
Steveiwonder

Have a look at

_IETableWriteToArray ( ByRef $o_object [, $f_transpose] )

In the help file, this allows you too download info from tables to a Multi-Dimentional Array..

GL


They call me MrRegExpMan

Share this post


Link to post
Share on other sites
Steveiwonder

Meaby you give me done script?

Take a look in the helpfile, have you attempted anything yourself?


They call me MrRegExpMan

Share this post


Link to post
Share on other sites
MikeTranser

Ohh Yeach i know :( and my script working ! But i have small problem on string:

Func test()
$html = _IEBodyReadHTML($I)
$array = StringRegExp($html, 'sztamki online<(?i)/b> (.*?)</(?i)td>', 3)
for $i = 0 to UBound($array) - 1
    msgbox(0, "RegExp Test with Option 2 - " & $i, $array[$i])
    Next
    EndFunc

Web HTML:

sztamki online (150):</td>

Problem is:

MSgBox Text is: "(150):"

Iam need edit string and go

MsgBox Text: "150"
Edited by MikeTranser

Share this post


Link to post
Share on other sites
MikeTranser

Please help... This is small problem.

Share this post


Link to post
Share on other sites
MikeTranser

Okay ^^ I make this script writer.au3 everyone need i write here:

If Not FileExists("writer.txt") Then
    $plik = "writer.txt"
    $f = FileOpen("writer.txt", 2)
    FileClose($f)
    IniWriteSection($plik, "Writer", "")
EndIf
$plik = "writer.txt"
$w = 0
$text = 0
$text3 = 0
While 1
    $w = $w + 1
    $text = $text + 1
    $text3 = $text3 + 1
    IniWrite($plik, "Writer", "Case '("& $text &")'", "")
    IniWrite($plik, "Writer", "$online = "& $text3, "")
    TrayTip("Bot", "WykonaƂem juz"& $w, 0, 1)
    Sleep(10)
    test()
WEnd
func test()
    IF $w = 151 Then
FileOpen("writer.txt")
        Exit
    EndIf
    EndFunc

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.