ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó±NTextBoxÂনtxtÀÉ

[µo°Ý] ¦p¦ó±NTextBoxÂনtxtÀÉ

¥»©«³Ì«á¥Ñ acdx ©ó 2013-11-12 10:29 ½s¿è

·Q­n±NTextBox1, TextBox2, TextBox3, TextBox4, TextBox5ÂনtxtÀɦs(Save)¦b¬Y­Ó¸ô®|¤U
«ö¤USave®É¥i¿ï¾ÜÀx¦s¸ô®|
¦A±N¬Y­Ó¸ô®|¤UªºtxtÀɤ¤ªº¼Æ­ÈŪ¶i(Load)TextBox1, TextBox2, TextBox3, TextBox4, TextBox5
«öLoad®É¥i¿ï¾Ü¤£¦P¸ô®|¤UªºtxtÀÉ
¸Ó¦p¦ó¼g©O?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-12 13:39 ½s¿è

¦^´_ 1# acdx
·Q­n±NTextBox1, TextBox2, TextBox3, TextBox4, TextBox5ÂনtxtÀɦs(Save)¦b¬Y­Ó¸ô®|¤U : -> TextBox¤º®e¬OtxtÀɪº¦WºÙ???
«ö¤USave®É¥i¿ï¾ÜÀx¦s¸ô®|                        :->Åã¥Ü¤@­Óµøµ¡,TextBox¤º®e???
¦A±N¬Y­Ó¸ô®|¤UªºtxtÀɤ¤ªº¼Æ­ÈŪ¶i(Load)TextBox1, TextBox2, TextBox3, TextBox4, TextBox5 : -> TextBox¤º®e¬OtxtÀɤ¤ªº¼Æ­È???
«öLoad®É¥i¿ï¾Ü¤£¦P¸ô®|¤UªºtxtÀÉ                 :->Åã¥Ü¤@­Óµøµ¡,TextBox¤º®e???
¸Ó¦p¦ó¼g©O?                                                  :->¬Ýªº¤@ÀYÃú¤ô,½Ð¦A²M·¡¨Ç
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ acdx ©ó 2013-11-12 14:10 ½s¿è

¦^´_ 2# GBKEE
«ö¤USave®É¥i¿ï¾ÜÀx¦s¸ô®|
        ->±NTextBox1~TextBox5¤º®e¥H¦æ¬°³æ¦ì¨Ì§Ç±Æ¦C¼g¤Jtext file
             Ex: TextBox1=10, TextBox2=3, TextBox3=9.5, TextBox4=7, TextBox5=0.3
                   text file: 10
                                     3
                                  9.5
                                     7
                                  0.3
        ->Åã¥Ü¤@­Óµøµ¡: ¥i¥H¿ï¾ÜÀx¦s¸ô®|¤Î©R¦W

«öLoad®É¥i¿ï¾Ü¤£¦P¸ô®|¤UªºtxtÀÉ
        ->Åã¥Ü¤@­Óµøµ¡: ¥i¥H¿ï¾Ü­n¶}±Òªºtext file
        ->±Ntext file¤¤¥H¦æ¬°³æ¦ì¨Ì§Ç¼g¤JTextBox1~TextBox5
Ex:
Private Sub CommandButton2_Click()
Dim txtFile As String
txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt")
If txtFile = CStr(False) Then
    MsgBox "No file was selected."
End If
±Ntext file¤¤¥H¦æ¬°³æ¦ì¨Ì§Ç¼g¤JTextBox1~TextBox5

End Sub

TOP

¦^´_ 3# acdx
¦p¦óSAVEÁÙ¬O¬Ý¤£À´.
  1. Option Explicit
  2. Private Sub CommandButton2_Click()
  3.     Dim txtFile As Variant, i As Integer
  4.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Load", , True)
  5.     '°Ñ¼Æ True :¬° True «h¤¹³\¿ï©w¦h­ÓÀɮצWºÙ¡A¦pªG¬° False «h¥u¤¹³\¿ï©w³æ­ÓÀɮצWºÙ¡C¹w³]­È¬° False¡C
  6.     'txtFile ¨S¿ï¾Ü:«¬ºA= Boolean(«DTrue §Y False),¿ï¾Ü:«¬ºA= Variant(),¤U­­ªº¯Á¤Þ­È±q1¶}©lªº°}¦C,
  7.     '*******************************************************************************
  8.     Debug.Print TypeName(txtFile)  '«ü¥O:À˵ø->§Y®É¹Bºâµøµ¡ ¥i¨£  Debug.Print ªº¦r¦ê
  9.     '*******************************************************************************
  10.     If TypeName(txtFile) = "Boolean" Then
  11.         MsgBox "No file was selected."
  12.     Else
  13.         For i = 1 To 5
  14.             With Controls("textbox" & i)
  15.                 .Text = ""
  16.                 If i <= UBound(txtFile) Then .Text = txtFile(i)
  17.             End With
  18.         Next
  19.     End If
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
§Ú·Q¹F¦¨ªº¦³2ºØ¥\¯à:
¥\¯à1.±NTextBox¤¤¼Æ­ÈÂà¦s¦¨.txtÀÉ
¨Ï¥ÎªÌ¦Û¦æ¿é¤J¼Æ­È«á¦sÀɦ¨.txtÀÉ ¨Ã¥i¦Û¦æ©R¦W(Ex: Cn.txt)

¶}±ÒCn.txt§Y¥X²{TextBox1~TextBox5¤¤¼Æ­È
6.jpg

¥\¯à2.±N¤w¦s¦bªº.txtÀɤ¤¼Æ­È¸ü¤Jªí³æ¤¤TextBox1~TextBox5
¨Ï¥ÎªÌÂI¿ï"Load"¶}±ÒCn.txt

§Y¥i¸ü¤J¼Æ­È

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-13 07:57 ½s¿è

¦^´_ 5# acdx
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub CommandButton1_Click()  'Save
  3.     Dim txtFile As Variant, i As Integer, fs As Object
  4.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Save", , False)
  5.     If TypeName(txtFile) = "Boolean" Then
  6.         MsgBox "No file was selected."
  7.     Else
  8.         Set fs = CreateObject("Scripting.FileSystemObject")
  9.         Set fs = fs.OpenTextFile(txtFile, 2, 0)
  10.         ' °Ñ¼Æ : 2
  11.         ' 1 ¶}±Ò¤@­Ó°ßŪÀɮסAµLªk¹ï¦¹Àɮ׶i¦æ¼g¤J¡C
  12.         ' 2 ¶}±Ò¤@­Ó¥Î©ó¼g¤JªºÀɮסC¦pªG©M¦¹ÀɮצP¦WªºÀɮפw¦s¦b¡A«hÂл\¥H«e¤º®e¡C
  13.         ' 8 ¶}±Ò¤@­ÓÀɮרüg¿é¥X¦ÜÀɮתº§À³¡¡C
  14.         For i = 1 To 5
  15.             fs.WriteLine Controls("TEXTBOX" & i)
  16.         Next
  17.         fs.Close
  18.     End If
  19. End Sub
  20. Private Sub CommandButton2_Click() 'LOAD
  21.     Dim txtFile As Variant, i As Integer, fs As Object
  22.     txtFile = Application.GetOpenFilename("¤å¦r¤å¥ó,*.txt;*.txt", , "«ü¥O:Load", , False)
  23.     If TypeName(txtFile) = "Boolean" Then
  24.         MsgBox "No file was selected."
  25.     Else
  26.         Set fs = CreateObject("Scripting.FileSystemObject")
  27.         Set fs = fs.OpenTextFile(txtFile, 1, 0)
  28.         For i = 1 To 5
  29.             Controls("TEXTBOX" & i) = fs.READLine
  30.         Next
  31.         fs.Close
  32.     End If
  33. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE
²{¦bSave³¡¤À»Ý­n¥ý¿ï¾Ü¶}±Ò¤@­Ó¤w¦s¦bªºtxtÀÉ
§Æ±æ¯à°÷§ï¦¨ª½±µ¶}±Ò¤@­Ó·sªºtxtÀɦӤ£¬O¶}±Ò¤@­Ó¤w¦s¦bªºtxtÀɦA¼g¤JÂл\

TOP

¦^´_ 7# acdx
  1. Option Explicit
  2. Private Sub CommandButton1_Click()  'Save
  3.     Dim i As Integer, fs As Object
  4.     With Application.FileDialog(msoFileDialogSaveAs)
  5.         .Title = "Save"
  6.         .FilterIndex = 6    '2003 ¤å¥óÀɪº¿ï¶µ
  7.         If .Show = -1 Then
  8.             Set fs = CreateObject("Scripting.FileSystemObject")
  9.             Set fs = fs.CreateTextFile(.SelectedItems(1), True)
  10.             ' °Ñ¼Æ : True
  11.             'ªí¥Ü¤@­Ó¤w¦s¦bÀɮ׬O§_¥i³QÂл\¡C¦pªG¥i³QÂл\¨ä­È¬° True¡A¨ä¬° False ®ÉµLªkÂл\¡C¦pªG¥¦³Q¬Ù²¤¡A«h¤w¦s¦bÀÉ®×µLªkÂл\¡C
  12.             For i = 1 To 5
  13.                 fs.WriteLine Controls("TEXTBOX" & i)
  14.             Next
  15.             fs.Close
  16.         Else
  17.             MsgBox "No file was selected."
  18.         End If
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
G¤j¹ê¦b¤Ó±j¤F!³o§¹¥þ¬O§Ú¥¼ª¾ªº»â°ì¤F
½Ð°Ý²Ä7¦æ¤¤".Show=-1"¥Nªí¤°»ò·N«ä?
²Ä9¦æ¤¤".SelectedItems(1)"¥Nªí¤°»ò·N«ä?

For i = 1 To 5
     fs.WriteLine Controls("TEXTBOX" & i)
Next
¤¤i©Ò¥Nªíªº¬OtxtÀɤ¤²Ä´X¦æ¶Ü?
¦pªG§Ú­n§ï¦¨TextBox3~TextBox7¸ê®Æ¶ñ¶itxtÀɤ¤ªº²Ä1~5¦æ¬O§ï¦¨¤U­±³o¼Ë¶Ü?
For i = 1 To 5
     fs.WriteLine Controls("TEXTBOX" & i+2)
Next

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-14 07:06 ½s¿è

¦^´_ 9# acdx
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer
  4.     With Application.FileDialog(msoFileDialogFilePicker)
  5.         .AllowMultiSelect = True
  6.         'AllowMultiSelect ÄÝ©Ê ½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©wTrue ¦pªG¤¹³\¨Ï¥ÎªÌ±qÀÉ®×¹ï¸Ü¤è¶ô¿ï¨ú¦h­ÓÀɮסCŪ/¼g Boolean¡C
  7.    
  8.         'FileDialog µøµ¡¦³¿ï¾ÜÀÉ®× .Show = True
  9.         'True       True ÃöÁä¦rªº­Èµ¥©ó -1¡C
  10.         'False      False ÃöÁä¦rªº­Èµ¥©ó 0¡C
  11.         If .Show = True Then   
  12.         'If .Show <> 0 Then           '±ø¥ó¤@¼Ë
  13.         'If .Show Then                   '±ø¥ó¤@¼Ë
  14.         'If .Show = -1 Then            '±ø¥ó¤@¼Ë
  15.             For i = 1 To .SelectedItems.Count   '¹ï¸Ü¤è¶ô¿ï¨ú¦h­ÓÀɮתº­Ó¼Æ
  16.                 MsgBox .SelectedItems(i)
  17.         
  18.             Next
  19.         Else
  20.             MsgBox "No file was selected."
  21.         End If
  22.     End With
  23. End Sub
½Æ»s¥N½X
¤¤i©Ò¥Nªíªº¬OtxtÀɤ¤²Ä´X¦æ¶Ü? ¬OControls("TEXTBOX" & i)

fs.WriteLine   "¦r¦ê"  ->  ¾ã¦æ¼g¤JÀÉ®×
  1. '¤]¥i¥H¦p¦¹§ï
  2. For i = 3 To 7
  3.      fs.WriteLine Controls("TEXTBOX" & i)
  4. Next
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD