Posté le 11 mars 2016 - 02:05 |
Prezados,
Segue mais um exemplo de como extrair links de um site salvo em disco
Procedure ExtrairLinks()
Aspas, Me is int
Texto is string
bRegistros is boolean
PROGBAR_01..MaxValue = 14000
PROGBAR_01..Value = 0
FOR EACH T001_Help bRegistros = HFound(T001_Help) IF bRegistros = True THEN PROGBAR_01..Value += 1 Multitask(1) Texto = Middle(T001_Help.T001_Extraido,22,1024) Aspas = PositionOccurrence(Texto,Charact(34),firstRank,FromBeginning) - 1 T001_Help.T001_Link = Middle(Texto,1,Aspas) Me = PositionOccurrence(T001_Help.T001_Extraido,"me=",firstRank,FromBeginning) IF Me > 0 Me = PositionOccurrence(T001_Help.T001_Extraido,"me=",nextRank,FromBeginning) Texto = Middle(T001_Help.T001_Extraido,Me,1024) Texto = Replace(Texto,"me=","") Texto = Replace(Texto,"</a>","") IF PositionOccurrence(Texto,"<",firstRank,FromBeginning) = 0 AND PositionOccurrence(Texto,">",firstRank,FromBeginning) = 0 T001_Help.T001_Titulo = Texto END END HModify(T001_Help) END END FOR EACH T001_Help IF T001_Help.T001_Titulo = "" THEN HDelete(T001_Help) END END
FOR EACH T001_Help Registros += 1 END STC_Registros = Registros
HourGlass(False)
PROGBAR_01..Value = 14000
TableDisplay(TABLE_T001_Help,taReExecuteQuery)
TableDisplay(TABLE_T001_Help,taInit)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
|