FiveTech Software tech support forums

Now I'm trying to make cString_TH:= GetIni( cInifile, cSection,"TH", "" ) IF ! empty(cString_TH) cToken := StrToken(cString_TH,1,";") acSizes[1] := StrToken(cToken,1,"|") acEstilo[1] := StrToken(cToken,2,"|") acSpaces[1] := StrToken(cToken,3,"|") ...

... a las cuentas de un usuario de ejemplo que pone BBVA para hacer pruebas : local oHttp, cCadena, cNomObjOLE := "Microsoft.XMLHTTP",  cToken := '', ;      cURL := "https://apis.bbva.com/business-accounts-sbx/v1/statements/aeb43"  oHttp:Open ( "GET" , cUrl, .f. ...

... function FormataTextoComPrimeiraLetraMaiusculo( cText ) /* */ Local nToken := 1 Local cToken := StrToken(cText, nToken, " ") Local cResult := "" DO WHILE !empty(cToken) cResult += Upper(left(cToken,1))+Lower(Substr(cToken,2))+" ...

... local HData,cr local odoc := CreateObject( "MSXML2.DOMDocument" ) local ohttp := CreateObject( "MSXML2.XMLHTTP" ) local cTOKEN:="1206646388:AAEr-QL8hSYNAJ3dNx2k6w7u0nEAOWld2Po" local URL:="https://api.telegram.org/bot"+cTOKEN+"/getUpdates" ...

... I set on setup to luch telegram at init when the system ( pc) is open your test compiled is on c:\work\errori\telegram (test.exe) you sad I need ctoken and chat id On telegram I open botfather and I create a new bot sample @sost_bot then I ask the token and it gave me the token and I copied on ...

... Token(<cString>,[<cDelimiter>],[<nTokenPos>],[<nSkipWidth>],[@<cPreTokenSep>],[@<cPostTokenSep>])->cToken TokenAt([<lNextDelimiter>],[<nCount>],[@<cTokenEnv>])->nPosition TokenEnd([@<cTokenEnv>])->lTokenEnd TokenExit()->lSuccess ...

... Token(<cString>,[<cDelimiter>],[<nTokenPos>],[<nSkipWidth>],[@<cPreTokenSep>],[@<cPostTokenSep>])->cToken TokenAt([<lNextDelimiter>],[<nCount>],[@<cTokenEnv>])->nPosition TokenEnd([@<cTokenEnv>])->lTokenEnd TokenExit()->lSuccess ...

... HB_TokenGet(<cString>,<nToken>,[<cDelim>],[<lSkipStrings>],[<lDoubleQuoteOnly>])->cToken HB_TokenPtr(<cString>,<@nSkip>,[<cDelim>],[<lSkipStrings>],[<lDoubleQuoteOnly>])->cToken HB_Translate(<cString>,<cCodePageID_Src>,<cCodePageID_Tgt>)->cConvertedString ...

... Static Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject, cAttach) local cToken local lRet := .f. local Vezes := 0 Do While Vezes <= 5 cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM ...

... /////////////////////////////////////// FUNCTION Main(cDatos) /////////////////////////////////////// local cNew:='',x,lOk:=.T.,curl local cToken:=";",cProd,cProd2,cprod3 aProd:={} if( empty(cDatos) .OR. cDatos=NIL ) RETU .T. QUIT endif TRY oHttp:= CreateObject( 'MSXML2.XMLHTTP') ...

funcion: Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, oDlg ) Local oCfg, oMsg, oError, nEle, cToken, bMens, lAuth:=!Empty(cUser).and.!Empty(cPass) Local aAttach:={} Default nPort := 25, ; cSubject := "", ; cBody := "" if !IsInternet() ...

... Enviar un mail Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort ) Local oCfg, oMsg, oError, nEle, cToken, bMens,; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 = port memvar aAttach Default nPort ...

James, Methods are supported too. Please see this line in function FillFuncList(): if cToken $ "static func,func,proc,clas,meth,hb_f" if a line starts with that, then it is shown :-) Tomorrow we will publish FWH 15.01 so you will be able to build Fivedit.prg ...

MsgInfo( AScan( hb_ATokens( StrTran( cLine, " ", " " ), " " ), { | cToken | cToken == "sample" } ) ) StrTran( cLine, " ", " " ) will leave just one space between each token notice first " " have two spaces ...

... := "this is a sample text"cText2 := "this  is  a  sample  text" MsgInfo( AScan( hb_ATokens( cText1, " " ), { | cToken | cToken == "sample" } ) ) -> Return 4 MsgInfo( AScan( hb_ATokens( cText2, " " ), { | cToken | cToken == "sample" ...