奇狐社區論壇 - 將VB的輸出只有一列最新的資料改成流水式(多列)。

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

奇狐社區論壇 > 技術支援 > 問題交流 > 將VB的輸出只有一列最新的資料改成流水式(多列)。

上一主題下一主題

作者

主題

teic2000
中級會員

註冊日期: Jul 2008
來　　自: 台灣.苗栗
文章數量: 48

將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

向版主報告此篇 |

2019-08-06 20:32

cgjj
總版主

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

回覆: 將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

您帶入的 cur_cmd 本身就不是多列了吧!
若要接續寫入，不應該用 CreateTextFile 函數
需改用 OpenTextFile 函數
相關用法，請自行查閱

向版主報告此篇 |

2019-08-06 23:23

teic2000
中級會員

註冊日期: Jul 2008
來　　自: 台灣.苗栗
文章數量: 48

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

目前用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
%>

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

謝謝 !!

向版主報告此篇 |

2019-08-07 17:24

cgjj
總版主

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

引用:
最初由 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
%>

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

謝謝 !!