Click in Element of ROW

[alguty8712]

Hola Chicos soy nuevo en el tema, quisiera que me ayuden.

I want to click the button depending on the number that appears in front

 

I  Have:

Local $oTableCollection = _IETableGetCollection($oIE )

    For $oAll In $oTableCollection
        $aTableData = _IETableWriteToArray($oAll, True)
        For $i = 1 to 100
            if $aTableData[$i][2] = "1084552701" Then
                MsgBox(0,"",$aTableData[$i][2])
                $Datos = _IETagNameGetCollection($oIE, "span")
                For $oSpan In $Datos
                If $oSpan.innerText = "description" Then
                    _IEAction($oSpan, 'click')
                    ExitLoop
                ElseIf $oSpan =0 Then
                    MsgBox(0,"Error","l")
                    _Parar()
                EndIf
                Next

                   $lista = _ArrayDisplay($Datos)
                ;_IEAction($oSpan, 'click')
                ;_IEAction($Edit, 'Focus')
            EndIf

        Next
    Next

 

Edited May 26, 2020 by Melba23
Added code tags

[Nine]

Very hard to help you with the provided informations.  First give full runable snippet of your script.  We will probably need to access the web site that gives you problem.  At the very minimum, post DOM of the part you have problem with.

[alguty8712]

This is the best thing that I have achieved .. it works but I don't think it's the best way

#include <Excel.au3>
#include <array.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>

Global  $oIE = _IECreate("https://psi.icbf.gov.co/entregaraciones/seguimiento",1)

Local $oTableCollection = _IETableGetCollection($oIE,0 )

Local $oSpans = _IETagNameGetCollection($oIE, "span")


$aTableData = _IETableWriteToArray($oTableCollection,True)

        For $i = 1 to 100
            if $aTableData[$i][2] = "1030002000" Then
                For $oSpan In $oSpans
                    If $oSpan.innerText = "description" Then
                        $item = $oSpans(42+$i)
                        _IEAction($item, "click")
                        ExitLoop
                    ElseIf $oSpan =0 Then
                    MsgBox(0,"Error","Hubo un problema al seleccionar la Regional")
                    EndIf
                Next
            EndIf

        Next

  

Edited May 26, 2020 by Melba23
Added code tags

[alguty8712]

Thank  please help!

Edited May 26, 2020 by Melba23
Removed translated quote

[careca]

Seems to be good code. Why do you think it's not the best way?

[Nine]

We cannot access the web site.  Hard to tell if there is a better way to achieve what you are trying to do.  As @careca said, at first glance, your code seems to be alright.  Try to remove hard coded data (like for example, 100 in the for loop.  Use ubound function instead).

[alguty8712]

thaks!!! Ubound is Better

$Row = $oExcel_1.ActiveCell.Row; Recalcula fila Actual
$Id_Beneficiario= _Excel_RangeRead($wkbook, Default, "B" & $Row,True)

         $Y = 0
        For $i = 1 to UBound($aTableData)-1
            if $aTableData[$i][2] = $Id_Beneficiario Then
                $Y=1
                For $oSpan In $oSpans
                    If $oSpan.innerText = "description" Then
                        $item = $oSpans(42+$i)
                        _IEAction($item, "click")
                        ExitLoop
                    ElseIf $oSpan =0 Then
                    MsgBox(0,"Error","Hubo un problema al seleccionar la Regional")
                    EndIf
                Next
            EndIf

         Next

        If $Y = 0  Then
          $msgBox = MsgBox(4,"Error","Beneficiario no encontrado por favor Verifique los números, Desea Reintentar?")
             If $msgBox = 6 Then
               Selecciona_Benef()

              _Seleccione()
            EndIf
        Else
        Cargar()
        EndIf

 

Edited May 26, 2020 by Melba23
Removed quote and added code tags

[Melba23]

alguty8712,

Welcome to the AutoIt forum.

A couple of points if I may:

- When you post code in future please use Code tags - see here how to do it.  Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

- When you reply in future, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button - responders  know what they wrote (and translating it makes it even worse!) and it just pads the thread unnecessarily.

Thanks in advance for your cooperation.

M23