Создать второй текстовый файл, в котором нет повторений из первого - VB

Формулировка задачи:

Есть текстовый файл, он имеет структуру: Имя1 время1 время2. То есть примерно в файле это выглядит так: Файл1 23:34 23:35 Файл2 12:23 12:25 и т.д. Написать файл, обрабатывающий предыдущий файл следующим образом:на выходе он формирует другой текстовый файл, в котором нет повторяющихся имен и он имеет следующую структуру: имя время, где время - разность начала и конца из первого текстового файла, и сумма времени если это имя встречалось несколько раз. в фа

Решение задачи: «Создать второй текстовый файл, в котором нет повторений из первого»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Комманда1_Click()
Dim R
Dim oDict
Set oDict = CreateObject("Scripting.Dictionary")
   Dim File As String, CF As String
   File = "c:\ca.log"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
m = Split(CF, vbNewLine)
For R = 0 To UBound(m)
If oDict.Exists(Split(m(R))(0)) Then ' если перый раз встречается
oDict.Item(Split(m(R))(0)) = oDict.Item(Split(m(R))(0)) + DateDiff("n", Split(m(R))(1), Split(m(R))(2))
Else
    oDict.Add Split(m(R))(0), DateDiff("n", Split(m(R))(1), Split(m(R))(2))
End If
Next
End Sub

Оцени полезность:

11 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы