奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 每秒記錄一筆文字檔 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19732)

每秒記錄一筆文字檔

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

我的程式是有成交時就記錄：如下
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

謝謝！

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

引用:

---

最初由 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

謝謝！

---

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

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

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

引用:

---

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

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

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

---

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

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

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

引用:

---

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

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

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

---