Преобразовать строку в массив слов (Visual Basic) - VB
Формулировка задачи:
Здравствуйте. Есть такой код, который должен считывать данные с файлов и далее искать слово word в массиве file.
Но при считывании мы имеем у file тип string. А по заданию необходим массив, т.е. тип string().
Сам VB плохо знаю, очень нужна помощь: как преобразовать тип данных для строки file?
Нашел в интернете два способа, но на них выходят ошибки, с которыми бороться я не могу, в силу плохого знания языка.
(в коде указано два способа вместе с ошибками)
Листинг программы
- Module Module1
- Sub Main()
- Dim file As String = My.Computer.FileSystem.ReadAllText("FILE.txt")
- Dim word As String = My.Computer.FileSystem.ReadAllText("SRC.txt")
- Dim f As String = Split(file, " ", 1) // Значение типа string() невозможно преобразовать в тип string.
- Dim sw = New Stopwatch()
- sw.Start()
- For i = 1 To Len(file)
- f(i) = Mid(file, i, 1) // Свойство Chars помечено как ReadOnly.
- Next
- For i = 1 To Len(file)
- If file = word Then Exit For
- Next
- sw.[Stop]()
- My.Computer.FileSystem.WriteAllText("SpeedTestVB.txt", sw.Elapsed.ToString(), False)
- End Sub
- End Module
Решение задачи: «Преобразовать строку в массив слов (Visual Basic)»
textual
Листинг программы
- Module Module1
- Sub Main()
- Dim file() As String = IO.File.ReadAllLines("FILE.txt") 'считываем файл в массив строк
- Dim word As String = IO.File.ReadAllText("SRC.txt") 'считываем слово из файла
- Dim w As String = "", f As Boolean = False
- For Each w In file 'ищем слово в массиве строк
- If w = word Then f = True : Exit For '
- Next
- If f Then MsgBox(w) Else MsgBox("Not found")
- End Sub
- End Module
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д