テキストファイルへの文字挿入
投稿者 魔界の仮面弁士 (社会人)
投稿日時
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 Object, ByVal 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 18:58:47
魔界の仮面弁士さん ありがとうございます。
コーディングしていただいた内容で実行してみたところ
行：4
文字：8
エラー：識別子がありません
のエラーとなるのですが。
お手数おかけいたします。
コーディングしていただいた内容で実行してみたところ
行：4
文字：8
エラー：識別子がありません
のエラーとなるのですが。
お手数おかけいたします。
3個目の「,」の後に数字6桁が入っています。
他の項目は桁数可変ですが、この部分は6桁固定です。
ex.
あああああ,ＡＡＡ,090523,ああああああ
いい,ＢＢＢＢＢ,090101,いいいい
この"090523"を"09/05/23"と置換（2桁おきに"/"を挿入）したいのですが、スキルがないため方法がわかりません。
すでにあるファイルを処理するのであれば、Ｅｘｃｅｌ読み込み後に置換処理などでなんとかなると思いますが、日次で毎日ファイルが作成されるため、自動的に処理したいのです。
ＶＢ、バッチなどのプログラムで一括で処理できないでしょうか。
お力添えをいただければありがたいです。
よろしくお願いいたします。
OKWaveやYAHOO知恵袋でも質問してありますが、なかなか回答がないため
こちらは初めてですが投稿させていただきました。