1

Imports System.IO
Module Module1

Sub Main()
Using sr As New StreamReader("G:\RMS_LOG.log")
Using sw As New StreamWriter("RMSLOGTEST.csv")
Dim line As String
line = sr.ReadToEnd
line = line.Replace(Chr(13) & Chr(10), "|")
Dim dicTest As New Dictionary(Of String, String)
Dim a() As String = Split(line, "|")
Dim t As Int32 = 0
For i = 0 To 9

Select Case i
Case 0
dicTest.Add(a(t), "StartTime")
Case 1
dicTest.Add(a(t), "ProductId")
Case 2
dicTest.Add(a(t), "ThreadId")
Case 3
dicTest.Add(a(t), "TraceId")
Case 4
dicTest.Add(a(t), "IpAddress")
Case 5
dicTest.Add(a(t), "PortNumber")
Case 6
dicTest.Add(a(t), "ServerId")
Case 7
dicTest.Add(a(t), "NothingId")
Case 8
dicTest.Add(a(t), "ServerName")
Case 9
i = 0
dicTest.Add(a(t), "TxName")
End Select
t += 1
Next
For Each L As KeyValuePair(Of String, String) In dicTest
Console.WriteLine(L.Key + L.Value)
Next
Console.ReadLine()

 

 

 

End Using
End Using
End Sub

End Module