サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/11/27 14:33
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ファイル入出力][テキストボックス][] *
* キーワード：連結,マージ,コンマで区切って,,, *
***********************************************************************************
タイトル ： テキストファイルへの保存
記 事 No ： 9504
投 稿 日 ： 2009/10/27(Tue) 02:18
元質問者 ： があ
２つのテキストボックスの内容を１つのテキストファイルに、
行ごとにコンマで区切って保存させたいのですが、うまくいきません。
--------------------------------------------------
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
上記、実行結果(画像をクリックすると元のサイズで表示されます。)
 |
