[Архив!] FOREX - Тенденции, прогнозы и следствия (Эпизод № 23: Март 2013) Продолжение следует... - страница 297
Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
А я то думал про CHF...
мутный он.
А я то думал про CHF...
не... я фунта и евру смотрю... да потихой прыгаю на них-)
молодец. только-что получил фигуру которую я называю "ухтышка" :)
вот и к вам на улицу заглянул праздник
Он щас их много наделает, хватит всем.
Он щас их много наделает, хватит всем.
Ещё бы на "подбросили рояль" посмотреть вживую
Где ж наш программер? Я то уже табличку с СМЕ в файл записываю.... По запросу хотел поинтересоваться....
а у меня тоже готово )
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Пора бы и вниз...