tagCANDY CGI VBレスキュー(花ちゃん) - 2つのテキストボックスの内容を1つのテキストファイルに保存(VB.NET) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
2つのテキストボックスの内容を1つのテキストファイルに保存(VB.NET)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

2つのテキストボックスの内容を1つのテキストファイルに保存(VB.NET) [No.234の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.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

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

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ