Password generator

Option Explicit
 
Private Type TrafficData
    ip As String
    RxMB As Double
    TxMB As Double
    TotalMB As Double
End Type
 
Private TrafficList() As TrafficData
Private ItemCount As Long
 
Private Sub main()
    ProcessTrafficFiles App.Path & "\"
End Sub
 
 
Private Sub ProcessTrafficFiles(ByVal folderPath As String)
    Dim fName As String
    Dim fNum As Integer
    Dim line As String
    Dim arr() As String
 
    Dim GlobalRx As Double, GlobalTx As Double, GlobalTotal As Double
    Dim GlobalRxWAN As Double, GlobalTxWAN As Double, GlobalTotalWAN As Double
    
 
    fName = Dir(folderPath & "TrafficAll*.txt")
    ItemCount = 0
 
    Do While fName <> ""
        fNum = FreeFile
        Open folderPath & fName For Input As #fNum
 
        Do While Not EOF(fNum)
            Line Input #fNum, line
            line = Trim(line)
 
            If line = "" Then GoTo SkipLine
            If InStr(line, "===") > 0 Then GoTo SkipLine
            If InStr(line, "IP;") > 0 Then GoTo SkipLine
 
            arr = Split(line, ";")
            If UBound(arr) <> 3 Then GoTo SkipLine
 
            If arr(0) <> "WAN (Port1_Wan)" Then
                GlobalRx = GlobalRx + CDbl(arr(1))
                GlobalTx = GlobalTx + CDbl(arr(2))
                GlobalTotal = GlobalTotal + CDbl(arr(3))
                AddOrUpdateTraffic TrimIP(arr(0)), CDbl(arr(1)), CDbl(arr(2)), CDbl(arr(3))
                
            'Else
                'AddOrUpdateTraffic TrimIP(arr(0)), CDbl(arr(1)), CDbl(arr(2)), CDbl(arr(3))
            End If
            
            
            If arr(0) = "WAN (Port1_Wan)" Then
                GlobalRxWAN = GlobalRxWAN + CDbl(arr(1))
                GlobalTxWAN = GlobalTxWAN + CDbl(arr(2))
                GlobalTotalWAN = GlobalTotalWAN + CDbl(arr(3))
            End If
            
            
SkipLine:
        Loop
        Close #fNum
        fName = Dir
    Loop
    
            Debug.Print "GlobalRx = "; GlobalRx
            Debug.Print "GlobalTx = "; GlobalTx
            Debug.Print "GlobalTt = "; GlobalTotal
            Debug.Print ""
            
            Debug.Print "GlobalRx = "; GlobalRxWAN
            Debug.Print "GlobalTx = "; GlobalTxWAN
            Debug.Print "GlobalTt = "; GlobalTotalWAN
 
 
    SortTrafficByTotal
    ShowInRichTextBox GlobalRx, GlobalTx, GlobalTotal, GlobalRxWAN, GlobalTxWAN, GlobalTotalWAN
End Sub
 
Private Function TrimIP(ByVal ip As String) As String
    Dim pos As Long
    pos = InStr(ip, "/")
    If pos > 0 Then
        TrimIP = Left(ip, pos - 1)
    Else
        TrimIP = ip
    End If
End Function
 
Private Sub AddOrUpdateTraffic(ByVal ip As String, ByVal rx As Double, ByVal tx As Double, ByVal total As Double)
    Dim i As Long
    For i = 0 To ItemCount - 1
        If TrafficList(i).ip = ip Then
            TrafficList(i).RxMB = TrafficList(i).RxMB + rx
            TrafficList(i).TxMB = TrafficList(i).TxMB + tx
            TrafficList(i).TotalMB = TrafficList(i).TotalMB + total
            Exit Sub
        End If
    Next i
 
    ReDim Preserve TrafficList(ItemCount)
    TrafficList(ItemCount).ip = ip
    TrafficList(ItemCount).RxMB = rx
    TrafficList(ItemCount).TxMB = tx
    TrafficList(ItemCount).TotalMB = total
    ItemCount = ItemCount + 1
End Sub
 
Private Sub SortTrafficByTotal()
    Dim i As Long, j As Long
    Dim tmp As TrafficData
 
    For i = 0 To ItemCount - 2
        For j = i + 1 To ItemCount - 1
            If TrafficList(j).TotalMB < TrafficList(i).TotalMB Then
                tmp = TrafficList(i)
                TrafficList(i) = TrafficList(j)
                TrafficList(j) = tmp
            End If
        Next j
    Next i
End Sub
 
Private Sub ShowInRichTextBox(ByVal wanRx As Double, ByVal wanTx As Double, ByVal wanTotal As Double, ByVal wanRxWAN As Double, ByVal wanTxWAN As Double, ByVal wanTotalWAN As Double)
    Dim i As Long
    Dim lineText As String
    Dim logLine As String
    Dim outFile As Integer
 
    outFile = FreeFile
    Open App.Path & "\TrafficResult_" & Format(Date, "dd.mm.yy") & "(" & Format(Time$, "hh.mm.ss") & ")" & ".csv" For Output As #outFile
    Print #outFile, "IP;UP(MB);Dn (MB);Total (MB)"
 
    
        For i = 0 To ItemCount - 1
 
            logLine = TrafficList(i).ip & ";" & _
                      Replace(TrafficList(i).TxMB, " ", "") & ";" & _
                      Replace(TrafficList(i).RxMB, " ", "") & ";" & _
                      Replace(TrafficList(i).TotalMB, " ", "")
                      
                      Print #outFile, logLine
            
        Next i
 
    
        logLine = vbCrLf & _
                  "TotalSUM" & ";" & _
                      Replace(wanRx, " ", "") & ";" & _
                      Replace(wanTx, " ", "") & ";" & _
                      Replace(wanTotal, " ", "") & vbCrLf & _
                  "TotalWAN" & ";" & _
                      Replace(wanTxWAN, " ", "") & ";" & _
                      Replace(wanRxWAN, " ", "") & ";" & _
                      Replace(wanTotalWAN, " ", "") & vbCrLf & _
                  "DeltaWAN" & ";" & _
                      Replace(wanTxWAN - wanRx, " ", "") & ";" & _
                      Replace(wanRxWAN - wanTx, " ", "") & ";" & _
                      Replace(wanTotalWAN - wanTotal, " ", "")
                      
        Print #outFile, logLine
    Close #outFile
End Sub
 
Private Function FormatWithSpaces(ByVal value As Double) As String
    Dim s As String
    s = FormatNumber(value, 0, , , vbTrue)
    s = Replace(s, ",", " ")
    s = Replace(s, ".", " ")
    FormatWithSpaces = s
End Function