как вырезать первую свечку?

May 21, 2010 11:06

берем данные с финама в формате (угловые скобки заменил на кавычки)
"TICKER","PER","DATE","TIME","OPEN","HIGH","LOW","CLOSE","VOL"
RIM0,1,20100312,103000,150750.00000,151160.00000,150750.00000,151100.00000,1027
RIM0,1,20100312,103100,151105.00000,151180.00000,150965.00000,151000.00000,1416
RIM0,1,20100312,103200,151000.00000,151000.00000,150915.00000,150915.00000,434
RIM0,1,20100312,103300,150930.00000,151065.00000,150925.00000,151065.00000,408

в экселе жмем кнопки альт+ф11 и видим открывшийся рекдактор макросов, вставляем туда этот код:
-------- код begin --------
Sub Button5_Click()

Dim txt As String
Dim sLine As String
Dim sPath As String
Dim swPath As String
Dim fr As Long
Dim fw As Long

sPath = "D:\trade\data\spfb.rts_061114_091114.txt"
swPath = "D:\trade\data\spfb.rts_061114_091114-c.txt"

fr = FreeFile
Open sPath For Input Access Read Shared As fr
fw = FreeFile
Open swPath For Append Shared As #fw

Do While Not EOF(1)
Line Input #fr, sLine
If Not sLine Like "*,?,????????,103000,*" Then
If Not sLine Like "*,?,????????,140300,*" Then
If Not sLine Like "*,?,????????,190000,*" Then
If Not sLine Like "*,?,????????,191000,*" Then
'AddLogStr (sLine)
txt = sLine
Print #fw, txt ' запись в файл
End If
End If
End If
End If
Loop
Close fr
Close #fw ' закрыть файл

End Sub
-----код end --------

остаЛОСЬ прилепить кнопку в экселе и навесить на нее макрос... ну и пути к файла поправить... у меня не надо спрашивать "как сделать то-то?" я знаю только то, что у экселя есть хорошая справка, а гугл знает еще больше, у них спросите.

ну потом импорт получившихся данных в тестер, тестинг и очинье восхитительных резалтов :) все просто :)
и не буду Вас огорчать проблемами с исполнением в системах на минутках с большим кол-вом сделок в день
Previous post Next post
Up