tag:blogger.com,1999:blog-8847231238348131912.post4186410194316573106..comments2024-03-18T09:05:30.791-03:00Comments on Comunidad de Visual FoxPro en Español: Conversor de divisas utilizando la API de GoogleLuis Mariahttp://www.blogger.com/profile/01349796512778225709noreply@blogger.comBlogger13125tag:blogger.com,1999:blog-8847231238348131912.post-37753483992671257052023-02-22T12:05:27.951-03:002023-02-22T12:05:27.951-03:00Hola a todos los foxeros.
A diferencia de la func...Hola a todos los foxeros. <br />A diferencia de la función original, la propuesta por Eduardo retorna la tasa de conversión de la primera divisa a la segunda.<br /><br />A la fecha, al ejecutar la función de Eduardoa, se obtiene una cadena de 10 caracteres, tal como lo indica la función SUBSTR(). Dentro de la cadena retornada se incluye el resultado, pero no es precisa. Por lo que modifiqué la función, quedando así:<br /><br />**********************************************************************<br />? ConvertirDivisa( "USD", "CLP" )<br /><br />FUNCTION ConvertirDivisa( plFrom, plTo )<br />LOCAL strmon<br />LOCAL lc, lcUrl, la( 1 )<br />DECLARE LONG URLDownloadToFile IN URLMON.DLL ;<br />LONG, STRING, STRING, LONG, LONG<br />ERASE "cambio.txt"<br />lcURL = "https://www.google.com/finance/quote/"+plFrom+"-"+plTo<br />IF 0 = URLDownloadToFile( 0, lcURL, "cambio.txt", 0, 0 )<br />TRY<br />INKEY( 1 )<br />lc = FILETOSTR( "cambio.txt" )<br />*-strmon = SUBSTR( lc, AT( "data-last-price", lc ) + 17, 10 )<br />strmon = STREXTRACT( lc, 'data-last-price="', '" data-last-normal' )<br /><br />CATCH<br />strmon = "Error de divisas"<br />ENDTRY<br />ELSE<br />strmon = "No hay conexion"<br />ENDIF<br />RETURN strmon<br />ENDFUNC<br />************************************************************<br /><br />Espero que sea de utilidad,<br /><br />Saludos al grupo!Richard Silvahttps://www.blogger.com/profile/16751594889951163608noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-38564846096150754082022-04-27T01:07:21.913-03:002022-04-27T01:07:21.913-03:00Hola queridos foxeros, aquí les dejo la función ac...Hola queridos foxeros, aquí les dejo la función actualizada:<br /><br />**********************************************************************<br />? ConvertirDivisa("USD", "CLP") <br /><br />FUNCTION ConvertirDivisa(plFrom, plTo)<br /> LOCAL strmon<br /> LOCAL lc, lcUrl, la(1)<br /> DECLARE LONG URLDownloadToFile IN URLMON.DLL ;<br /> LONG, STRING, STRING, LONG, LONG<br /> ERASE "cambio.txt"<br /> lcURL = "https://www.google.com/finance/quote/"+plfrom+"-"+plto<br /> IF 0 = URLDownloadToFile(0, lcURL, "cambio.txt", 0, 0)<br /> TRY<br /> INKEY(1)<br /> lc = FILETOSTR("cambio.txt")<br /> strmon = SUBSTR(lc,AT("data-last-price",lc)+17,10)<br /><br /> CATCH<br /> strmon = "Error de divisas"<br /> ENDTRY<br /> ELSE<br /> strmon = "No hay conexion"<br /> ENDIF<br /> RETURN strmon<br />ENDFUNC<br />************************************************************<br /><br />Saludos!!!Eduardo Contrerashttps://www.blogger.com/profile/15030504126893885149noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-44167371382596524582022-02-08T13:11:46.647-03:002022-02-08T13:11:46.647-03:00Aun sin funcionarAun sin funcionarJorge Galván Pérezhttps://www.blogger.com/profile/08584728678475589557noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-87182658786972012362020-08-31T20:50:18.936-03:002020-08-31T20:50:18.936-03:00a la fecha de este mesnaje aun no funciona. lasti...a la fecha de este mesnaje aun no funciona. lastima google tenias mucho potencial esta apiOscarhttps://www.blogger.com/profile/00457323919501236388noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-74242815440781865162018-06-06T12:51:00.262-03:002018-06-06T12:51:00.262-03:00dejo de funcionar... alguien sabe el nuevo link al...dejo de funcionar... alguien sabe el nuevo link al que debe hacer referencia ?NzySofthttps://www.blogger.com/profile/13016505082580639096noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-91112800918141670272018-05-18T17:17:16.845-03:002018-05-18T17:17:16.845-03:00excelente aporteexcelente aporteAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-70917881301384455062018-05-01T00:25:07.755-03:002018-05-01T00:25:07.755-03:00Hola, esta funcion dejo de funcionar, alguien sabe...Hola, esta funcion dejo de funcionar, alguien sabe a que se debe??<br /><br />Gracias<br />Anonymoushttps://www.blogger.com/profile/01440836087464943155noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-27975535592696018582017-11-21T11:34:31.613-03:002017-11-21T11:34:31.613-03:00Como hago para que la API de GOOGLE tome el valor ...Como hago para que la API de GOOGLE tome el valor para VENTA de dolar y euro... y no haga promedio?Anonymoushttps://www.blogger.com/profile/11189527771842474650noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-62429578356492985632017-11-21T11:33:50.514-03:002017-11-21T11:33:50.514-03:00como puedo tomar el valor del DOLAR PARA VENTA? de...como puedo tomar el valor del DOLAR PARA VENTA? desde la APId de GOOGLE... y no que me haga promedio...Anonymoushttps://www.blogger.com/profile/11189527771842474650noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-1026750953026580632017-07-26T18:08:10.590-03:002017-07-26T18:08:10.590-03:00GRACIAS COMPAÑEROGRACIAS COMPAÑEROWEVM78https://www.blogger.com/profile/14165979503944503506noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-47005412119281547192017-07-25T19:04:58.786-03:002017-07-25T19:04:58.786-03:00Crea un método en el formulario llamado Convertir...Crea un método en el formulario llamado ConvertirDivisa<br />La primera línea del método debe ser:<br />lparameters pnMonto, plFrom, plTo<br />luego copias toda la función, con excepción de las líneas <br />FUNCTION ConvertirDivisa(pnMonto, plFrom, plTo)<br />y ENDFUNC<br /><br />llamas al método desde cualquier parte de tu formulario así:<br /><br />nPesos = thisform.ConvertirDivisa(1, "USD", "ARS") && 1 US Dolar -> Peso de Argentina<br /> Rafael Copquinhttps://www.blogger.com/profile/12406045043132103703noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-69232097113127843842017-06-02T23:10:51.775-03:002017-06-02T23:10:51.775-03:00una pregunta como montar este .prg a un formulario...una pregunta como montar este .prg a un formulario?? alguien que me pueda ayudar. graciasWEVM78https://www.blogger.com/profile/14165979503944503506noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-63306839433506011542016-07-12T20:19:36.024-03:002016-07-12T20:19:36.024-03:00interesante lo provare :Dinteresante lo provare :DAnonymoushttps://www.blogger.com/profile/17773533362782272773noreply@blogger.com