Sign in to follow this  
Followers 0
MikeTranser

Show Information (BodyHtml)

6 posts in this topic

#1 ·  Posted (edited)

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



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

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

#4 ·  Posted (edited)

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

Please help... This is small problem.

Share this post


Link to post
Share on other sites

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