Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск и чтение txt файла 
:(
    Опции темы
DreamForLives
Дата 27.1.2014, 01:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.1.2014

Репутация: нет
Всего: нет
Здраствуйте!
Пытаюсь реализовать в программе поиск данных по txt-файлу.

Есть txt-файл с кучей данных, при чем записанных без определенной формы:
Цитата


[rel]
1=25
2=25
3=26
4=24
5=26
6=25

Norm=1.0

[Analys]
Pb=0,3
Mg=0.2,3


Нужно, чтобы программа нашла строчку [rel] , и считала все строчки внизу по очереди пока не дойдет до пустой строки. Дальше отделила значения "25/25/26/24/26/25" от нумеровки "1=" и записала значения в текстбоксы. Потом нашла надпись "Norm" и считала ее значение, ну а потом [Analys] - так же как и в первом случае (строчки вниз до пустой), но значение здесь 0 и 0.2 , а после запятой 3 считывать не надо.

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

Код

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim FI As IO.FileInfo = New IO.FileInfo("C:\Users\Desktop\WindowsApplication2\Inm.txt")
If FI.Exists Then
MsgBox("True")
Else
MsgBox("False")
End If
Try
Dim sr As StreamReader = New StreamReader("Inm.txt")
Dim line As String

' TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\Users\Desktop\Windows Application2\Inm.txt", System.Text.Encoding.GetEncoding(1251)) 

If line.ToUpper.StartsWith("[re]") Then
sr.ReadLine()
Until sr.Readline Nothing
MsgBox("" & line & "")
End If
' Do
' line = sr.ReadLine()
' MsgBox("" & line & "")
' Loop
' sr.Close()

Catch ex As Exception
MsgBox("couldn't be read")

End Try
PM MAIL   Вверх
diadiavova
Дата 11.2.2014, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Проще всего регулярками разобрать. Если еще актуально, то можно покумекать smile

Добавлено через 42 секунды
Цитата(DreamForLives @  27.1.2014,  02:01 Найти цитируемый пост)
If line.ToUpper.StartsWith("[re]") Then

Это условие не выполнится никогда smile 


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0380 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.