Loop and open link in another 'window/control'

[wila]

Hi Carlos,

The attached html file does not include the string "enlaceExpediente"
Either way, it's just a matter of adjusting the javascript that you're running.

For your specific question, this would change to something along the lines of:

Code:

lcCurrentHtml = ''
lnReturn = 0
lcNewLine = CHR(13)+CHR(10)
lcScript = '() => { ' + lcNewLine
lcScript = lcScript + '  let result="";' + lcNewLine
lcScript = lcScript + '  let id="";' + lcNewLine
lcScript = lcScript + '  let url="";' + lcNewLine
lcScript = lcScript + '  let ele = document.getElementsByTagName("a");' + lcNewLine
lcScript = lcScript + '  for (let i = 0; i < ele.length; i++) {' + lcNewLine
lcScript = lcScript + '     url=ele[i].href;' + lcNewLine
lcScript = lcScript + '     id=ele[i].id;' + lcNewLine
lcScript = lcScript + '     if (id.toLowerCase().includes("enlaceExpediente".toLowerCase())) {' + lcNewLine
lcScript = lcScript + '       result=result+url+";";' + lcNewLine
lcScript = lcScript + '     }' + lcNewLine
lcScript = lcScript + '  }' + lcNewLine
lcScript = lcScript + '  return result;' + lcNewLine
lcScript = lcScript + ' }' + lcNewLine

A few notes, the code above is assuming that it returns more than one url. This is why the url's are separated by a semicolumn eg. <url1>;<url2>;<url3>;

If it is only supposed to return a single url then you can simplify it like so:

Code:

lcScript = lcScript + '    if (id.toLowerCase().includes("enlaceExpediente".toLowerCase())) {' + lcNewLine
lcScript = lcScript + '      result=url;' + lcNewLine
lcScript = lcScript + '    }' + lcNewLine

So only change the line with "result=" and keep the rest.

Another note is that you can debug the script that you are sending from vfp.
See Debug Anonymous javascript functions    

PS: reposted as the correct user as it might be confusing that I posted this answer as a forum test user
--
Wil