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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-11-12 11:24 | 只看該作者

本帖最後由 GBKEE 於 2013-11-12 13:39 編輯

回復 1# acdx
想要將TextBox1, TextBox2, TextBox3, TextBox4, TextBox5轉成txt檔存(Save)在某個路徑下 : -> TextBox內容是txt檔的名稱???
按下Save時可選擇儲存路徑                      :->顯示一個視窗,TextBox內容???
再將某個路徑下的txt檔中的數值讀進(Load)TextBox1, TextBox2, TextBox3, TextBox4, TextBox5 : -> TextBox內容是txt檔中的數值???
按Load時可選擇不同路徑下的txt檔                :->顯示一個視窗,TextBox內容???
該如何寫呢?                                                 :->看的一頭霧水,請再清楚些

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

acdx

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

3^#

發表於 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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-11-12 16:24 | 只看該作者

回復 3# acdx
如何SAVE還是看不懂.

Option Explicit
Private Sub CommandButton2_Click()
Dim txtFile As Variant, i As Integer
txtFile = Application.GetOpenFilename("文字文件,*.txt;*.txt", , "指令:Load", , True)
'參數 True :為 True 則允許選定多個檔案名稱，如果為 False 則只允許選定單個檔案名稱。預設值為 False。
'txtFile 沒選擇:型態= Boolean(非True 即 False),選擇:型態= Variant(),下限的索引值從1開始的陣列,
'*******************************************************************************
Debug.Print TypeName(txtFile) '指令:檢視->即時運算視窗可見 Debug.Print 的字串
'*******************************************************************************
If TypeName(txtFile) = "Boolean" Then
MsgBox "No file was selected."
Else
For i = 1 To 5
With Controls("textbox" & i)
.Text = ""
If i <= UBound(txtFile) Then .Text = txtFile(i)
End With
Next
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

acdx

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

5^#

發表於 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

即可載入數值

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-11-12 21:08 | 只看該作者

本帖最後由 GBKEE 於 2013-11-13 07:57 編輯

回復 5# acdx
試試看

Option Explicit
Private Sub CommandButton1_Click() 'Save
Dim txtFile As Variant, i As Integer, fs As Object
txtFile = Application.GetOpenFilename("文字文件,*.txt;*.txt", , "指令:Save", , False)
If TypeName(txtFile) = "Boolean" Then
MsgBox "No file was selected."
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = fs.OpenTextFile(txtFile, 2, 0)
' 參數 : 2
' 1 開啟一個唯讀檔案，無法對此檔案進行寫入。
' 2 開啟一個用於寫入的檔案。如果和此檔案同名的檔案已存在，則覆蓋以前內容。
' 8 開啟一個檔案並寫輸出至檔案的尾部。
For i = 1 To 5
fs.WriteLine Controls("TEXTBOX" & i)
Next
fs.Close
End If
End Sub
Private Sub CommandButton2_Click() 'LOAD
Dim txtFile As Variant, i As Integer, fs As Object
txtFile = Application.GetOpenFilename("文字文件,*.txt;*.txt", , "指令:Load", , False)
If TypeName(txtFile) = "Boolean" Then
MsgBox "No file was selected."
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = fs.OpenTextFile(txtFile, 1, 0)
For i = 1 To 5
Controls("TEXTBOX" & i) = fs.READLine
Next
fs.Close
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

acdx

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

7^#

發表於 2013-11-13 09:42 | 只看該作者

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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-11-13 10:26 | 只看該作者

回復 7# acdx

Option Explicit
Private Sub CommandButton1_Click() 'Save
Dim i As Integer, fs As Object
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Save"
.FilterIndex = 6 '2003 文件檔的選項
If .Show = -1 Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = fs.CreateTextFile(.SelectedItems(1), True)
' 參數 : True
'表示一個已存在檔案是否可被覆蓋。如果可被覆蓋其值為 True，其為 False 時無法覆蓋。如果它被省略，則已存在檔案無法覆蓋。
For i = 1 To 5
fs.WriteLine Controls("TEXTBOX" & i)
Next
fs.Close
Else
MsgBox "No file was selected."
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

acdx

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

9^#

發表於 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