質問編集履歴
2
追記部分「テキストボックス内データ」にさらに追記
title
CHANGED
File without changes
|
body
CHANGED
@@ -16,7 +16,8 @@
|
|
16
16
|
アレクサンダー・フレミング,細菌学者,抗生物質「ペニシリン」を発見,1881年 - 1955年,イギリス
|
17
17
|
エドウィン・ハッブル,天文学者・,銀河の赤方偏移を発見,1889年 - 1953年,アメリカ
|
18
18
|
・・・・・・
|
19
|
-
同じように5項目が全18行あります。
|
19
|
+
同じように5項目(列)が全18行あります。
|
20
|
+
出力先のCSVファイルも、ヘッダなしの5列×18行分のセルに収めたいです。
|
20
21
|
|
21
22
|
### 発生している問題・エラーメッセージ
|
22
23
|
|
1
イベント処理追記、テキストボックス内データ追記
title
CHANGED
File without changes
|
body
CHANGED
@@ -11,6 +11,13 @@
|
|
11
11
|
StreamWriter、StringBuilder
|
12
12
|
拡張Forにて、画面のテキストボックス(ResultTXT)のデータを1行ずつCSVファイルに書き込む。
|
13
13
|
|
14
|
+
### テキストボックス内データ
|
15
|
+
アラン・チューリング,コンピュータ科学者・数学者,「チューリングマシ」の提唱者,1912年 - 1954年,イギリス
|
16
|
+
アレクサンダー・フレミング,細菌学者,抗生物質「ペニシリン」を発見,1881年 - 1955年,イギリス
|
17
|
+
エドウィン・ハッブル,天文学者・,銀河の赤方偏移を発見,1889年 - 1953年,アメリカ
|
18
|
+
・・・・・・
|
19
|
+
同じように5項目が全18行あります。
|
20
|
+
|
14
21
|
### 発生している問題・エラーメッセージ
|
15
22
|
|
16
23
|
```
|
@@ -29,9 +36,28 @@
|
|
29
36
|
Country '偉人の出身国
|
30
37
|
End Enum
|
31
38
|
|
39
|
+
Public Class Form1
|
40
|
+
|
41
|
+
''イベント処理
|
42
|
+
'OutputFileBTNクリック時
|
43
|
+
Public Sub OutPutFileBTN_Click(sender As Object,e As EventArgs) Handles OutPutFileBTN.Click
|
44
|
+
Dim sfd As SaveFileDialog
|
45
|
+
|
46
|
+
'出力ファイルパスを取得
|
47
|
+
Dim strFilePath As String = sfd.FileName
|
48
|
+
|
49
|
+
'ダイアログ表示
|
50
|
+
If sfd.ShowDialog() = DialogResult.OK Then
|
51
|
+
'メッセージ
|
52
|
+
If System.IO.File.Exists(sfd.FileName) Then
|
53
|
+
'完了メッセージ
|
54
|
+
End If
|
55
|
+
End If
|
56
|
+
|
57
|
+
|
58
|
+
''実行処理
|
32
|
-
'
|
59
|
+
'ファイル出力
|
33
|
-
byval strFilePath As String
|
34
|
-
Public Sub OutputCSV(Result.txt As TextBox,)
|
60
|
+
Public Sub OutputCSV(Result.txt As TextBox,byval strFilePath As String)
|
35
61
|
'CSVファイルに書き込むときに使うEncoding
|
36
62
|
Dim enc As System.GetEncoding("Shift_JIS")
|
37
63
|
'書き込むファイルを開く
|