テキストファイルへの文字挿入 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 とし  (社会人) 投稿日時 2009/5/26 18:58:47
魔界の仮面弁士さん ありがとうございます。

コーディングしていただいた内容で実行してみたところ
行:4
文字:8
エラー:識別子がありません

のエラーとなるのですが。

お手数おかけいたします。
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2009/5/26 02:29:20
これで良いのかな。
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgs) Handles Button1.Click
        Dim all As String = File.ReadAllText("C:\a.txt", Encoding.GetEncoding("Shift_JIS"))
        Dim sb As New StringBuilder()
        For Each line As String In Split(all, vbNewLine)
            If String.IsNullOrEmpty(line) Then Continue For
            Dim cols() As String = line.Split(","c)
            If UBound(cols) >= 2 AndAlso cols(2).Length = 6 Then
                cols(2) = Mid(cols(2), 1, 2) & "/" & Mid(cols(2), 3, 2) & "/" & Mid(cols(2), 5, 2)
            End If
            sb.AppendLine(Join(cols, ","))
        Next
        File.WriteAllText("C:\a.txt", sb.ToString(), Encoding.GetEncoding("Shift_JIS"))
    End Sub
End Class
投稿者 とし  (社会人) 投稿日時 2009/5/26 01:05:32
テキストファイル"A.csv"があります。
3個目の「,」の後に数字6桁が入っています。
他の項目は桁数可変ですが、この部分は6桁固定です。

ex.
あああああ,AAA,090523,ああああああ
いい,BBBBB,090101,いいいい

この"090523"を"09/05/23"と置換(2桁おきに"/"を挿入)したいのですが、スキルがないため方法がわかりません。

すでにあるファイルを処理するのであれば、Excel読み込み後に置換処理などでなんとかなると思いますが、日次で毎日ファイルが作成されるため、自動的に処理したいのです。

VB、バッチなどのプログラムで一括で処理できないでしょうか。
お力添えをいただければありがたいです。
よろしくお願いいたします。

OKWaveやYAHOO知恵袋でも質問してありますが、なかなか回答がないため
こちらは初めてですが投稿させていただきました。