質問編集履歴
2
追記部分「テキストボックス内データ」にさらに追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,7 +34,9 @@
|
|
|
34
34
|
|
|
35
35
|
・・・・・・
|
|
36
36
|
|
|
37
|
-
同じように5項目が全18行あります。
|
|
37
|
+
同じように5項目(列)が全18行あります。
|
|
38
|
+
|
|
39
|
+
出力先のCSVファイルも、ヘッダなしの5列×18行分のセルに収めたいです。
|
|
38
40
|
|
|
39
41
|
|
|
40
42
|
|
1
イベント処理追記、テキストボックス内データ追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,6 +23,20 @@
|
|
|
23
23
|
拡張Forにて、画面のテキストボックス（ResultTXT）のデータを1行ずつCSVファイルに書き込む。
|
|
24
24
|
|
|
25
25
|
|
|
26
|
+
|
|
27
|
+
### テキストボックス内データ
|
|
28
|
+
|
|
29
|
+
アラン・チューリング,コンピュータ科学者・数学者,「チューリングマシ」の提唱者,1912年 - 1954年,イギリス
|
|
30
|
+
|
|
31
|
+
アレクサンダー・フレミング,細菌学者,抗生物質「ペニシリン」を発見,1881年 - 1955年,イギリス
|
|
32
|
+
|
|
33
|
+
エドウィン・ハッブル,天文学者・,銀河の赤方偏移を発見,1889年 - 1953年,アメリカ
|
|
34
|
+
|
|
35
|
+
・・・・・・
|
|
36
|
+
|
|
37
|
+
同じように5項目が全18行あります。
|
|
38
|
+
|
|
39
|
+
|
|
26
40
|
|
|
27
41
|
### 発生している問題・エラーメッセージ
|
|
28
42
|
|
|
@@ -60,11 +74,49 @@
|
|
|
60
74
|
|
|
61
75
|
|
|
62
76
|
|
|
63
|
-
|
|
77
|
+
Public Class Form1
|
|
64
78
|
|
|
65
|
-
byval strFilePath As String
|
|
66
79
|
|
|
80
|
+
|
|
81
|
+
''イベント処理
|
|
82
|
+
|
|
83
|
+
'OutputFileBTNクリック時
|
|
84
|
+
|
|
85
|
+
Public Sub OutPutFileBTN_Click(sender As Object,e As EventArgs) Handles OutPutFileBTN.Click
|
|
86
|
+
|
|
87
|
+
Dim sfd As SaveFileDialog
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
91
|
+
'出力ファイルパスを取得
|
|
92
|
+
|
|
93
|
+
Dim strFilePath As String = sfd.FileName
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
'ダイアログ表示
|
|
98
|
+
|
|
99
|
+
If sfd.ShowDialog() = DialogResult.OK Then
|
|
100
|
+
|
|
101
|
+
'メッセージ
|
|
102
|
+
|
|
103
|
+
If System.IO.File.Exists(sfd.FileName) Then
|
|
104
|
+
|
|
105
|
+
'完了メッセージ
|
|
106
|
+
|
|
107
|
+
End If
|
|
108
|
+
|
|
109
|
+
End If
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
|
|
114
|
+
|
|
115
|
+
''実行処理
|
|
116
|
+
|
|
117
|
+
'ファイル出力
|
|
118
|
+
|
|
67
|
-
Public Sub OutputCSV(Result.txt As TextBox,)
|
|
119
|
+
Public Sub OutputCSV(Result.txt As TextBox,byval strFilePath As String)
|
|
68
120
|
|
|
69
121
|
'CSVファイルに書き込むときに使うEncoding
|
|
70
122
|
|