ФорумРазделы

[Архив!] FOREX - Тенденции, прогнозы и следствия (Эпизод № 23: Март 2013) Продолжение следует... - страница 297

Новый комментарий
[Удален]
_new-rena:
А я то думал про CHF...

мутный он.
[Deleted]
_new-rena:
А я то думал про CHF...


не... я фунта и евру смотрю... да потихой прыгаю на них-)
MATR0SKIN:


молодец. только-что получил фигуру которую я называю "ухтышка" :)

вот и к вам на улицу заглянул праздник 


Он щас их много наделает, хватит всем.
[Deleted]
ждемс 926-8...
[Удален]
Где ж наш программер? Я то уже табличку с СМЕ в файл записываю.... По запросу хотел поинтересоваться....
[Удален]
strange:

Он щас их много наделает, хватит всем.

Ещё бы на "подбросили рояль" посмотреть вживую
_new-rena:
Где ж наш программер? Я то уже табличку с СМЕ в файл записываю.... По запросу хотел поинтересоваться....

а у меня тоже готово ) 
dim oStream

Set IE = CreateObject("InternetExplorer.Application")
IE.visible = 0
IE.navigate "http://datasuite.cmegroup.com/dataSuite.html?template=opt&productCode=6E&exchange=XCME&selected_tab=fx" 
'WScript.Echo "load page"
Do While IE.Busy
   WScript.Sleep 500  
   'Exit Do                  ' prevents script host from going crazy waiting for IE
loop
'WScript.Echo "load data"
 
do while asc(left(IE.document.all.Item("1.2900").cells.Item(1).innerText,1))=149
        WScript.Sleep 500
loop
'WScript.Echo "read data"
                        Set oStream = CreateObject("ADODB.Stream")
                        oStream.Open
                        oStream.Type = 2
                        
        for i=1050 to 1495 step 5
                s = replace(cstr(i/1000),",",".")
                if len(s)<6 then
                        s = s + space(6-len(s))
                        s = replace(s," ","0")
                end if
                if not IE.document.all.Item(s) is nothing then
                        stCALLS_Volume = Trim(IE.document.all.Item(s).cells.Item(0).innerText)
                        stPUTS_Volume = Trim(IE.document.all.Item(s).cells.Item(18).innerText)
                        oStream.WriteText  s + ";" + stCALLS_Volume + ";" + stPUTS_Volume, 1
                end if
        next

 'WScript.Echo st
                        oStream.SaveToFile Left(WScript.ScriptFullName,len(WScript.ScriptFullName)-5) + "file2.txt", 2
                        oStream.Close
            Set objXML = Nothing
 IE.quit
Set IE = Nothing
остался индюк, ща забабахаю за пол часа

Пора бы и вниз...


1...290291292293294295296297298299300301302303304...848
Новый комментарий