FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Posible correcci贸n a isrtf()
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM

Posible correcci贸n a isrtf()

Posted: Wed Jul 08, 2009 06:04 PM
Amigos,

Cuando se hace la captura online dentro de un xbrowse si se captura un texto con la palabra RTF al inici de dicho texto aparece el mensaje <RichText> esto pasa porque hay una funci贸n que valida si es o no RichText.

Est谩 es la funci贸n que hace el display
Code (fw): Select all Collapse
function IsRTF( cText ) return (Upper( SubStr( cText, At( "\rtf", cText ) + 1, 3 ) ) == "RTF")


Y la posible modificaci贸n:
Code (fw): Select all Collapse
function IsRTF( cText ) return (Upper( SubStr( cText, At( "\rtf", cText ) + 1, 3 ) ) == "RTF" .AND. file( cText ))
William, Morales

Saludos



m茅xico.sureste

Continue the discussion