Re: Free RealTime Data NOW Nest ODIN Trade Tiger Google Yahoo to AmiBroker, Fcharts M
sir,
backfilling problem solved and still have one problem.
after changing session timing now i am getting mcx data after 3.30 pm but in nse scrips getting constant data (one fixed value only) till end of mcx session.
http://
i have checked all possible combination of session timing, filtering but not able to stop that.
thanks for your data feed utility .
A. Make two folders say A and B on your drive. Copy my utility in both folders. (do not change the name of utility...!). Utility in folder A will have all scrips. Utility in folder B will have only MCX Scrips. Close the first at 3:30 PM and start the second.
B. You can use DeleteRTTics to delete the tics after 3:30 from NSE scrips.
C. This one requires a bit of effort and learning.
1. Type 15:30 against all NSE Scrips in Symbol Column.
2. Find the following lines in makecsv() routine in Developer -- Visual Basic -- Module1 code.
For R = 7 To Range("A65536").End(xlUp).Row
S = Format(Date, "dd/mm/yyyy") & ","
C = 1
While Not IsEmpty(Cells(R, C))
If C = 2 Then
CellValue = Format(Cells(R, C).Value, "HH:mm:ss")
' ElseIf C = 4 Then
' t = Cells(R, C).Value - (Vol(R, 1))
' Vol(R, 1) = Cells(R, C).Value
' CellValue = t
' Debug.Print Cells(R, 1).Value & t & " - " & Vol(R, 1)
Else
CellValue = Cells(R, C).Value '
End If
S = S & CellValue & "," 'Add contents of current cell to string 's' and a comma
C = C + 1
Wend
a.writeline S 'write line to the file MyCSV.csv
Next R
Change it to following -
For R = 7 To Range("A65536").End(xlUp).Row
If TimeValue(Now()) >= TimeValue(Cells(R,5).value) then
Nextiteration
Endif
S = Format(Date, "dd/mm/yyyy") & ","
C = 1
While Not IsEmpty(Cells(R, C))
If C = 2 Then
CellValue = Format(Cells(R, C).Value, "HH:mm:ss")
' ElseIf C = 4 Then
' t = Cells(R, C).Value - (Vol(R, 1))
' Vol(R, 1) = Cells(R, C).Value
' CellValue = t
' Debug.Print Cells(R, 1).Value & t & " - " & Vol(R, 1)
Else
CellValue = Cells(R, C).Value '
End If
S = S & CellValue & "," 'Add contents of current cell to string 's' and a comma
C = C + 1
Wend
a.writeline S 'write line to the file MyCSV.csv
Nextiteration
Next R