ＶＢＡ、ＶＢＳカラム（列）の移動方法

###前提・実現したいこと
①tsvファイルを読み込みます。
②不要なカラムを削除します。
③ある特定の文字列が含まれているカラムを指定の位置に移動させます。
④ヘッダーの文言を変更します。
⑤csv(shift-jis)に変更して保存します。

※tsvファイルのデータの内容は
前0の数値があったり、
256byteを越える自由記述のテキストが含まれているデータになります。
そのため、
前0のデータは文字列に
256byteの自由記述のテキストは文字列にすると#になってしまうことが
あるため、読み込み方法を気をつける必要があります。

###該当のソースコード
tsv⇒csvに変換できましたが
カラムの検索の仕方がわかりません。
単純にtsvをエクセルに張り付けて、検索するのはできますが
filesystemobjectなどを使用してカラム削除したりカラム移動する方法を教えていただけないでしょうか？

Do Until objReadStream.AtEndOfLine = True
'1 行読み込み
strLine = objReadStream.ReadLine

'区切り文字を置換（この例ではカンマからタブ）
strLine = replace(strLine, vbTab, ",")

'ファイルに出力
objWriteStream.WriteLine strLine
Loop

###補足情報(言語/FW/ツール等のバージョンなど)
VBA,VBSです

行動規範の内容に同意します

回答2件

前の回答者からも提案されてますが、
１行読み込んで、Splitで配列に分割して、配列で削除、入れ替え等の処理を行う。
それをJoin関数などで文字列に戻して、WriteLineで書き込む、という処理をすることになりますね。

ただ、よほど大きなファイルでないなら、ReadAll で一気にメモリに読み込んで、
Splitで改行で分割、分割したものを、さらにTabで分割して処理する。
で一つの文字列変数にまとめて、Writeで一気に書き込む、というようにした方が
高速に処理できます。

追記

下記のような感じのコードになります。ご参考に。

    '全文読み込み
    strTxt = objReadStream.ReadAll
    '改行で分割、1行毎の配列
    aryLine = Replace(strTxt, vbCrLf)

    For i = LBound(aryLine) To UBound(aryLine)
        'タブで分割、列毎の配列
        aryCol = Split(aryLine(i), vbTab)

        aryCol(0) = aryCol(0) & ","    'カンマ区切り付加
        aryCol(1) = aryCol(1) & ","    'カンマ区切り付加
        aryCol(2) = ""    '不要なカラム（3列目）の削除
        aryCol(3) = aryCol(3) & ","    'カンマ区切り付加

        '以下、配列に対して列の移動、テキスト変更等の処理

        aryLine(i) = Join(aryCol, "") '列を結合して行に戻す
    Next i

    strTxt = Join(aryLine, vbCrLf) '行を改行区切りで結合

    'ファイルに出力
    objWriteStream.Write strTxt