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

//Elimina o que nao é necessário
FOR EACH T001_Help
IF T001_Help.T001_Titulo = "" THEN
HDelete(T001_Help)
END
END

//Total Registros
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)