Извлечение данных из txt фрагментами - Visual Basic .NET

Узнай цену своей работы

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

Нужна помощь с извлечением данных из текстового файла. Извлечение нужно производить не с начала файла, а после определённой фразы. После нее идет огромный массив данных, состоящий из даты и значения температуры. Нужно извлекать значение температуры в зависимости от даты, дата изменяется с шагом в 10 минут и сравнивается с допустимым диапазоном, если диапазон не подходит, то ничего не извлекается. Дата сравнивается с точностью до секунды, а значение температуры состоит исключительно из чисел. Значения температуры заносятся в таблицу экселя, дата сравнивается с датой из той-же таблицы в экселе, там уже есть массив ячеек с разбивкой дат по шагу в рамках допустимого диапазона. Форматы дат в файле и экселе совпадают. Тело файла выглядит так:
Спойлер

Решение задачи: «Извлечение данных из txt фрагментами»

textual
Листинг программы
  1.  Dim tmp As String = ""
  2.         Try
  3.             tmp = IO.File.ReadAllText("C:\Users\administrator\Desktop\data.txt", System.Text.Encoding.Default) ' считываем данные
  4.         Catch ex As Exception
  5.         End Try
  6.         If tmp <> "" Then
  7.             Dim razdel() As String = Split(tmp, "Значения измеренных величин:") 'режем все, что есть по тексту
  8.             Dim main() As String = Split(razdel(1), "°C") ' все, после заданного выше текста режем по °C
  9.             For i = 0 To main.Count - 2 ' запускаем цикл от 0 до кол-ва записей с "°C", в итоге будем получать строку вида (24/03/2016 09:00:01 - 23.0912 )
  10.                 Dim s() As String = Split(main(i), "-") ' режем полученную строку по -, чтобы отделить дату от температуры
  11.                 ListBox1.Items.Add(s(0)) ' дата
  12.                 ListBox2.Items.Add(s(1)) ' температура
  13.             Next
  14.         End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут