Ir para conteúdo


peterhigashi

Cadastrado: 01 Ago 2014
Offline Última atividade: Ago 14 2017 10:00
-----

Tópicos que criei

Pesquisar Texto _IEBodyReadText com StringRight/Left

10 maio 2017 - 10:20

Bom dia pessoal :ILA2: !
 
Gostaria de ajudar de vocês, conforme o código abaixo, vou descrever a minha necessidade:
 
  1. Acesso um site;
  2. No site localizo uma palavra;
  3. E ao achar a palavra informar 50 caracteres antes e depois.
 
Mais no final estou :mad2: :emoticons281:
 
Se alguém puder ajudar agradeço antecipadamente!!!  :up:
 
  1.  
  2. #include <IE.au3>
  3. #include <MsgBoxConstants.au3>
  4.  
  5. Global $pg = "AutoIt Script Brasil"
  6.  
  7. ;~ Com
  8. Local $oIE = _IECreate("http://forum.autoitbrasil.com/", "embedded")
  9.  
  10.  
  11. Local $sText = _IEBodyReadText($oIE)
  12. local $meuTexto = "ontem"
  13.  
  14. If StringInStr($sText, $meuTexto) then
  15. Msgbox($MB_SYSTEMMODAL, "", "Text detectado " & $meuTexto)
  16. Msgbox($MB_SYSTEMMODAL, "", "Nada")
  17.  
  18. ConsoleWrite(StringRight($meuTexto, 50))
  19.  
  20. ConsoleWrite(StringLeft($meuTexto, 50))
  21.