タイトル : Re: テキストファイルの分割 投稿日 : 2009/05/13(Wed) 12:09 投稿者 : ダンボ
ヒントだけでいいですか? 10000個固定なのか?、とか、最後のENDはなんとかして、とか、ありますけれど Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim L() As String, M(199) As String, N(49) As String L = Split(TextBox1.Text, vbCrLf) For i As Integer = 0 To 49 Array.Copy(L, i * 200, M, 0, 200) N(i) = Join(M, " ") Next TextBox2.Text = Join(N, vbCrLf) End Sub |