FiveTech Software tech support forums

PERHAPS ??

function validaEmail(cEmail)
LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")

LOCAL cRet := .t.

IF HB_RegExMatch( pCompiled, alltrim(cEmail), .F. )


cRet := .f.
end
return cRet

... HB_ATokens( cText,  "," )  another see this https://i.postimg.cc/nhfrkY2G/k.png how take the date ? I tried with cRet := subStr( cRet, at( "update_utc", cRet )+12 ) cRet := allTrim( subStr( cRet, 1, at( 'time', cRet )-7 ) ) but I have the date string bad

hi, LOCAL cRet := "" // ´ ´ // ERROR Chinese Char? sorry, i have change " (double) to ´ (Single) online while " make "red Color" in Source have test your Version but it still crash :( --- i use IF ...

... local nVersionWin:=cWinVersion() local cFile,cREto If val(cWinVersion())=7 Download_Windows_Seven(cUrl,cZipFile) else cRet := WebPageContents( cUrl ) MEMOWRIT( cZipFile,cRet) Endif return nil but not happen nothing

... in JSON. Here is a cutdown version of the fuction: Function PostTo360( cUrl, cData, cContentType,cAuthorization )    Local oOle,cRet:='',uRet    default cContentType:="application/json"    default cAuthorization:=""      ...

I tried with Function TestUrl(cUrl)   local  cRet := WebPageContents( cUrl )   local cFile:="test.txt"    if Empty( cRet )      ? "Invalid URL"     else  ...

... setup in the setup window then you get the right orientation from GetOrient() function. Best regards, Otto function SetOrient(nOrient) local cret, oprn //#define DMORIENT_PORTRAIT 1 //#define DMORIENT_LANDSCAPE 2 PRINTER oPrn if nOrient=2 oPrn:SetLandscape() else oPrn:SetPortrait() endif ...

... Local FinalNodo := "</"+cProc+">" Local nPosIni := At(InicioNodo,cXml) Local nPosFim := At(FinalNodo,cXml) Local cRet := '0' local oXmlDoc,oNode,cText local xmlNode,cPath If nPosIni==0 .or. nPosFim==0 Return cRet // aqui que ela aborta... retorna '0' Endif If cNodo ...

... GeoCoordenadas( cPostal_Code, cStreet, cNumber, cLocality, cState) Local cWeb := "http://maps.google.es/maps/place/" local cMap local cRet := "" local oOle local nPos1 local nPos2 local aCoor := { 0, 0, 0 } local cNation:="Spain" cPostal_Code := StrTran( AllTrim( ...

Gracias me salvaste la vida :mrgreen: Hola: Function GetMacAdd() local aMac, cRet aMac := GetNetCardID() // esta es la func que lee el mac... IF VALTYPE(aMac) = "A" // hay varias tarjetas de red cRet := aMac[1] Else cRet := aMac // una sola t de red ...

... httpcli.prg => TIPCLIENTHTTP:NEW( 96 ) Opening the object is followed by creating an XML document, and then: oHttp:open() oHttp:Post( cXml) cRet := oHttp:readAll( ) oHttp:close() Looking this up on the Forum yielded a post showing that the harbour library has been "problematic" ...

...          end       endif       InternetCloseHandle( hFTPDir )    endif return aFiles function StripFromNull(str)   local nPos := at(chr(0), str), cRet := ""   if !empty(str)      if nPos > 0         cRet := left(str, nPos-1)      endif   endif return cRet

Silvio,

FOUND moving to the old date works like:

ACTION oCal:SetDate( oCust:HireDate, .T. ), ; // old date from xBrowse
oCal:Change() ;

or moving back to today from a old selected date
ACTION ( cRet := oCal:SetDate( Date(), .T. ), oCal:Change() ) ;

regards
Uwe

... aItems, aImages, nImgHeight, oListFont, nColor ) .... .... ON INIT ( some calculations.... and at the end : oCol :AnchorToCell( oDlg ) ) RETURN cRet regards Uwe :D

... { char szPath[256], szRead[128], szRet[256]; char szSite[] = "http://checkip.dyndns.org/Current IP Check.htm"; char *Token; char *cRet; memset(szPath,0,sizeof(szPath)); memset(szRet,0,sizeof(szRet)); GetTempPath(256, szPath); strcat(szPath, "my_ip.txt"); if( URLDownloadToFile(0, ...