Redline Communications AN-50e Dokumentacja Pobierz pdf (Strona 34)

Appendix 1

This macro takes the raw IP Traffic data files that are saved as text files and stored in

the C:\SampleData file.

Sub Macro2()

Dim objFSO As New FileSystemObject

Dim DataDir As Folder

Dim DataDirFiles As Files

Dim DataFile As File

Dim stream As TextStream

Set DataDir = objFSO.GetFolder("C:\SampleData")

j = 2

For Each DataFile In DataDir.Files

Set stream = DataFile.OpenAsTextStream

stream.ReadLine

I = 1

RunningTotal = 0

Start = 0

Ender = 0

While Not stream.AtEndOfStream

temp = stream.ReadLine

' ActiveSheet.Cells(j, 10) = temp

temp2 = Split(temp, " ")

temp3 = Split(temp2(3), "s")

If IsNumeric(temp3(1)) Then

1 2 ... 29 30 31 32 33 34 35 36 37 38 39 ... 52 53

Brak uwag

Redline Communications AN-50e Dokumentacja Strona 34