VBSで、CSVをテキスト形式で編集（列挿入）する方法

Question

#VBSでCSVを編集する方法について
VBS初心者です。
業務でVBSの作成が必要なため、手探り状態でコードを書いております。
一部、処理が上手くいかずに行き詰っているところがあるため、
以下の内容について、知識がある方にご教授いただければと思っております。

実現したいこと

csvをテキスト形式で開き、17列あるリストの15列目・16列目に新しく2列を挿入したい。
挿入した列の1行目のみ、15列目に文字列"レンタル"を入れ、16列目に文字列"プラン名"を挿入、
2行目以降は15列目16列目には文字列を入力せず空白（列追加のみの状態）にしたい。
この処理をVBSにて実行したい。

CSVの状態

・元のcsvの状態

|列1|列2|列3|列4|列5|列6|列7|列8|列9|列10|列11|列12|列13|列14|列15|列16|列17|
| あ | い| う| え | お| か | き | く | け | こ | さ | し | す | せ | そ | た | ち |
| :　| : |　: | :　|　:　| :　|　:　| :　 | : 　| :　|　:　| :　 | :　 | :　 |　:　 | : 　|
| :　| : |　: | :　|　:　| :　|　:　| :　 | : 　| :　|　:　| :　 | :　 | :　 |　:　 | : 　|
| :　| : |　: | :　|　:　| :　|　:　| :　 | : 　| :　|　:　| :　 | :　 | :　 |　:　 | : 　|
:
:

・実現したい列挿入後のcsvの状態

　　 |列1|列2|列3|列4|列5|列6|列7|列8|列9|列10|列11|列12|列13|列14|　列15　|　列16 |列17|列18|列19|
| あ| い | う| え | お| か| き | く | け | こ | さ | し | す | せ |レンタル|プラン名| そ | た | ち |
| :　| : |　: | :|　:　| :　|:　| :　 | :　| :　|　:　| :　 | :　 | :|　　　　|　　　　 | ： | 　: | 　: |
| :　| : |　: | :|　:　| :　|:　| :　 | :　| :　|　:　| :　 | :　 | :|　　　　|　　　　 | ： | 　: | 　: |
| :　| : |　: | :|　:　| :　|:　| :　 | :　| :　|　:　| :　 | :　 | :|　　　　|　　　　 | ： | 　: | 　: |
:
: 　

以下のソースコードでできていること

・1行目の列15,16にそれぞれ、文字列"レンタル"、"プラン名"を挿入してCSVを出力。

以下のソースコードでできないこと

・2行目以降にも列追加（空白のまま）をしたいが、できていない。
・多次元配列にして2行目以降にも列挿入し、2行目以降は空白を挿入する分岐処理を行うことが必要かと思っているが、配列に関する知識も乏しく、方法が分からない。

試したこと（ソースコード）

コードの表示(インライン)

コードの表示(ブロック)
Option Explicit

Dim objFile
Dim strLine
Dim strLineSplited
Dim j
Dim k
Dim i
Dim data
Dim objwriteFile
Dim objwriteFso
Dim inputcsv
Dim outputcsv

'列を追加する位置と、文字列を定義

'追加位置①（インデックス）
Const add1 = 14          

'追加位置②（インデックス）
Const add2 = 15           				

'追加文字列①
Const rental_Prace = "レンタル"

'追加文字列②
Const plan_Name = "プラン名"


'格納ファイルの文字コードを指定
Set inputcsv = CreateObject("ADODB.Stream")
inputcsv.Type = 2
inputcsv.Charset = "shift_jis"
inputcsv.Open

'出力ファイルの文字コードを指定
'Set outputcsv = CreateObject("ADODB.Stream")
'outputcsv.Type = 2
'outputcsv.Charset = "shift_jis"
'outputcsv.Open

'ファイルシステムオブジェクト定義
     Dim    objFSO
     Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'フォルダパス
    Dim objPath
    Const strFolder = "C:\temp\test"
    If objFSO.FolderExists(strFolder) = False Then
        Set inputcsv = Nothing
        WScript.Quit
    End If
    Set objPath = objFSO.GetFolder(strFolder & "\")

For Each objFile In objPath.Files
    Dim FileName 
    FileName    =    objFile.Name

    If InStr(FileName, "番号") > 0 Then
    '文字列の中に"16"の文字が無いcsvで以下の処理が行われます。
    	If InStr(FileName, "(16)") = 0 Then
		
    		inputcsv.LoadFromFile objPath & "\" & FileName

		j = 1

			Do Until inputcsv.EOS
  			'1行ずつ読み取り、strLineに格納

				strLine = inputcsv.ReadText(-1)
				WScript.Echo strLine
				strLineSplited = Split(strLine, ",")
				
				'配列を一つ増やす
				ReDim Preserve strLineSplited(UBound(strLineSplited) + 2)
 
				'配列末尾から追加位置まで順番に置換①
				For i = UBound(strLineSplited) To ADDprace + 1 Step -1
    					strLineSplited(i) = strLineSplited(i - 1)
				Next

				'配列末尾から追加位置まで順番に置換②
				For i = UBound(strLineSplited) To add_planname + 1 Step -1
    					strLineSplited(i) = strLineSplited(i - 1)
				Next
				
				'指定位置を置換①
				strLineSplited(add1) = rental_Prace

				'指定位置を置換②
				strLineSplited(add2) = plan_Name

				 j=ubound(strLineSplited)

				 if j<>-1 then
					for k=0 to j
						data = data & strLineSplited(k) & ","
					next
				 End If

				'出力ファイルの文字コードを指定
				 Set outputcsv = CreateObject("ADODB.Stream")
				 outputcsv.Type = 2
				 outputcsv.Charset = "shift_jis"
				 outputcsv.Open
				 outputcsv.WriteText data, 1


			Loop
			'出力ファイルを、格納ファイルと同じファイル名で保存
			outputcsv.SaveToFile "C:\temp\test\test1.csv", 2

	 End If
    End If 
 
Next

inputcsv.Close
outputcsv.Close
 
Set objFSO = Nothing
Set inputcsv = Nothing
Set outputcsv = Nothing

ご教授いただきたいこと

上記のソースコードに、どのようなコードを追加すれば処理が実現できますでしょうか。
お知恵のある方いらっしゃいましたら、ご教授いただけると幸いです。
よろしくお願いいたしますm(__)m

Comments

[YT0014]

タグVBAは、VBScriptとは異なる言語ですので、タグから外すことをお勧めします
また、ソースコードですが、'''の直後は、言語を指定する場所なので、HTMLからVBScriptにされたほうが良いのではないでしょうか。

Answer 1

こんな感じでどうでしょうか。

    '出力ファイルの文字コードを指定
    Set outputcsv = CreateObject("ADODB.Stream")
    outputcsv.Type = 2
    outputcsv.Charset = "shift_jis"
    outputcsv.Open
    
    Dim lineNo
    lineNo = 0
    
    Do Until inputcsv.EOS
      '1行ずつ読み取り、strLineに格納
        lineNo = lineNo + 1
        strLine = inputcsv.ReadText(-2)
       'WScript.Echo strLine
        strLineSplited = Split(strLine, ",")

        '配列を一つ増やす
        ReDim arr(UBound(strLineSplited) + 2)

        For i = 0 To add1 - 1
            arr(i) = strLineSplitted(i)
        Next
        If lineNo = 1 Then
            arr(add1) = rental_Prace
            arr(add2) = plan_Name
        End If
        For i = add2 + 1 To UBound(arr)
            arr(i) = strLineSplitted(i - 2)
        Next
        
        Data = Join(arr, ",")
        outputcsv.WriteText Data, 1
    Loop
    '出力ファイルを、格納ファイルと同じファイル名で保存
    outputcsv.SaveToFile objPath & "\" & FileName, 2
    outputcsv.Close

Comments

[mikan_p]

丁寧なご回答ありがとうございます。
コード参考にさせていただきます。
ReadText(-1)にしておりましたが、ReadText(-2)で行ごとに読み取って
改行処理を加えることで解決いたしました！
ありがとうございましたm(__)m

Answer 2

列を入れ替えたいわけでもなく、欲しい結果がCSVなら配列に入れ直す必要もなく、そのまま出力した方が早くないですか？

Dim readCols As Variant
Dim c As Long  ' 現在のカラム番号管理用
Dim addIdx1 As Long
Dim addIdx2 As Long
Dim addCol1 As String
Dim addCol2 As String

addIdx1 = 14
addCol1 = "レンタル,"

addIdx2 = 15
addCol2 = "プラン,"

' ファイルオープンのゴニョゴニョ。

Do ' この辺で strLine に1行ずつ読み込む

  readCols = Split(strLine, ",")
' readColsの要素数が足りていない場合のエラーチェックは省略

  c = 1 ' 最初のカラムは 1
  For i = LBound(readCols) to UBound(readCols)
' 最後のカラムの後ろにコンマは要らないとかは気にしてない
    data = data & readCols(i) & ","
    c = c + 1

' 挿入するカラムの処理
    If c = addIdx1 Then
      data = data & addCol1 
      c = c + 1
    End If

    If c = addIdx2 Then
      data = data & addCol2 
      c = c + 1
    End If
  Next
' ヘッダ行以外はスペースを追加。2行目以降これが毎回実行されるけれど、この程度なら実害はない
  addCol1 = " ,"
  addCol2 = " ,"

' 1行分のデータ出力処理をどうするかは省略
Loop

' ファイルに保存。

Comments

[mikan_p]

丁寧なご回答ありがとうございます。
多次元配列に格納する必要があるのかと思っておりましたが、
ReadText(-2)で行ごとに読み取って改行すると上手くいきました。
ありがとうございましたm(__)m

Answer 3

長いので、部分的にしか読んでませんが、

strLine = inputcsv.ReadText(-1)

は、行単位で読むならReadText(-1)じゃなくてReadText(-2)では？

Comments

[mikan_p]

ご回答いただきありがとうございます。
ReadText(-1)だと行ごとに改行されたまま出力されるのですが、
ReadText(-2)にすると、処理自体はできるのですが行ごとに
改行されないまま出力されてしまいます…

[otn]

改行を出力しないと改行されないのは当たり前です。
適切な箇所で改行を付加しましょう。

1行ずつ読み込むことと、ファイル全部まとめて読み込むことの違いを理解しましょう。

[mikan_p]

ReadText(-2)として行ごとに改行すればできました！
単純なところ難しくとらえておりました…
ありがとうございました。