string between ???

[Maximus1]

i`m trying to read some text from a website but it won`t work.

cn you help me out please?

#include <IE.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include "C:\Dokumente und Einstellungen\t.nawrath\Desktop\autoit\install\Include\Array.au3"
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

$left = '* html body { margin-top: 0px; }'
$right = '.sans { font-family: verdana,arial,helvetica,sans-serif; font-size: small; }'

$oIE = _IECreateEmbedded ()
$gui = GUICreate("Embedded Internet Explorer", 1024, 850,(@DesktopWidth-1920)/2, (@DesktopHeight-1080)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICtrlCreateObj($oIE, 10, 40 , 1000 , 700)
$GUI_Button_Back    = GuiCtrlCreateButton   ("Back",     10, 800, 100,  30)
$GUI_Button_Forward = GuiCtrlCreateButton   ("Forward", 120, 800, 100,  30)
$GUI_Button_Home    = GuiCtrlCreateButton   ("Home",    230, 800, 100,  30)
$GUI_Button_Stop    = GuiCtrlCreateButton   ("Stop",    330, 800, 100,  30)
$GUI_Button_ueber   = GuiCtrlCreateButton   ("Übertragen",    430, 800, 100,  30)
GUISetState()

_IENavigate ($oIE, "http://www.amazon.de")
_IELoadWait ($oIE)
BinaryToString($oIE)
$source = _StringBetween($oIE, $left,$right)
_ArrayDisplay($source,"test")                              ;does not show anything
MsgBox(0,"",""& $source[0])                                ;gives an error

==> Subscript used with non-Array variable.:

MsgBox(0,"",""& $source[0])

MsgBox(0,"",""& $source^ ERROR

Why and how to do it the right way?

[wakillon]

Try

_IENavigate ($oIE, "http://www.amazon.de")
_IELoadWait ($oIE)
$sHTML = _IEDocReadHTML ($oIE)
;ConsoleWrite ( "$sHTML : " & $sHTML & @Crlf )
$source = _StringBetween($sHTML, $left,$right)
If Not @error Then
     _ArrayDisplay($source,"test")                          
     MsgBox(0,"",""& $source[0])      
EndIf

Edited December 22, 2010 by wakillon

[Maximus1]

hi, thanks it worked.

after i added it to my script, it did not work anymore. :-(

can you help me again please?

in the following html code i wan`t to find "Steuerkuriosa seit Menschengedenken. Trostbilder für Steuerzahler aus fünf Jahrtausenden"

<tr>
    <td class="cell">
      <div class="tiny">
    <strong>
      Titel</strong>
  </div>
Steuerkuriosa seit Menschengedenken. Trostbilder für Steuerzahler aus fünf Jahrtausenden<p class="tiny">
  <strong>

the following will always present the error msgbox at Else.

Global $left = ''
Global $right = '<p class="tiny">'
.
.
.
.
.
.
_IELoadWait ($oIE)
$sHTML = _IEDocReadHTML ($oIE)
;ConsoleWrite ( "$sHTML : " & $sHTML & @Crlf )
$source = _StringBetween($sHTML, $left,$right)
If Not @error Then
    _ArrayDisplay($source,"test")                          
    MsgBox(0,"",""& $source[0])
Else
    MsgBox(0,"","fehler nicht gefunden")            
EndIf

Edited December 23, 2010 by Maximus1

[ajag]

maximus1,

this works for me

#Include <Array.au3>
#Include <String.au3>

Local $Text = '<tr>     <td class="cell">      <div class="tiny">    <strong>      Titel</strong>  </div>Steuerkuriosa seit Menschengedenken. Trostbilder für Steuerzahler aus fünf Jahrtausenden<p class="tiny">   <strong>'

Global $left = '</div>'
Global $right = '<p class="tiny">'

$source = _StringBetween($Text, $left,$right)
If Not @error Then
    _ArrayDisplay($source,"test")
    MsgBox(0,"",""& $source[0])
Else
    MsgBox(0,"","fehler nicht gefunden")
EndIf

A-Jay

[Maximus1]

thanks :-)

i had to change it a little bit. now i have a problem with linfeeds in the text. can you tell me how to eliminate them

_IELoadWait ($oIE)
$sText = _IEBodyReadText ($oIE)
$source1 = _StringBetween($sText, $left1,$right1)
If @error Then
    MsgBox(0,"","fehler nicht gefunden")
EndIf
$produkt = $source1[0]

[ajag]

You could eliminate the linefeeds before cutting the string like

$sText = StringReplace ( $sText, @LF, "" )  ; eliminates all linefeeds
$sText = StringReplace ( $sText, @CR, "" )  ; eliminates all carriagereturn
$sText = StringReplace ( $sText, @CRLF, "" )  ; eliminates all carriagereturn-linefeeds

A-Jay

[Jos]

You could eliminate the linefeeds before cutting the string like

$sText = StringReplace ( $sText, @LF, "" )  ; eliminates all linefeeds
$sText = StringReplace ( $sText, @CR, "" )  ; eliminates all carriagereturn
$sText = StringReplace ( $sText, @CRLF, "" )  ; eliminates all carriagereturn-linefeeds

A-Jay

Don't think you would need the @CRLF replace any more.

[Maximus1]

thanks to all of you. :-)

my tool is ready now (i hope so).