VB Code:
Sub LoadListView(strPath As String, SettingsList As ListView)
Dim s1 As String
SettingsList.ListItems.Clear
Dim fso As New FileSystemObject, tso As TextStream
Set tso = fso.OpenTextFile(strPath)
Do While Not tso.AtEndOfStream
s1 = tso.ReadLine
SettingsList.ListItems.Add , , s1
Loop
tso.Close
End Sub
VB Code:
Dim i As Long
Dim strData() As String
Call LoadListView(App.Path & "\ReadELoadMessages", lstRawData)
DoEvents
lstRawData.ListItems.Remove 1
lstRawData.ListItems.Remove 1
DoEvents
If lstRawData.ListItems.Count >= 10 Then
For i = 10 To lstRawData.ListItems.Count Step 11
If InStr(lstRawData.ListItems.Item(i).Text, "Unable to process transaction") = 0 Then
If InStr(lstRawData.ListItems.Item(i).Text, ":") <> 0 Then
strData = Split(lstRawData.ListItems.Item(i), ":")
lstData.ListItems.Add , , strData(0)
lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Mid$(strData(1), InStr(strData(1), " to ") + 4, InStrRev(strData(1), ".") - InStr(strData(1), " to ") - 4)
lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Mid$(strData(1), InStr(strData(1), "(") + 1, InStrRev(strData(1), ")") - InStr(strData(1), "(") - 1)
lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , strData(3)
lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Left$(strData(2), InStrRev(strData(2), ".") - 1)
End If
End If
Next i
End If