[發問] 如何將TextBox轉成txt檔

本帖最後由 acdx 於 2013-11-12 10:29 編輯

想要將TextBox1, TextBox2, TextBox3, TextBox4, TextBox5轉成txt檔存(Save)在某個路徑下
按下Save時可選擇儲存路徑
再將某個路徑下的txt檔中的數值讀進(Load)TextBox1, TextBox2, TextBox3, TextBox4, TextBox5
按Load時可選擇不同路徑下的txt檔
該如何寫呢?

樓主熱帖

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

2^#

發表於 2013-11-12 14:07 | 顯示全部帖子

本帖最後由 acdx 於 2013-11-12 14:10 編輯

回復 2# GBKEE
按下Save時可選擇儲存路徑
      ->將TextBox1~TextBox5內容以行為單位依序排列寫入text file
         Ex: TextBox1=10, TextBox2=3, TextBox3=9.5, TextBox4=7, TextBox5=0.3
               text file: 10
                                 3
                              9.5
                                 7
                              0.3
      ->顯示一個視窗: 可以選擇儲存路徑及命名

按Load時可選擇不同路徑下的txt檔
      ->顯示一個視窗: 可以選擇要開啟的text file
      ->將text file中以行為單位依序寫入TextBox1~TextBox5
Ex:
Private Sub CommandButton2_Click()
Dim txtFile As String
txtFile = Application.GetOpenFilename("文字文件,*.txt;*.txt")
If txtFile = CStr(False) Then
MsgBox "No file was selected."
End If
將text file中以行為單位依序寫入TextBox1~TextBox5

End Sub

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

3^#

發表於 2013-11-12 17:19 | 顯示全部帖子

回復 4# GBKEE
我想達成的有2種功能:
功能1.將TextBox中數值轉存成.txt檔
使用者自行輸入數值後存檔成.txt檔並可自行命名(Ex: Cn.txt)

開啟Cn.txt即出現TextBox1~TextBox5中數值

功能2.將已存在的.txt檔中數值載入表單中TextBox1~TextBox5
使用者點選"Load"開啟Cn.txt

即可載入數值

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

4^#

發表於 2013-11-13 09:42 | 顯示全部帖子

回復 6# GBKEE
現在Save部分需要先選擇開啟一個已存在的txt檔
希望能夠改成直接開啟一個新的txt檔而不是開啟一個已存在的txt檔再寫入覆蓋

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

5^#

發表於 2013-11-13 11:25 | 顯示全部帖子

回復 8# GBKEE
G大實在太強了!這完全是我未知的領域了
請問第7行中".Show=-1"代表什麼意思?
第9行中".SelectedItems(1)"代表什麼意思?

For i = 1 To 5
fs.WriteLine Controls("TEXTBOX" & i)
Next
中i所代表的是txt檔中第幾行嗎?
如果我要改成TextBox3~TextBox7資料填進txt檔中的第1~5行是改成下面這樣嗎?
For i = 1 To 5
fs.WriteLine Controls("TEXTBOX" & i+2)
Next

TOP