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

質問編集履歴

1

改行するよう修正しました。

2019/07/26 08:27

投稿

gyaSon
gyaSon

スコア16

title CHANGED
File without changes
body CHANGED
@@ -33,4 +33,35 @@
33
33
  内容にあたる部分の採番の方法が考え付きません。
34
34
 
35
35
  ご不明な点などがありましたらお申し付けください。
36
- 御助力の程宜しくお願い致します。
36
+ 御助力の程宜しくお願い致します。
37
+
38
+ 追記
39
+ 改行するよう修正しました。
40
+ ```ここに言語を入力
41
+ Public Class Form1
42
+
43
+ Private Sub Button1_Click(ByVal sender As System.Object,
44
+ ByVal e As System.EventArgs) Handles Button1.Click
45
+ 'テキストファイルを上書きで保存する
46
+ Dim sw As New System.IO.StreamWriter("....\log_output.txt", False, System.Text.Encoding.Default)
47
+ '書込み
48
+ sw.Write(TextBox1.Text)
49
+ sw.Close()
50
+
51
+
52
+ End Sub
53
+
54
+
55
+
56
+ Private Sub Button2_Click(ByVal sender As System.Object,
57
+ ByVal e As System.EventArgs) Handles Button2.Click
58
+ 'テキストファイルを追加書込みで保存する
59
+ Dim sw1 As New System.IO.StreamWriter("....\log_output.txt", True, System.Text.Encoding.Default)
60
+ '書込み(上記で作成したファイルに書き込んでいます)
61
+ sw1.Write("," & TextBox1.Text, Environment.NewLine)
62
+ sw1.Close() '結果 texebox1の内容追加
63
+ End Sub
64
+
65
+
66
+ End Class
67
+ ```