Найти индекс заданного элемента в массиве - Visual Basic .NET

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

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

Прошу, помогите. Уже не знаю как найти индекс в массиве Имеется вот такой массив, кол-во строк от 100 до 10 000 может быть и также разно кол-во v\vt\vn\f и их числа:
Спойлер
Цифры после # могут быть любыми, они указывают кол-во v\vt\vn\f. Мне нужно найти названия vertices,texture vertices,vertex normals и faces и узнать их индекс в одномерном массиве Я пробовал через
Листинг программы
  1. Dim masivObjFile() = IO.File.ReadAllLines(Application.StartupPath & "\OBJ" & NameFileObject & "_" & NomerObjFile & ".obj", System.Text.Encoding.Default)
  2. Dim FindThisString As String = "texture vertices"
  3. For Each Str As String In masivObjFile
  4. If Str.Contains(FindThisString) Then
  5. MsgBox("Found " & FindThisString & " at index " &
  6. Str.IndexOf(FindThisString))
  7. End If
  8. Next
но выдавало много "-1". Других примеров по поиску куска текста в массиве не нашёл P.S. пытаюсь прочесть .obj файл, сначала его заганяю в массив и там пытаюсь найти индексы. Разница между индексами начала v и vt укажут на кол-во v и т.д., либо же просто нужно найти "# цифра vertices" и буду знать сколько их, то же самое и с vt\vn\f

Решение задачи: «Найти индекс заданного элемента в массиве»

textual
Листинг программы
  1.         For Each M As System.Text.RegularExpressions.Match In System.Text.RegularExpressions.Regex.Matches(
  2.                 IO.File.ReadAllText(Application.StartupPath & "\OBJ" & NameFileObject & "_" & NomerObjFile & ".obj", System.Text.Encoding.Default),
  3.                  "^# (\d+) (vertices|texture vertices|vertex normals|faces)$",
  4.                  System.Text.RegularExpressions.RegexOptions.Multiline)
  5.             MsgBox("Found " + M.Groups(2).Value + " at index " + M.Groups(1).Value)
  6.         Next

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


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

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

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

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

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

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