tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
2つのテキストボックスの内容を1つのテキストファイルに保存(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2009/11/27 14:33
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル入出力][テキストボックス][]                                *
* キーワード:連結,マージ,コンマで区切って,,,                                     *
***********************************************************************************
タイトル : テキストファイルへの保存
記 事 No : 9504
投 稿 日 : 2009/10/27(Tue) 02:18
元質問者 : があ  

2つのテキストボックスの内容を1つのテキストファイルに、
行ごとにコンマで区切って保存させたいのですが、うまくいきません。
--------------------------------------------------
TextBox1の内容  TextBox2の内容
A                E          
B                F
C                G
D                H
テキストファイルに
A,E
B,F
C,G
D,H
---------------------------------------------------
上記のように保存させたいと考えています。

-----------------------------------------------------------------------------------
記事No : 9518
投稿日 : 2009/10/28(Wed) 00:21
回答者 : 花ちゃん
-----------------------------------------------------------------------------------
簡単なサンプルを作ってみました。

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
  TextBox1.Text = "A" & vbCrLf & "B" & vbCrLf & "C" & vbCrLf & "D"
  TextBox2.Text = "E" & vbCrLf & "F" & vbCrLf & "G" & vbCrLf & "H"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
   Dim txt1Line() As String
   txt1Line = TextBox1.Lines
   Dim txt2Line() As String
   txt2Line = TextBox2.Lines
   Dim n As Integer = TextBox1.Lines.Length
   If n < TextBox2.Lines.Length Then
      n = TextBox2.Lines.Length
   End If
   ReDim Preserve txt1Line(n - 1)
   ReDim Preserve txt2Line(n - 1)
   Using sw1 As New System.IO.StreamWriter("c:\test01.txt", False, _
                                                System.Text.Encoding.Default)
      Dim sb As New System.Text.StringBuilder()
      For i As Integer = 0 To n - 1
         sb.AppendLine(txt1Line(i) & "," & txt2Line(i))
      Next i
      sw1.Write(sb)
   TextBox3.Text = sb.ToString
   End Using
End Sub
End Class

  上記、実行結果(画像をクリックすると元のサイズで表示されます。)



 [スレッド一覧へ] [親スレッドへ]