Extract string in HTML

jerem488 · August 3, 2014

Hi all,

sorry for my language...

I have a problem, for quite some time with my code.

I have a text like this :

Quote

<div class="dataCard sc">

<div class="localisationBlock">

<p><strong>Agence Creusot (Le)</strong><br>45 r Maréchal Foch<br>71200 Creusot (Le)</p>



<ul>

<li>

<a href="#null" data-pjlb="{"url":"#aHR0cDovL3d3dy5wYWdlc2phdW5lcy5mci9mZC1tZWRpYS9jb250ZW51RkRNZWRpYT9pZEJsb2NBbm5vbmNldXI9MDAxNjgyNDAwMDAwMTFDMDAwMSZpbmRleEluc2NyaXB0aW9uU2VsZWN0aW9ubmVlPTE0JnR5cGVPbmdsZXRTZWxlY3Rpb25uZT1QTEFO"}" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idTag":"PLAN","pos":8}">Plan</a></li>

<li>

<a href="#null" data-pjlb="{"url":"#aHR0cDovL3d3dy5wYWdlc2phdW5lcy5mci9mZC1tZWRpYS9jb250ZW51RkRNZWRpYT9pZEJsb2NBbm5vbmNldXI9MDAxNjgyNDAwMDAwMTFDMDAwMSZpbmRleEluc2NyaXB0aW9uU2VsZWN0aW9ubmVlPTE0JnR5cGVPbmdsZXRTZWxlY3Rpb25uZT1JVElORVJBSVJF"}" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idTag":"ITI","pos":8}">Itinéraire</a></li>

</ul>

</div>

<div class="contactBlock " id="contactBlock-00168240000011C0001-8">

<p id="userContactTel00168240000011C0001-8" class="userContactTel btnShowNumber">

<a href="#contactList00168240000011C0001-8" class="linkButtonS1 withPicto picTel JS_PJ" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idProduit":"1","idTag":"CONTACTER-PAR-TELEPHONE","pos":8}" data-pjmyhistosearch_proclic="{"id":"05778040"}" data-pjtoggleclass="{klass:'displayedNumber',sel:'#contactBlock-00168240000011C0001-8'}" data-pjcookie="{name:'idBlocUnmasked',value:'00168240000011C0001',domain:'pagesjaunes.fr',action:'plus'}"><span class="picto"></span>

Afficher<br>le numéro</a></p>

<ul id="contactList00168240000011C0001-8" class="blocPhoneNumber">

<li class="hideTel">

<strong>.09 74 50 3227</strong>

</li>

</ul>

<br>

</div>

<div class="userContrib sc">

<ul>

<li>

<a href="#null" class="opinion" data-pjlb="{"url":"#aHR0cHM6Ly93d3cucGFnZXNqYXVuZXMuZnIvdHJvdXZlcmxlc3Byb2Zlc3Npb25uZWxzL2ZpY2hlRGV0YWlsbGVlL2F2aXMvZGVwb3QuZG8/aWRCbG9jQW5ub25jZXVyPTAwMTY4MjQwMDAwMDExQzAwMDEmaW5kZXhJbnNjcmlwdGlvblNlbGVjdGlvbm5lZT0xNA=="}" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idTag":"BA-ECRIRE-AVIS-1ER","pjscript":"xt_click({},'C','{%xtn2}','Liens_edito_BI_LR_1::Ecrire_1er_avis','N');","pos":8}" title="Soyez le 1er à écrire un avis">Soyez le 1er à écrire un avis</a></li>

</ul>

</div>

</div>

<div class="moreDataCard sc">

<div class="mentionsOblogatoiresContainer sc">

<p class="JS_PJ mentionsOblogatoires withTooltip" data-pjtooltip="{dtanchor:'popMentions-0'}" id="aMentions-0">

Avertissement crédit</p>

<dl class="js_hide">

<dt class="tooltip mogmoiCard sc"><a name="popMentions-0"></a></dt>

<dd>

<div class="blockTooltip hg">

<div class="boxRoundTopL">

<div class="boxRoundTopR">

<p><strong>Avertissement crédit</strong></p>

<p>Aucun versement, de quelque nature que ce soit, ne peut être exigé d'un particulier, avant l'obtention d'un ou plusieurs prêts d'argent.</p>

</div>

</div>

<div class="boxRoundBottomL">

<div class="boxRoundBottomR"> </div>

</div>

<span class="arrow"> </span>

</div>

</dd>

</dl>

</div>

<div class="moreCoordBlock">

<div class="sc">

<div class="localisationBlock">

<p class="itemCoord"><strong>Appels Particuliers</strong><br>206 chem des 4 Pilles<br>71000 Mâcon</p>

<a href="http://www.pagesjaunes.fr/pros/00322525#onglet-infos" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idTag":"PLUS-D-INFOS","pjscript":"xt_click({},'C','{%xtn2}','Liens_edito_BI_LR_1::Plus_informations_autre_adresse','N');","pos":8}">+ d’infos</a></div>

<div class="contactBlock " id="contactBlock-00168240000011C0001-8-2">

<p id="userContactTel00168240000011C0001-8-2" class="userContactTel btnShowNumber">

<a href="#contactList00168240000011C0001-8-2" class="linkButtonS1 withPicto picTel JS_PJ" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idProduit":2,"idTag":"CONTACTER-PAR-TELEPHONE","pos":8}" data-pjmyhistosearch_proclic="{"id":"00322525"}" data-pjtoggleclass="{klass:'displayedNumber',sel:'#contactBlock-00168240000011C0001-8-2'}" data-pjcookie="{name:'idBlocUnmasked',value:'00168240000011C0001',domain:'pagesjaunes.fr',action:'plus'}"><span class="picto"></span>

Afficher<br>le numéro</a></p>

<br>

<ul id="contactList00168240000011C0001-8-2" class="blocPhoneNumber">

<li class="hideTel">

<strong>.09 74 75 0272</strong>

</li>

</ul>

</div>

</div>

<div class="sc">

<div class="localisationBlock">

<p class="itemCoord"><strong>Appels Agriculteurs</strong><br>206 chem des 4 Pilles<br>71000 Mâcon</p>

<a href="#null" data-pjlb="{"url":"#aHR0cDovL3d3dy5wYWdlc2phdW5lcy5mci9mZC1tZWRpYS9jb250ZW51RkRNZWRpYT9pZEJsb2NBbm5vbmNldXI9MDAxNjgyNDAwMDAwMTFDMDAwMSZpbmRleEluc2NyaXB0aW9uU2VsZWN0aW9ubmVlPTImdHlwZU9uZ2xldFNlbGVjdGlvbm5lPUlORk8="}" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idTag":"PLUS-D-INFOS","pjscript":"xt_click({},'C','{%xtn2}','Liens_edito_BI_LR_1::Plus_informations_autre_adresse','N');","pos":8}">+ d’infos</a></div>

<div class="contactBlock " id="contactBlock-00168240000011C0001-8-3">

<p id="userContactTel00168240000011C0001-8-3" class="userContactTel btnShowNumber">

<a href="#contactList00168240000011C0001-8-3" class="linkButtonS1 withPicto picTel JS_PJ" data-pjstats="{"idRequete":"140670850297018226","typeBloc":"CV_LVS","genreBloc":"1","idProduit":3,"idTag":"CONTACTER-PAR-TELEPHONE","pos":8}" data-pjmyhistosearch_proclic="{"id":"00322525"}" data-pjtoggleclass="{klass:'displayedNumber',sel:'#contactBlock-00168240000011C0001-8-3'}" data-pjcookie="{name:'idBlocUnmasked',value:'00168240000011C0001',domain:'pagesjaunes.fr',action:'plus'}"><span class="picto"></span>

Afficher<br>le numéro</a></p>

<br>

<ul id="contactList00168240000011C0001-8-3" class="blocPhoneNumber">

<li class="hideTel">

<strong>.09 74 75 0273</strong>

</li>

</ul>

</div>

</div>

</div>

And I have this code (it d'oesnt work) :

$Text = FileRead(@DesktopDir & "\lrvisitcard.html")
$ScClass = StringInStr($Text, 'class="sc"')
$NextBlocTexte = StringMid($Text, $ScClass)
Local $Between = "", _
    $Div = 0, _
    $StartSDiv = 1, _
    $BetweenStart
While 1
    If $BetweenStart Then
        $CountSDiv = StringInStr($BetweenStart, "</div")
    Else
        $CountSDiv = StringInStr($NextBlocTexte, "</div")
    EndIf
    If $CountSDiv <> 0 Then
        If $BetweenStart Then
            $Between = StringLeft($BetweenStart, $CountSDiv)
        Else
            $Between = StringLeft($NextBlocTexte, $CountSDiv)
        EndIf
        $StartDiv = 1
        While 1
            $CountDiv = StringInStr($Between, "<div", 0, 1, $StartDiv)
            If $CountDiv <> 0 Then
                $StartDiv += $CountDiv
                $Div += 1
            Else
                ExitLoop
            EndIf
        WEnd
        $StartSDiv2 = 1
        While 1
            $CountSDiv2 = StringInStr($Between, "</div", 0, 1, $StartSDiv2)
            If $CountSDiv2 <> 0 Then
                $StartSDiv2 += $CountSDiv2
                $Div -=1
            Else
                ExitLoop
            EndIf
        WEnd
        If $Div = 0 Then
            $Between = StringLeft($NextBlocTexte, $StartSDiv)
            ExitLoop
        Else
            $BetweenStart = StringMid($NextBlocTexte, $CountSDiv + 5)
        EndIf
    Else
        ExitLoop
    EndIf
WEnd

I search to extract the text between class="sc" and the end of this div. But in my text file, I have some group --> class="sc" ... </div <--- to extract

Ask me if you don't understand my explications !

Thanks

computergroove · August 3, 2014

#include <array.au3>
#include <File.au3>
#include <String.au3>

Global $temp

Global $aArray[0]
     $temp = FileRead(@ScriptDir & '\Irvisitcard.htm');open the webppage
     $aArray = _StringBetween($temp,'class="sc">','</div>',1)
     _ArrayDisplay($aArray)

computergroove · August 3, 2014

#include <array.au3>
#include <File.au3>
#include <String.au3>

Global $temp

Global $aArray[0]
     $temp = FileRead(@ScriptDir & '\Irvisitcard.htm');open the webppage
     $aArray = _StringBetween($temp,'class="sc">','</div>')
     MsgBox(0,"123",$aArray[0])

This one actually shows all the data in a msgbox

Muzaiyan · August 3, 2014

are you looking for this....

_IEBodyReadText()

find here _IEBodyReadText

jerem488 · August 3, 2014

I don't use _ie function because I have many bugs

To recover the source I use :

$URL = "http://www.google.fr
$HTTP = ObjCreate("winhttp.winhttprequest.5.1")
$HTTP.Open("GET", $URL)
$HTTP.Send()
$HTTP.WaitForResponse()
$Source = $HTTP.Responsetext
$Statut = $HTTP.Status
If $Statut == 200 Then
EndIf

And I use regex and other function like stringmid, _stringbetween, stringleft, ...

It's more fast and I have'nt bug like with _ie function

computergroove · August 3, 2014

So did my suggestion work or what?

jerem488 · August 3, 2014

No, because it's not the </div> of the <div class="sc"

There is other <div> </div> in the principal <div>

computergroove · August 3, 2014

Is the <DIV> count the same every time? Does the script need to count the number of <div>'s and count and match them with the </Div>'s?

jerem488 · August 3, 2014

No there is not the same number of <div> :-(

BrewManNH · August 3, 2014

On 8/3/2014 at 7:40 PM, jerem488 said:
I don't use _ie function because I have many bugs

What bugs have you run into? Have you reported them in the bug tracker?

Is it possible that it's not a bug but the way you wrote it? What version of AutoIt were/are you using?

mikell · August 3, 2014

Msgbox(0,"", StringRegExp(FileRead(@DesktopDir & "\lrvisitcard.html"), '(?s)class="sc">.+?</ul>', 3)[0] )

Edit

Autoit v.3.3.12.0

Edited August 4, 2014 by mikell

computergroove · August 3, 2014

On 8/3/2014 at 11:36 PM, mikell said:

Msgbox(0,"", StringRegExp(FileRead(@DesktopDir & "\lrvisitcard.html"), '(?s)class="sc">.+?</ul>', 3)[0] )

This doesnt do anything

computergroove · August 4, 2014

#include <Array.au3>
#include <file.au3>
#include <MsgBoxConstants.au3>

Global $aArray[0]
$File = FileRead(@ScriptDir & '\Irvisitcard.htm');open the webppage
     $LeftCount = StringInStr($File,'<div class="sc"');count of characters left of string
     $TrimmedFile = StringTrimLeft($File,$LeftCount);Trimms all data to the left of the first <div class=
     $aArray = StringSplit($TrimmedFile,'<div class="sc"',1)
     $Data = $aArray[1]
     $aArray[1] = "<" & $Data
     MsgBox(0,"Array1",$aArray[1])
     For $i = 2 To $aArray[0]
         $temp = '<div class="sc"' & $aArray[$i]
         $aArray[$i] = $temp
         MsgBox(0,"Array1",$aArray[$i])
     Next

This only works if the <div class"sc"> tags are next to each other in the code.

Edited August 4, 2014 by computergroove

Sign In

Extract string in HTML

Recommended Posts

jerem488

computergroove

computergroove

Muzaiyan

jerem488

computergroove

jerem488

computergroove

jerem488

BrewManNH

mikell

computergroove

computergroove

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta