VB TEXTデータについて

質問

下記のコードでTEXTを読み取りできましたが、読み取ったデータを使用して座標計算したいのですが
例えば、６列６行あるとします、１列目（X）、２列目（ｙ）、３列目（X1）、４列目（ｙ２）、５列目（角度）、６列目（予備）、となっているものが６行あります、１列目・１行の値から、６列目・６行の値まで指定するとき
どのようなコードがあるのでしょうか、宜しくお願いします。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sr As System.IO.StreamReader = Nothing

'
Try
Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))

Dim doc As String = ""
'１行ずつテキストを読み取る
Do Until sr.EndOfStream
'改行コードが取り除かれてしまうのでVBnewlineで改行を付け直し
doc &= sr.ReadLine & vbNewLine

Loop

'TEXTBOX.2にdocを代入
TextBox2.Text = doc

Catch ex As Exception

MessageBox.Show(ex.Message, "read")
Finally

If sr IsNot Nothing Then

sr.Close()
sr.Dispose()

End If
End Try

End Sub

回答No.10

田中 裕之（@bybalsendercase）

こんばんは

情報ありがとうございます。

私の方では、補足情報に掲載されていたコードをコピペして実行しましたが、TextBox2.Textに値が表示されないことを除けば問題なく線が表示されています。

'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
TextBox2.Text = doc←の部分で毎回初期化されますので、このコードは問題がなければ消去してもいいですね。

あとはなにか、エラーなどは出ていませんか？
「配列の要素が足りません」とか「ファイルが見つかりませんとか」

可能であれば、エラーの内容と、プログラムのどこでストップするのか教えて頂けませんか？
お手数おかけします。

回答No.9

田中 裕之（@bybalsendercase）

こんにちは

お返事ありがとうございます。

＞こんばんは、本当に説明不足ですいません。
お気遣いありがとうございます。
但し、ほとんどが私の読解力不足です。

＞１．TXTファイルですが～～～～～～感じでできますか
残念ながら、ＰＣを購入するとき、金欠病のためエクセルは追加できませんでしたので、エクセル自体触ったことも見たこともありません。
ですので、なにをどうしていいのか全くわかりません。
大変申し訳ありません、別スレッドで質問してください。

＞３．FORM１とFORM２を～～～形にしたいと思っています
FORM１にPictureBoxを貼り付けたサンプルを作成しました。

＞４．下記のコードでCAD～～～角度が必要になってきます）
コードを拝見させて頂きましたが、かなり難易度が高いですね。
コピペして、動作を確認しようと思いましたが、クラスzwDrawCAD.LineDataが、掲載されてませんでしたのでどのように動作するのかわかりませんでした。（残念

FORM１にPictureBoxを貼り付けたサンプルです。

Public Class Form1
Dim i As Integer 'dataで2次元配列にするためのカウンター
Dim pint(6, 6) As Decimal '2次元配列の初期設定
Private Sub f1() Handles MyBase.Shown
TextBox2.Multiline = True 'TextBox2を広げる
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = ""

Dim sr As System.IO.StreamReader = Nothing
'
Try
Dim file As String = " C:\VB TEXT.txt" 'ここをTextBox1.Textにしてください
'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))
Dim doc As String 'fileの1行
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）
Dim x3 As String '３列目（X1）
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）
Dim spare As String '６列目（予備）
Dim item() As String '配列にする

'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む
Do Until IsNothing(doc) 'ここを変更してます
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
data(x1, y2, x3, y4, angle, spare) 'メソッドdataに値を渡す
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
i += 1 'ここを通るたびに1を足す
Loop
'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
' TextBox2.Text = doc

Catch ex As Exception
MessageBox.Show(ex.Message, "read")
Finally
If sr IsNot Nothing Then
sr.Close()
sr.Dispose()
End If
End Try
println() 'PictureBoxに表示するメソッド
End Sub
'2次元配列の作成　　ParamArrayは引数が多い時に宣言すると、下記のように引数が param()1個ですみます
Private Sub data(ByVal ParamArray param() As String)
Dim k As Integer
For k = 0 To 5 '6列あるため6回ループする
pint(i, k) = CDec(param(k))
Next
End Sub
'PictureBoxに表示するメソッド
Private Sub println()
Dim space As New Bitmap(PictureBox1.Width, PictureBox1.Height) '描画範囲の設定
Dim g As Graphics = Graphics.FromImage(space) 'gの型設定
Dim fnt As New Pen(Brushes.Black, 5) 'フォントサイズの設定
Dim ar As Integer 'ループカウンター
For ar = 0 To 5 '線を6本引くので6回ループする
'線の表示
g.DrawLine(fnt, pint(ar, 0), pint(ar, 1), pint(ar, 2), pint(ar, 3))
Next
fnt.Dispose()
g.Dispose()
PictureBox1.Image = space 'PictureBoxに描画
End Sub
End Class

通常はCADは、Ｃ++で書きますので（実行速度が超音速のため）
VBでCADを作成するのは、かなり珍しいと思いますので、是非完成させてください。

補足

こんばんは

デバックしてみようとこころがけましたが、できません、どこがいけないのでしょうか？

Public Class Form1
Dim i As Integer 'dataで2次元配列にするためのカウンター
Dim pint(6, 6) As Decimal '2次元配列の初期設定

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sr As System.IO.StreamReader = Nothing

Try
Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))

Dim doc As String 'fileの1行
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）
Dim x3 As String '３列目（X1）
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）
Dim spare As String '６列目（予備）
Dim item() As String '配列にする

'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む

Do Until IsNothing(doc) 'ここを変更してます
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
data(x1, y2, x3, y4, angle, spare) 'メソッドdataに値を渡す
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
i += 1 'ここを通るたびに1を足す

Loop
'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
TextBox2.Text = doc

Catch ex As Exception
MessageBox.Show(ex.Message, "read")
Finally
If sr IsNot Nothing Then
sr.Close()
sr.Dispose()
End If
End Try
println() 'PictureBoxに表示するメソッド

End Sub
Private Sub data(ByVal ParamArray param() As String)
Dim k As Integer
For k = 0 To 5 '6列あるため6回ループする
pint(i, k) = CDec(param(k))
Next

'PictureBoxに表示するメソッド
End Sub
Private Sub println()
Dim space As New Bitmap(PictureBox1.Width, PictureBox1.Height) '描画範囲の設定
Dim g As Graphics = Graphics.FromImage(space) 'gの型設定
Dim fnt As New Pen(Brushes.Black, 5) 'フォントサイズの設定
Dim ar As Integer 'ループカウンター
For ar = 0 To 5 '線を6本引くので6回ループする
'線の表示
g.DrawLine(fnt, pint(ar, 0), pint(ar, 1), pint(ar, 2), pint(ar, 3))
Next
fnt.Dispose()
g.Dispose()
PictureBox1.Image = space 'PictureBoxに描画
End Sub

End Class

回答No.8

田中 裕之（@bybalsendercase）

すいません

昨日の補足情報を見るのを忘れてました。

＞１．テキストファイルのフルパスが入ります
わかりました。

＞２．カンマ区切りのCSV　または　TEXTのまま
ファイルの中身は
200,100,30,40,30,0
～～～～～
～～～～～
～～～～～
400,150,10,40,60,0
のように、数字と数字の間にカンマが入る形式ですね。

ファイルの拡張子は、「～～～～.txt」みたいなファイルですね。
差し支えなければ、ファイル名を教えて頂けませんか？
公表に問題があれば、そのままで結構です。

＞３．列、行すべて使えるとあ～～～～～線が引けるといったかんじです
少し見えました。
この当たりは何度かやり取りをしないと、megane-enagemの目的の動作にならないかもしれません。
お付き合いお願いします。

＞長々と補足すいませんでした、いつも助かります。
お気遣いありがとうございます。
私も、皆さんにお世話になりました。
ということで、お互いさまですね。
出来る範囲しかできませんが、お手伝いさせてください。

とりあえず、2通目のコードをコピペして、出来る範囲で結構ですので、補足していただけると助かります。
2通目は動作確認のためですので、コメント等は付けてません。

それとどこに線を引くのかも教えてください。
例
Form1に線を引く
PictureBoxに線を引く
Form2に線を引く
その他

できれば、こちらでサンプルを作成するときに、megane-enagemが使用している変数名やコントロール名と合わせたいと考えておりますので、こちらで提示した変数名やコントロール名等が違ってましたら、ご指摘ください。

CADうらやましいな～
私の場合は、CAD,CAMのソフトを約200万円以上払って購入しました。

補足

こんばんは、本当に説明不足ですいません。

１．TXTファイルですが、データを一度エクセルに戻すのでエクセルセル範囲の指定みたいな感じでで　　きますか

２．線はピクチャーBOXで大丈夫です

３．FORM１とFORM２を一つにできるのでしょうか、最終的には一連のコードでCADにアクセス→線の　　　作成みたいな形にしたいと思っています

４．下記のコードでCADに線が描けるのですが、上記のエクセル　セル値を下記のコードと合わせたい　　と思っています　（そこで角度が必要になってきます）

　　たかが２か月程度の初心者に付き合っていただき
　　　ご親切にご指導ありがとうございます。　感謝しています

' LineData用の変数です。
Dim cadLineData As New zwDrawCAD.LineData
'　移動用の変数
Dim MoveDlg As New MoveDialog

Dim cadStartPoint As zwDrawCAD.DPoint = cadLineData.Start
Dim cadEndPoint As zwDrawCAD.DPoint = cadLineData.End

'とりあえず線のセンターポイントは（100,100）にしてます。
Const X As Integer = 0 'cadStartPoint.x = 100
Const y As Integer = 0 'cadStartPoint.x = 100

Dim len As Integer 'TextBox1に入力された線の長さ
Dim angle As Double 'TextBox2に入力された角度　単位は度
Dim ansx As Double '計算された、xの座標
Dim ansy As Double '計算された、yの座標

len = CDbl(TextBox5.Text / 2)
angle = CDbl(TextBox2.Text + 90)

ansx = X + len * (Math.Cos(angle / 180 * Math.PI)) '終点のx座標
ansy = y + len * (Math.Sin(angle / 180 * Math.PI)) '終点のy座標

cadStartPoint.x = ansx * -1
cadStartPoint.y = ansy * -1
cadEndPoint.x = ansx
cadEndPoint.y = ansy

' 参照したオブ ジェクトを解放します。
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadStartPoint)

' アクティブなDocumentを参照します。
Dim cadDocument As zwDrawCAD.Document = cadApplication.ActiveDocument

' 現在の作図属性を参照します。
Dim cadCurrentDraw As zwDrawCAD.DrawData = cadDocument.CurrentDraw

' 現在のレイヤ、線種、線幅、線色を設定します。
cadLineData.LayerNo = cadCurrentDraw.LayerNo
cadLineData.PenStyle = cadCurrentDraw.PenStyle
cadLineData.PenWidth = cadCurrentDraw.PenWidth
cadLineData.PenColor = cadCurrentDraw.PenColor

' 参照したオブジェクトを解放します。
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadCurrentDraw)

' データベースを参照します。
Dim cadDataBase As zwDrawCAD.CADDB = cadDocument.DataBase
' Undo情報を設定します。
cadDataBase.SetDelimitter("始点座標(100,100) 終点座標((ansx,ansy) の線分")

' 追加した要素の参照用変数です。
Dim cadAddPrimitive As zwDrawCAD.Primitive

' 要素を追加します。
cadAddPrimitive = cadDataBase.Add(cadLineData)

' 参照したオブジェクトを解放します。
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadAddPrimitive)
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadLineData)
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadDataBase)
System.Runtime.InteropServices.Marshal.ReleaseComObject(cadDocument)
End Sub

回答No.3

田中 裕之（@bybalsendercase）

おはようございます

補足情報を頂くためサンプルを作成しました。
Form2にPictureBoxを貼り付けて、テキストファイルから読み込んだ値に基づいて、線を引くものです。
但し、線を引く場合は、2点間の値で決定されますので、角度の値は使用してません。
テキストファイルが6行の前提です。
お手数おかけしますが、コピペしてどこがどのように、megane-enagem さんの目的と違うのか、出来る範囲で結構ですので教えてください。
また、Do Until sr.EndOfStreamですと全ての行が表示されませんので、Do Until IsNothing(doc)に変更しています。
今回の事項もCAD関係でしょうか？

Class Form1側

Public Class Form1
Private Sub f1() Handles MyBase.Shown
TextBox2.Multiline = True 'TextBox2を広げる
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = ""
Dim f2 As New Form2
f2.Show()
Dim sr As System.IO.StreamReader = Nothing
'
Try
Dim file As String = " C:\VB TEXT.txt"
'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))
Dim doc As String 'fileの1行
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）、
Dim x3 As String '３列目（X1）、
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）、
Dim spare As String '６列目（予備）、
Dim item() As String '
Dim i As Integer
'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む
Do Until IsNothing(doc) 'ここを変更してます
i += 1
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
f2.data(x1, y2, x3, y4, angle, spare)
f2.int(i)
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
Loop
'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
' TextBox2.Text = doc
f2.println()
Catch ex As Exception
MessageBox.Show(ex.Message, "read")
Finally
If sr IsNot Nothing Then
sr.Close()
sr.Dispose()
End If
End Try
End Sub
End Class

Class Form2側

Public Class Form2
Public pint(6, 6) As Decimal
Public _int As Integer
Public Sub data(ByVal ParamArray param() As String)
Dim k1 As Integer
For k1 = 0 To 5
pint(_int, k1) = CDec(param(k1))
Next
End Sub
Public Sub int(ByVal num As Integer)
_int = num
End Sub
Public Sub println()
Dim space As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(space)
Dim fnt As New Pen(Brushes.Black, 5)
Dim ar As Integer
For ar = 0 To 5
g.DrawLine(fnt, pint(ar, 0), pint(ar, 1), pint(ar, 2), pint(ar, 3))
Next
fnt.Dispose()
g.Dispose()
PictureBox1.Image = space
End Sub
End Class

よろしくお願いします。

回答No.1

田中 裕之（@bybalsendercase）

こんばんは

あいかわらずがんばってますね。
素晴らしい～

私の読解力不足により、3点ほど補足情報をほしいいのですが
1.TextBox1には、テキストファイルのフルパスが入りますか？

2.テキストファイルの形式はわかりますか？
例　　a.カンマ区切りのCSV形式
b.カンマとダブルコーテーション区切りのCSV形式
c.その他

3.
＞１列目・１行の値から、６列目・６行の値まで指定するとき
この当たりの、値の取得方法がもう少し具体的に情報をいただけるとうれしいです。
例　　x. 2列目の値を全て利用する
　　　y. 2列目の値の一部を利用してあとは、他の列の値を利用する。
　　　z.その他

とりあえず、テキストファイルが「a、.カンマ区切りのCSV形式」の場合でTextBox2に全ての値を表示する方法に変更しました。
これだけですと、値を利用することができませんので、情報をくださ～い

Public Class Form1
Private Sub f1() Handles MyBase.Shown
TextBox2.Multiline = True 'TextBox2を広げる
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sr As System.IO.StreamReader = Nothing

'
Try
Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))

Dim doc As String 'file
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）、
Dim x3 As String '３列目（X1）、
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）、
Dim spare As String '６列目（予備）、
Dim item() As String '
'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む
Do Until sr.EndOfStream
'-----------
'ここに値を取得するためのIf文を入れる
'----------
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
Loop

'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
' TextBox2.Text = doc

Catch ex As Exception

MessageBox.Show(ex.Message, "read")
Finally

If sr IsNot Nothing Then

sr.Close()
sr.Dispose()

End If
End Try

End Sub

End Class

値を利用するために、コレクション等を利用するかもしれません。（推測）
すいません、よろしくお願いします。

補足

説明不足ですいませんでした、

１．テキストファイルのフルパスが入ります
２．カンマ区切りのCSV　または　TEXTのまま
３．列、行すべて使えるとありがたいです、単純にエクセルでいえばA1からF6まですべて使いたいです
　　＊ただCADソフトでの使用を考えており、だいぶ前にも質問したのですが、行の欄がAからFで一つ　　　 の線になるようにしたいのです,したがって６行あるとゆうことは６本の線が引けるといったかんじ　　　　です

長々と補足すいませんでした、いつも助かります。