Rip text from a website?

[Rorka]

Okay I want to rip text from a website, is this possible?

I want to get the version number which is shown like this:

Current Version: 0.2

So I only require the 0.2 part.

the website link is: Clicky

Thanks in advance

[jvanegmond]

Get text from website: InetGetSource

Get text from text: StringInStr, StringMid, StringLeft, StringRegExp

[Mat]

IE functions will do it.

Read the helpfile: User Defined Function ==> IE Management

Mat

Edit: But InetGet is better

Edited November 8, 2009 by Mat

[danielkza]

Try that (worked for me):

expandcollapse popup

#AutoIt3Wrapper_Change2CUI=y

#include <INet.au3>

Global Const $URL = "http://www.mmowned.com/forums/bots-programs/266946-release-beta-theexplorer-updated-04-11-09-a.html"
ConsoleWrite("Loading URL: " & $URL & @CRLF)

Global $Source = _InetGetSource($URL)
If Not StringLen($Source) Then
    ;MsgBox(16, @ScriptName, StringFormat("Error loading the following page.\n\nURL: %s", $URL))
    ConsoleWrite("Error loading URL." & @CRLF) ; '" & $URL & "'" & @CRLF)

    Exit
EndIf

; Find posts div
Global $CurrentVersion = ""
Global $posPos = 0
Global $divPos = StringRegExp($Source,'<div[^>]+id\s*=\s*"posts"[^>]*>', 0)
If $divPos Then
    $divPos = @extended
    ; Find first post
    Global $PostID = StringRegExp($Source, '<div[^>]+id\s*=\s*"post_message_(\d+)"[^>]*>', 1, $divPos)
    $postPos = @extended

    If Not @error And StringIsInt($PostID[0]) Then
        ; Find Current version
        $CurrentVersion = StringRegExp($Source, "(?i)Current\s*Version[^:]*:\s*(\d+\.\d+)", 1, $postPos)
        If Not @error Then
            $CurrentVersion = $CurrentVersion[0]
        EndIf
    EndIf
EndIf

If Not StringLen($CurrentVersion) Then
    ;MsgBox(64, @ScriptName, "Current Version: " & $CurrentVersion)
    ConsoleWrite("Version not found" & @CRLF)
Else
    ;MsgBox(16, @ScriptName, "Current Version not found.")
    ConsoleWrite("Current Version: " & $CurrentVersion & @CRLF)
EndIf

; Sleep a little so it's actually possible to check the version
If @Compiled Then
    Sleep(5000)
EndIf

[Rorka]

Try that (worked for me):

expandcollapse popup

#AutoIt3Wrapper_Change2CUI=y

#include <INet.au3>

Global Const $URL = "http://www.mmowned.com/forums/bots-programs/266946-release-beta-theexplorer-updated-04-11-09-a.html"
ConsoleWrite("Loading URL: " & $URL & @CRLF)

Global $Source = _InetGetSource($URL)
If Not StringLen($Source) Then
    ;MsgBox(16, @ScriptName, StringFormat("Error loading the following page.\n\nURL: %s", $URL))
    ConsoleWrite("Error loading URL." & @CRLF) ; '" & $URL & "'" & @CRLF)

    Exit
EndIf

; Find posts div
Global $CurrentVersion = ""
Global $posPos = 0
Global $divPos = StringRegExp($Source,'<div[^>]+id\s*=\s*"posts"[^>]*>', 0)
If $divPos Then
    $divPos = @extended
    ; Find first post
    Global $PostID = StringRegExp($Source, '<div[^>]+id\s*=\s*"post_message_(\d+)"[^>]*>', 1, $divPos)
    $postPos = @extended

    If Not @error And StringIsInt($PostID[0]) Then
        ; Find Current version
        $CurrentVersion = StringRegExp($Source, "(?i)Current\s*Version[^:]*:\s*(\d+\.\d+)", 1, $postPos)
        If Not @error Then
            $CurrentVersion = $CurrentVersion[0]
        EndIf
    EndIf
EndIf

If Not StringLen($CurrentVersion) Then
    ;MsgBox(64, @ScriptName, "Current Version: " & $CurrentVersion)
    ConsoleWrite("Version not found" & @CRLF)
Else
    ;MsgBox(16, @ScriptName, "Current Version not found.")
    ConsoleWrite("Current Version: " & $CurrentVersion & @CRLF)
EndIf

; Sleep a little so it's actually possible to check the version
If @Compiled Then
    Sleep(5000)
EndIf

Thanks.

[DaleHohm]

Edit: But InetGet is better

Not better, just different. If the content you want is created with dynamic HTML or is behind authentication, INetGet will not do it for you, but the IE functions will.

Dale