回答編集履歴
1
追加質問に対する回答
answer
CHANGED
|
@@ -1,7 +1,14 @@
|
|
|
1
1
|
一番手っ取り早くやるのであれば、カウンター用の変数を用意して0-9までの処理を飛ばしてしまえばいいのではないでしょうか？
|
|
2
2
|
|
|
3
|
+
ファイル書き込みについて追記しました。デバッグなどはやってないので参考としてお持ちください。
|
|
3
4
|
```ここに言語を入力
|
|
4
5
|
|
|
6
|
+
|
|
7
|
+
'書き込み用のファイルストリームを定義
|
|
8
|
+
Dim fs As FileStream = New FileStream("出力先フルパス", FileMode.Append, FileAccess.Write)
|
|
9
|
+
Dim sw As StreamWriter = New StreamWriter(fs)
|
|
10
|
+
Dim oneLine As String
|
|
11
|
+
|
|
5
12
|
'追加部分
|
|
6
13
|
Dim count As integer
|
|
7
14
|
count = 0
|
|
@@ -18,4 +25,20 @@
|
|
|
18
25
|
'一行を読み込んで配列に結果を受け取る
|
|
19
26
|
Dim splittedResult As String() = txtParser.ReadFields()
|
|
20
27
|
|
|
28
|
+
’書き込み用文字列初期化
|
|
29
|
+
oneLine = ""
|
|
30
|
+
|
|
31
|
+
'配列からoutputへ出力する
|
|
32
|
+
For Each output As String In splittedResult
|
|
33
|
+
'ここでCSVの形式となるように成形してください。
|
|
34
|
+
oneLine += output + ","
|
|
35
|
+
Next
|
|
36
|
+
|
|
37
|
+
sw.WriteLine(oneLine)
|
|
38
|
+
|
|
39
|
+
End While
|
|
40
|
+
|
|
41
|
+
sw.Close()
|
|
42
|
+
fs.Close()
|
|
43
|
+
|
|
21
44
|
```
|