angusan / qtp Goto Github PK

在source code裡面這裡應該改成 For i% = 1 To 5
如果是原本的1 To 4 就沒把volume的欄位寫進去了

Private Sub writeTicks()
Using wri As New System.IO.StreamWriter(tbxTicks.Text, False)
For Each drT As DataRow In dtTicks.Rows
Dim strW$ = Format(drT.Item(0), "HH:mm:ss")
For i% = 1 To 5
strW &= "," & Format(drT.Item(i), "0.##")
Next

            wri.WriteLine(strW)
        Next
    End Using
End Sub

可否改成以代碼為文件夾，日期為檔名的方式呢？這樣方便以後不同品種的商品分類。

e.g.: C:\Capital\Ticks\TX\TX20160301.txt
e.g.: C:\Capital\Ticks\DJ\DJ20160301.txt

做一個text窗格讓它顯示最新一筆的報價，這樣就不用打開table也能知道它有在動了

我記得之前alex huang說收到的時間能夠有毫秒的數字？