Создать второй текстовый файл, в котором нет повторений из первого - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д