Option Explicit On Option Strict On Public Class Form1 Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Dim sr As System.IO.StreamReader Dim sw As System.IO.StreamWriter Dim fnameR As String = "" Dim fnameW As String = "" Dim dat As String Dim sbuf() As String Dim delim As Char = ","c Dim i As Integer Dim j As Integer Dim nd As Integer Dim nn As Integer Dim n As Integer Dim m As Integer nn = 100 n = 8 m = 7 Dim scom() As String ReDim scom(n) Dim xd(,) As Double ReDim xd(nn - 1, m) '入出力ファイル指定 OpenFileDialog1.InitialDirectory = System.IO.Directory.GetCurrentDirectory() If OpenFileDialog1.ShowDialog() = DialogResult.OK Then fnameR = OpenFileDialog1.FileName If SaveFileDialog1.ShowDialog() = DialogResult.OK Then fnameW = SaveFileDialog1.FileName 'データ入力 sr = New System.IO.StreamReader(fnameR, System.Text.Encoding.Default) For i = 0 To n dat = sr.ReadLine() : scom(i) = dat Next i i = 0 Do Until sr.EndOfStream dat = sr.ReadLine() sbuf = dat.Split(delim) For j = 0 To m xd(i, j) = Double.Parse(sbuf(j)) Next j i = i + 1 Loop sr.Close() nd = i - 1 'データ書き込み sw = New System.IO.StreamWriter(fnameW, False, System.Text.Encoding.Default) For i = 0 To n dat = scom(i) : sw.WriteLine(dat) Next i For i = 0 To nd dat = xd(i, 0).ToString() For j = 1 To m dat = dat & "," & xd(i, j).ToString() Next j sw.WriteLine(dat) Next i sw.Close() 'テキストボックスへの書き込み TextBox1.Multiline = True TextBox1.Height = 100 TextBox1.WordWrap = False TextBox1.ScrollBars = ScrollBars.Both TextBox1.Clear() 'フルパス dat = fnameR TextBox1.AppendText(dat & ControlChars.CrLf) 'パス名 dat = System.IO.Path.GetDirectoryName(fnameR) TextBox1.AppendText(dat & ControlChars.CrLf) 'ファイル名 dat = System.IO.Path.GetFileName(fnameR) TextBox1.AppendText(dat & ControlChars.CrLf) '拡張子無しファイル名 dat = System.IO.Path.GetFileNameWithoutExtension(fnameR) TextBox1.AppendText(dat & ControlChars.CrLf) '拡張子 dat = System.IO.Path.GetExtension(fnameR) TextBox1.AppendText(dat & ControlChars.CrLf) '出力結果 'C:\vb2010pro\vb0FTEST\inpTEST.csv 'C:\vb2010pro\vb0FTEST 'inpTEST.csv() 'inpTEST() '.csv() End Sub End Class