Как правильно написать цикл обработки результатов от внешнего приложения? - Visual Basic .NET
Формулировка задачи:
Добрый лень.
Есть файл с кодированной базой. Для нее кем то было написано приложение, чтобы можно было узнать в каком разделе находится та или иная запись. При запуске "MyApp Форма125 base.dat" получается вот такой результат, пример:
и так далее пока искомая строка "Форма125" найдена
На Bash, я перехватывала эти результаты для дальнейшей обработки, со своим комментарием
и так далее.
Сейчас пытаюсь реализовать подобное на VB.net, но результаты плачевные
и так далее, то есть я захватываю только Раздел 2 и всё, остальные результаты просто выводятся на экран и соответственно в переменной pos остается первая найденная запись "Раздел 2".
Решив, что цикл выбран не верно пробую другой
И так далее. Но при этом выводится, что найдено во всех разделах и подразделах но в переменной pos не полная строка, а только буквы этой строки.
Фунуцмя RunExe(), для работы с внешними приложениями используется из этой темы
Помогите пожалуйста как правильно оформить цикл.
Спасибо.
Раздел 2
Раздел 4
Раздел 5 Подраздел 1
Раздел 5 Подраздел 4
Раздел 7
В результате я получала:
Запись есть в Раздел 2
Запись есть в Раздел 4
Запись есть в Раздел 5 Подраздел 1
В результате получается:
Найдено в Раздел 2
Раздел 4
Раздел 5 Подраздел 1
И тут вообше ужас В результате
Найдено в Р
Найдено в а
Найдено в з
Найдено в д
Найдено в е
Найдено в л
Найдено в
Найдено в 2
Найдено в Р
Найдено в а
,,,,,
Решение задачи: «Как правильно написать цикл обработки результатов от внешнего приложения?»
textual
Листинг программы
Dim pos As String pos = RunExe("MyApp", "Форма125 base.dat").ToString() Dim Str() As String = pos.Split(vbCrLf) 'возвращаем массив строк, делим входящую строку знаком каретки For Each St As String In Str() If St.Lenght > 0 Then RichTextBox2.AppendText("Найдено в " & St) End If Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д