奇狐社區論壇 - 每秒記錄一筆文字檔

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 每秒記錄一筆文字檔

上一主題下一主題

作者

主題

W-Man
初級會員

註冊日期: Jan 2016
來　　自: 中部
文章數量: 7

每秒記錄一筆文字檔

請教版主大大：
要如何在時間有變動時，才記錄一筆資料進文字檔^^?

我的程式是有成交時就記錄：如下
CC1:C;
VarNow:=NUMTOSTR(currenttime,0);
Clo:= NUMTOSTR(CC1,1);
產品字串:=STKNAME;
<%
on error resume next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, wrkfs
vPP = FFL.VarData("Clo")
vNowTime = FFL.VarData("VarNow")
Report = FFL.VarData("產品字串")

Report = Report + "," + vPP

if (1) then

Report = vNowTime + "," + Report
Set fs = CreateObject("Scripting.FileSystemObject")
Set wrkfs = fs.OpenTextFile("d:\temp\tttt.csv",ForAppending ,TRUE)
wrkfs.WriteLine(report)
wrkfs.close
end if
err.clear
%>

==========================
文字檔的內容
230154,日圓連續,8227.0
230154,日圓連續,8227.0
230154,日圓連續,8227.5
230155,日圓連續,8227.5
230155,日圓連續,8227.0
230156,日圓連續,8227.0
230156,日圓連續,8227.0
230156,日圓連續,8227.0
230157,日圓連續,8227.0
230157,日圓連續,8227.5
230157,日圓連續,8227.5
230158,日圓連續,8227.0
230158,日圓連續,8227.0
230158,日圓連續,8227.0
230201,日圓連續,8228.0
230201,日圓連續,8228.0
230201,日圓連續,8228.0
230202,日圓連續,8229.0
230202,日圓連續,8228.0
230204,日圓連續,8228.0
230204,日圓連續,8228.0
230205,日圓連續,8229.0
230205,日圓連續,8228.0
230206,日圓連續,8228.0
230206,日圓連續,8228.0
230207,日圓連續,8228.0
230207,日圓連續,8228.5
======================
但我想要的內容應如下：

230154,日圓連續,8227.0
230155,日圓連續,8227.5
230156,日圓連續,8227.0
230157,日圓連續,8227.0
230158,日圓連續,8227.0
230201,日圓連續,8228.0
230202,日圓連續,8229.0
230204,日圓連續,8228.0
230205,日圓連續,8229.0
230206,日圓連續,8228.0
230207,日圓連續,8228.0

謝謝！

向版主報告此篇 |

2016-01-29 23:19

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

回覆: 每秒記錄一筆文字檔

引用:
最初由 W-Man 發表
請教版主大大：
要如何在時間有變動時，才記錄一筆資料進文字檔^^?

我的程式是有成交時就記錄：如下
CC1:C;
VarNow:=NUMTOSTR(currenttime,0);
Clo:= NUMTOSTR(CC1,1);
產品字串:=STKNAME;
<%
on error resume next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, wrkfs
vPP = FFL.VarData("Clo")
vNowTime = FFL.VarData("VarNow")
Report = FFL.VarData("產品字串")

Report = Report + "," + vPP

if (1) then

Report = vNowTime + "," + Report
Set fs = CreateObject("Scripting.FileSystemObject")
Set wrkfs = fs.OpenTextFile("d:\temp\tttt.csv",ForAppending ,TRUE)
wrkfs.WriteLine(report)
wrkfs.close
end if
err.clear
%>

==========================
文字檔的內容
230154,日圓連續,8227.0
230154,日圓連續,8227.0
230154,日圓連續,8227.5
230155,日圓連續,8227.5
230155,日圓連續,8227.0
230156,日圓連續,8227.0
230156,日圓連續,8227.0
230156,日圓連續,8227.0
230157,日圓連續,8227.0
230157,日圓連續,8227.5
230157,日圓連續,8227.5
230158,日圓連續,8227.0
230158,日圓連續,8227.0
230158,日圓連續,8227.0
230201,日圓連續,8228.0
230201,日圓連續,8228.0
230201,日圓連續,8228.0
230202,日圓連續,8229.0
230202,日圓連續,8228.0
230204,日圓連續,8228.0
230204,日圓連續,8228.0
230205,日圓連續,8229.0
230205,日圓連續,8228.0
230206,日圓連續,8228.0
230206,日圓連續,8228.0
230207,日圓連續,8228.0
230207,日圓連續,8228.5
======================
但我想要的內容應如下：

230154,日圓連續,8227.0
230155,日圓連續,8227.5
230156,日圓連續,8227.0
230157,日圓連續,8227.0
230158,日圓連續,8227.0
230201,日圓連續,8228.0
230202,日圓連續,8229.0
230204,日圓連續,8228.0
230205,日圓連續,8229.0
230206,日圓連續,8228.0
230207,日圓連續,8228.0

謝謝！

每秒記錄一筆 <> 時間有變動才記錄
兩者是不相同的

套用於圖的公式，需有行情才會被觸發重算
所以無法固定為每秒記錄一次(可能數秒後才有交易)

一般而言，不會應用 currenttime
currenttime 是電腦當前時間，不是行情時間
currenttime 是否合用，要視您用途而定

時間有變動才記錄，這個用VBScript是可以實現的
將目前的時間與最後資料的時間做比對
若有不同才進行寫檔，如此就可以實現

向版主報告此篇 |

2016-01-30 09:22

W-Man
初級會員

註冊日期: Jan 2016
來　　自: 中部
文章數量: 7

感謝總版主的回覆：
我的表達可能不夠清楚。
一、在快市行情可能一秒內會有數十筆資料成交。但我只要求記錄一筆。^^"

二、在慢市行情，可能數秒或數分鐘才成交一筆。我也只要求在成交時才記錄。

三、最主要是避開快市時不斷的寫入文字檔。但是奇狐最小單位是秒，語法中，我不知如何寫才能表現時間差的成交資料。^^呵呵，麻煩您指導了。感恩。

向版主報告此篇 |

2016-01-30 11:06

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

引用:
最初由 W-Man 發表
感謝總版主的回覆：
我的表達可能不夠清楚。
一、在快市行情可能一秒內會有數十筆資料成交。但我只要求記錄一筆。^^"

二、在慢市行情，可能數秒或數分鐘才成交一筆。我也只要求在成交時才記錄。

三、最主要是避開快市時不斷的寫入文字檔。但是奇狐最小單位是秒，語法中，我不知如何寫才能表現時間差的成交資料。^^呵呵，麻煩您指導了。感恩。

快市行情可能一秒內會有數十筆資料成交
但不會每一筆都觸發運算，是每一批觸發一次運算

您的需求 VBScript 是可以實現的

判斷方式如下:(在VBScript中做)

若有新行情，最新資料時間與最終紀錄的相同時(同一秒內)
則更新原來寫入的最終紀錄，將其變更為最新值
(若無此需求，可以忽略不做)

若有新行情，最新資料時間與最終紀錄的不同時(不同秒內)
則追加新的紀錄，將最新值添加進去

簡單的說
就是您要把上次最終紀錄的時間，儲存起來
下回運算將其取出，與當前資料時間比對
才能知道是要做[資料更新]，還是做[資料添加]

向版主報告此篇 |

2016-01-30 11:36

W-Man
初級會員

註冊日期: Jan 2016
來　　自: 中部
文章數量: 7

簡單的說
就是您要把上次最終紀錄的時間，儲存起來
下回運算將其取出，與當前資料時間比對
------------------------------------------------------------

大大您的意思是：
1、要把上次最終紀錄的時間儲存在"另一個文字檔"？或者是
2、要把上次最終紀錄的時間儲存在"自設變數"？

下回運算將其取出。
有大大您的引導，很多細節都可迎刃而解。謝謝。^^

向版主報告此篇 |

2016-01-30 13:03

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

引用:
最初由 W-Man 發表
簡單的說
就是您要把上次最終紀錄的時間，儲存起來
下回運算將其取出，與當前資料時間比對
------------------------------------------------------------

大大您的意思是：
1、要把上次最終紀錄的時間儲存在"另一個文字檔"？或者是
2、要把上次最終紀錄的時間儲存在"自設變數"？

下回運算將其取出。
有大大您的引導，很多細節都可迎刃而解。謝謝。^^

基本上
就是要記錄在不會因為重算而消失的地方
方法您就自行去研究吧...

向版主報告此篇 |

2016-01-30 13:07

全部時間均為台灣時間, 現在時間為22:45

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。