'#Script "Sauvegarder les annonces legales"
'#Version "1.0"
'#Signature "Demo"
'
'On creer la base de donnée
'#Base "Titre,Annonce"
'On rajoute les scripts deja prédéfinis
'#Include "ClickTag.pjs"
'#Include "TagExist.pjs"
'#Include "chkDoublons.pjs"
'#Include "FillForm.pjs"
'#Browser "2"
'
'Début du Script (Executer lorsque l'on clique sur PLAY)
Action.Valeur = "Start"
Action.doLoop = True
tabAction.tabSelect 1

Call Main
'Fonction executée a chaque chargement de page
Public Function doLoop()
    Call Main
End Function
Sub Main()
    Select Case Action.Valeur
        Case "Start"
            BarreInfo.Text = "Start"
            InternetExplorer(1).Navigate "http://www.journal-officiel.gouv.fr/jahia/Jahia/marches-publics"
            Action.Valeur = "SaisieInfos"
        Case "SaisieInfos"
            BarreInfo.Text = "Saisie des infos"
            MsgBox "Veuillez saisir les données recherchées"
            Action.Valeur = "SaisieOK"
        Case "SaisieOK"
            BarreInfo.Text = "On recherche les liens"
            Set oFORM = InternetExplorer(1).Document.getElementsByName("boampSearch").Item(0)
            oFORM.Target = "Browser2"
            oFORM.method = "GET"
            Set oTRs = InternetExplorer(1).Document.All.tags("TR")
            For Each oTR In oTRs
                Continue = False
                If oTR.vAlign = "top" Then
                    oTR.vAlign = ""
                    oTR.bgcolor = "#999999"
                    Set oLinks = oTR.All.tags("A")
                    For Each oLink In oLinks
                        If oLink.href = "" Then
                            Action.Valeur = "Capture"
                            oLink.Click
                            Continue = True
                            Exit Sub
                        End If
                    Next
                End If
            Next
            If Continue = False Then
            	oFORM.Target=""
            	'La page est fini on passe a la suivante
                Set oAs = InternetExplorer(1).Document.All.tags("A")
                For Each oA In oAs
                    If InStr(oA.InnerText,"Suivant")>0 Then
                    	Continue=True
                    	oA.Click
                    End If
                Next
            End If

            	
            
        Case "Capture"
            BarreInfo.Text = "On peut capturer"
            Call docSave
            Action.Valeur = "SaisieOK"
            tabAction.tabSelect 1
            BarreInfo.Text = "Données Capturées"
            Call doLoop
    End Select
End Sub
'
Public Function docSave()
    Set oHs = InternetExplorer(2).Document.All.tags("h2")
    Titre = Trim(oHs(0).InnerText)
    Set oTABLEs = InternetExplorer(2).Document.All.tags("table")
    For Each oTABLE In oTABLEs
        If oTABLE.Align = "center" And oTABLE.border = "0" And oTABLE.Width = "90%" And oTABLE.cellPadding = "5" And oTABLE.cellSpacing = "0" Then
            Detail = Trim(oTABLE.InnerText)
            Exit For
        End If
    Next
    If Detail = "" Then
        Set oFORMs = InternetExplorer(2).Document.All.tags("form")
        For Each oFORM In oFORMs
            If oFORM.Name = "boampDetail" Then
                Detail = oFORM.InnerText
                Debut = InStr(Detail, Titre)
                If Debut = 0 Then Detail = "": Exit For
                Debut2 = InStr(Debut, Detail, vbCrLf, 0)
                Fin = Len(Detail) - Debut2
                Detail = Trim(Mid(Detail, Debut2 + 2, Fin - 2))
                Exit For
            End If
        Next
    End If
    Set Record = Base.ListItems.Add(, , Titre)
    Record.SubItems(1) = CStr(Detail)
    Record.Checked = True
    Base.Refresh
End Function