Преобразовать строку в массив слов (Visual Basic) - VB

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

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

Здравствуйте. Есть такой код, который должен считывать данные с файлов и далее искать слово word в массиве file. Но при считывании мы имеем у file тип string. А по заданию необходим массив, т.е. тип string(). Сам VB плохо знаю, очень нужна помощь: как преобразовать тип данных для строки file? Нашел в интернете два способа, но на них выходят ошибки, с которыми бороться я не могу, в силу плохого знания языка. (в коде указано два способа вместе с ошибками)
Листинг программы
  1. Module Module1
  2. Sub Main()
  3.  
  4. Dim file As String = My.Computer.FileSystem.ReadAllText("FILE.txt")
  5. Dim word As String = My.Computer.FileSystem.ReadAllText("SRC.txt")
  6.  
  7. Dim f As String = Split(file, " ", 1) // Значение типа string() невозможно преобразовать в тип string.
  8.  
  9. Dim sw = New Stopwatch()
  10. sw.Start()
  11. For i = 1 To Len(file)
  12.  
  13. f(i) = Mid(file, i, 1) // Свойство Chars помечено как ReadOnly.
  14.  
  15. Next
  16. For i = 1 To Len(file)
  17. If file = word Then Exit For
  18. Next
  19. sw.[Stop]()
  20. My.Computer.FileSystem.WriteAllText("SpeedTestVB.txt", sw.Elapsed.ToString(), False)
  21. End Sub
  22. End Module

Решение задачи: «Преобразовать строку в массив слов (Visual Basic)»

textual
Листинг программы
  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim file() As String = IO.File.ReadAllLines("FILE.txt") 'считываем файл в массив строк
  5.         Dim word As String = IO.File.ReadAllText("SRC.txt") 'считываем слово из файла
  6.         Dim w As String = "", f As Boolean = False
  7.         For Each w In file 'ищем слово в массиве строк
  8.             If w = word Then f = True : Exit For '
  9.         Next
  10.         If f Then MsgBox(w) Else MsgBox("Not found")
  11.     End Sub
  12. End Module

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


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

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

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

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

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

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