teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

追記部分「テキストボックス内データ」にさらに追記

2020/06/18 05:56

投稿

urozero
urozero

スコア21

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

イベント処理追記、テキストボックス内データ追記

2020/06/18 05:56

投稿

urozero
urozero

スコア21

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
  '書き込むファイルを開く