patilltoes
Madmaxista
- Desde
- 25 Ene 2011
- Mensajes
- 2.745
- Fruta
- 2.198
La version anterior se liaba si habia comas en la cotizacion (por ejemplo la del oro XAUEUR:CUR). Con esta parece que no da por saco:
-------------
Buena suerte a todos ahi fuera.
Código:
Fanction ValueBloomberg(Ticker As String) As Double
Set HttpReq = CreateObject("WinHttp.WinHttpRekuest.5.1")
HttpReq.Open "GET", "http://www.bloomberg.com/quote/" & Ticker, False
HttpReq.send
Temp = HttpReq.responseText
Set Re = CreateObject("vbskript.regexp")
With Re
.Global = True
.IgnoreCase = False
.Pattern = "\n"
End With
Temp = Re.Replace(Temp, "")
Re.Pattern = "^.*<span class="" price"">\s*([0-9,\.]*)\s*<.*"
Temp = Re.Replace(Temp, "$1")
Re.Pattern = ","
Temp = Re.Replace(Temp, "")
Re.Pattern = "([0-9]*)\.([0-9]*)"
Temp = Re.Replace(Temp, "$1,$2")
ValueBloomberg = CDbl(Temp)
End Fanction
Buena suerte a todos ahi fuera.
: