Проблема с обработкой тексового файла

[Наблюдатель]

Есть файл с записями типа:
Source Destination Packets Bytes
194.67.35.195 10.101.1.15 20 7377
10.101.1.15 194.67.35.195 26 3854
81.19.66.97 10.101.1.15 3 281
217.73.243.2 10.101.1.15 24 33088
10.101.1.15 217.73.243.2 26 1443
10.101.1.15 81.19.66.97 7 719
10.101.1.250 222.248.118.197 15 1131
222.248.118.197 10.101.1.250 19 2464
195.216.16.65 10.101.1.37 23 4288

Как его эффективно обработать и потом передать к примеру в Excel и построить диаграму?

[FaKk2]

А что надо?

[Andrey Fedorov]

Как его эффективно обработать и потом передать к примеру в Excel и построить диаграму?

Ну, например, следующий код считает твой текстовый файл и создаст Excel-евский файл с нужным тебе содержанием - открывай его и строй свою диаграмму:

Код: Выделить всё

Dim iHFile As Integer, s As String, i As Long

iHFile = FreeFile
Open "C:\t.txt" For Binary As #iHFile
s = Space(LOF(iHFile))
Get #iHFile, , s
Close #iHFile

i = InStr(s, vbCrLf)
If i Then s = Mid$(s, i + 2)

Open "C:\t.xls" For Binary As #iHFile
Put #iHFile, , Replace(s, " ", vbTab)
Close #iHFile

[Andrey Fedorov]

Кстати, у Win98 где-то в одном из подкаталогов каталога Windows был пример построения диаграммы на vbs. Просьба имеющим Win98 (может и в WinME он есть) - выложите этот примерчик... Поискать его можно по расширению vbs

[Sirik]

Кстати, у Win98 где-то в одном из подкаталогов каталога Windows был пример построения диаграммы на vbs. Просьба имеющим Win98 (может и в WinME он есть) - выложите этот примерчик... Поискать его можно по расширению vbs

В Ме точно нет, по крайней мере я не нашёл

[NetVille]

2 Andrey Fedorov
Вот, сохранился:

Код: Выделить всё

' Пример для сервера сценариев Windows
'
' ------------------------------------------------------------------------
'                     (C) Корпорация Microsoft, 1996-1998
'
' Вы имеете право, не требующее дополнительных лицензионных платежей,
' на использование, изменение, воспроизведение и распространение файлов
' примеров (и любой измененной версии) любым способом, учитывая, что
' Корпорация Microsoft не предоставляет гарантий и обязательств,
' а также не несет ответственности за любой из файлов примеров
' ------------------------------------------------------------------------
   
' Этот пример демонстрирует использование Microsoft Excel с помощью сервера сценариев Windows.

L_Welcome_MsgBox_Message_Text    = "Этот пример демонстрирует использование Microsoft Excel с помощью сервера сценариев Windows."
L_Welcome_MsgBox_Title_Text      = "Пример сервера сценариев Windows"
Call Welcome()
   
' ********************************************************************************
' *
' * Пример Excel
' *

Dim objXL
Dim objXLchart
Dim intRotate

Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,1).Value = 5
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select

Set objXLchart = objXL.Charts.Add()
objXL.Visible = True
objXLchart.Type = -4100     

For intRotate = 5 To 180 Step 5
    objXLchart.Rotation = intRotate
Next

For intRotate = 175 To 0 Step -5
    objXLchart.Rotation = intRotate
Next

' ********************************************************************************
' *
' * Приветствие
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
                      vbOKCancel + vbInformation,    _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub


[/b]