| Автор |
Сообщение |
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
В терминале есть так называемая 'таблица всех сделок', грубо говоря тики, как их легче всего прочитать из Ами?
Она как бы выводится в Excel по DDE, можно читать Excel файл в реальном времени? |
|
|
| Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
А какой терминал? |
_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
| Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
Quik или SmartX, она в обоих терминалах выводится через DDE
может через Quik ODBC надежней даже будет...
хотя Ami ODBC плагин настраивается не под тики судя по всему
EDIT:
а, ну с ODBC я понял как
| Код: |
odbcOpenDatabase("ODBC;DATABASE=amitest;DSN=mySQL AmiTest;OPTION=0;PORT=0;UID=root");
odbcGetArraySQL("sql statement");
|
это конечно будет сложнее настраивать, но по концовке понадежней, и все тики будут в базе, что тоже плюс!
но все равно хотелось бы знать насчет Excel
Ами жжет, я перепробовал фактически все что есть, пока Ami строго #1 |
Последний раз редактировалось: moextrader (Вс Сен 07, 2014 9:37 pm), всего редактировалось 1 раз |
|
| Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Та у квика же есть дата плапгин для Ами?
Зачем велик изобретать? |
_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
| Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
| 000 писал(а): |
Та у квика же есть дата плапгин для Ами?
Зачем велик изобретать? |
Я плагин Quik не пробовал так что точно не могу ответить. |
Последний раз редактировалось: moextrader (Вс Сен 07, 2014 9:37 pm), всего редактировалось 1 раз |
|
| Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Квиковский плагин поддерживает тики. Так что не заморачивайся. |
_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
| Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
Спасибо Олег, попробую настроить на следующей неделе...
А насчет изолирования тика в коде не посоветуешь?
А то обычно OHLCV, ну или Bid/Ask/Last, а с тиками как быть?
У них как бы Time,Price,Volume,TransactionType.... |
|
|
| Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Да с тиками все точно как с обычными сдесками. У них тоже есть Time, C(Price), V, а TransactionType плагин квика не транслирует. |
_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
| Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
Если не видно Buy это или Sell то теряется смысл....
Слушай, я тут тестирую чтение Excel, можешь глянуть?
Просто тупо вывожу стакан в файл для теста.
Как мне потом сделать чтобы видно было vbscript массив?
А то я никак не пойму, сработало или нет....
| Код: |
iStartRow = 1;
iStartColumn = 1;
iRowCnt = 15;
iColCnt = 2;
iColShift = 1;
ActiveSheet=1;
EnableScript("VBScript");
<%
sFilePath="C:\DDE2.xls"
Set oExcel=GetObject(sFilePath)
if( oExcel ) Then
oExcel.ActiveWorkbook.Sheets(ActiveSheet).Select()
Dim avRET(iRowCnt+1,iColCnt+1)
avRET(0,0) = iRowCnt
avRET(0,1) = iColCnt
for i = 1 To iRowCnt
for j = 1 To iColCnt
avRET(i,j - 1) = oExcel.Activesheet.Cells(iStartRow + i - 1, iStartColumn + j - 1).Value
'response.write(avRET(i,j-1) & "," & avRET(i,j))
Next
Next
end if
>%
|
|
|
|
| Посмотреть профиль Отправить личное сообщение |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
Ну в общем разобрался маленько.... Только вот не могу понять почему вот эта линия не работает.
'Dim avRET(iRowCnt+1,iColCnt+1)
| Код: |
EnableScript("VBScript");
<%
iStartRow = 1
iStartColumn = 1
iRowCnt = 29
iColCnt = 2
iColShift = 1
ActiveSheet=1
fVisible = 1
fReadOnly = 1
sFilePath="C:\DDE2.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.WorkBooks.Open(sFilePath)
oExcel.ActiveWorkbook.Sheets(ActiveSheet).Select()
'Dim avRET(iRowCnt+1,iColCnt+1)
Dim avRET(30,3)
avRET(0,0) = iRowCnt
avRET(0,1) = iColCnt
for i = 1 To iRowCnt
for j = 1 To iColCnt
avRET(i,j - 1) = oExcel.Activesheet.Cells(iStartRow + i - 1, iStartColumn + j - 1).Value
Next
Next
Var1=Null
for i = 1 To iRowCnt
Var1 = var1 & avRET(i,0) & "," & avRET(i,1) & vbCrLf
Next
x=msgbox(Var1 ,0, "Dome Values")
%>
|
 |
|
|
| Посмотреть профиль Отправить личное сообщение |
|
moextrader
Зарегистрирован: 27.04.2014
Сообщения: 62
|
Voilà! подчистил код...
терминал запускает файл когда начинает экспорт, мы его открываем и наслаждаемся!
дешево и сердито 
| Код: |
EnableScript("VBScript");
<%
iStartRow = 1
iStartColumn = 1
iRowCnt = 29
iColCnt = 2
ActiveSheet=1
sFilePath="C:\DDE2.xls"
Set objExcelFile = GetObject(sFilePath)
Set Sheet = objExcelFile.WorkSheets(ActiveSheet)
Dim avRET(30,3)
avRET(0,0) = iRowCnt
avRET(0,1) = iColCnt
for i = 1 To iRowCnt
for j = 1 To iColCnt
avRET(i,j - 1) = Sheet.Cells(iStartRow + i - 1, iStartColumn + j - 1)
Next
Next
Var1=Null
for i = 1 To iRowCnt
Var1 = var1 & avRET(i,0) & "," & avRET(i,1) & vbCrLf
Next
x=msgbox(Var1 ,0, "Dome Values")
%>
|
|
|
|
| Посмотреть профиль Отправить личное сообщение |
|
|
|
