奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=25)
-- 將VB的輸出只有一列最新的資料改成流水式(多列)。 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22007)

將VB的輸出只有一列最新的資料改成流水式(多列)。

請求版大 或 VB高手幫忙 謝謝 !!!

如何修改 將下列VB的輸出只有一列最新的資料改成流水式(多列)。

<%
on error resume next
Dim fso, MyFile
cur_cmd= FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\temp\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>
======================
輸出於cur_cmd.txt之內容如下

201944,-1,10337,10361

回覆: 將VB的輸出只有一列最新的資料改成流水式(多列)。

引用:

---

最初由 teic2000 發表
請求版大 或 VB高手幫忙 謝謝 !!!

如何修改 將下列VB的輸出只有一列最新的資料改成流水式(多列)。

<%
on error resume next
Dim fso, MyFile
cur_cmd= FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\temp\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>
======================
輸出於cur_cmd.txt之內容如下

201944,-1,10337,10361

---

條件符合時，每次發出一列訊息。

目前用EXCEL抓出來，但希望能直接利用VB記錄在文字檔內，每次記錄列後，跳到下列，繼續記錄下一個條件的返回值。

<%
on error resume next
Dim fso, MyFile
cur_cmd= FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("C:\temp\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>

好像一樣，只記錄一列。版主可否幫我改改。

謝謝 !!

引用:

---

最初由 teic2000 發表
條件符合時，每次發出一列訊息。

目前用EXCEL抓出來，但希望能直接利用VB記錄在文字檔內，每次記錄列後，跳到下列，繼續記錄下一個條件的返回值。

<%
on error resume next
Dim fso, MyFile
cur_cmd= FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("C:\temp\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>

好像一樣，只記錄一列。版主可否幫我改改。

謝謝 !!

---

謝謝總版主 可以了

Set MyFile = fso.OpenTextFile("C:\temp\cur_cmd.txt",8, True)

引用:

---

最初由 teic2000 發表
謝謝總版主 可以了

Set MyFile = fso.OpenTextFile("C:\temp\cur_cmd.txt",8, True)

---