VBScriptでcsv内でセットになっている複数行の「下から2行目」を出力したい

Question

タイトルの通り
csv内でセットになっている複数行で
「セットごとの下から2番目の行をテキストファイルに出力する」
という処理を実装したいです。

csvの読み込みやテキストファイル書き出しの箇所は、実行済みなのですが
「Do Until Loopでcsvを1行ずつ読み込む」以降のロジックが全く分かりません。
「セットごとの下から2番目の行」という箇所のロジックについての
アドバイスをお願いしたいです。

なお、下記の例の通り
セットごとの行数はセットによって異なります。

セット,チーム,結果
1,Aomori,miss
1,Akita,miss
1,Fukushima,other
2,Akita,miss
2,Aomori,miss
2,Miyagi,clear
2,Iwate,clear
2,Miyagi,other
2,Akita,clear
3,Fukushima,miss
3,Akita,other
3,Fukushima,other
3,Miyagi,clear
4,Akita,miss
4,Iwate,clear
4,Aomori,clear
5,Akita,miss
5,Iwate,miss
5,Iwate,other
5,Aomori,claer
5,Miyagi,miss

　　
出力結果.txt

セット,チーム,結果
1,Akita,miss
2,Miyagi,other
3,Fukushima,other
4,Iwate,clear
5,Aomori,claer

　　
何卒よろしくお願いいたします。

Answer 1

ファイルがメモリに乗り切らないくらい大きくなければ、全部を配列に読み込んでしまい、後ろから順に見ていって、それぞれの2番目を取れば良いかと思います。

下から2行目
下から2番目の行
上から2番目の行

と違うことが書いてありますが、「下から」が正しいという前提の回答です。

Comments

[clonoth]

ご回答ありがとうございます。
すべて「下から」が正しいです。ご指摘ありがとうございます。修正しました。

[clonoth]

ご回答ありがとうございます。
それぞれの２番目を取る処理はどういったアルゴリズムになりますでしょうか？

[otn]

行数カウンターを設け、「セット」が前回のものと異なったら行数を1として、行数が2になったら該当です。