|
分類:[VB.NET/VB2005]
改行コードの置換で困っています。 WindowsイベントログをCSV形式で出力し、加工しやすいように 次の手順で1イベント一行に使用としております。
(1)200 → !200 に置換 (2)改行 → 半角スペースに置換 (3)200! → 改行 + 200に置換
上記を手順を以下のようにコーディングしました。 前提としてIO.StreamReaderを使用してShift-JISで元のCSVを読み込んでいます。
Do Until EventLogReader.EndOfStream StrEventLogRecord = EventLogReader.ReadLine() StrEventLogRecord = Regex.Replace(StrEventLogRecord, "200", "!200", RegexOptions.IgnoreCase) StrEventLogRecord = Regex.Replace(StrEventLogRecord, vbNewLine, " ", RegexOptions.IgnoreCase) StrEventLogRecord = Regex.Replace(StrEventLogRecord, "!200", vbCrLf & "200", RegexOptions.IgnoreCase) EventLogReplaceWriter.WriteLine(StrEventLogRecord) Loop
結果、改行コードが半角スペースに変換されません。 改行コードの置換方法を教えてください。 よろしくお願いします。
|