hacker16
22-07-2014, 21:10
http://i58.tinypic.com/fau7ur.jpg
http://i61.tinypic.com/rlc8bs.jpg
Добрый день. Имеется такой код, который проверяет совпадение символов в каждой строке в текстовом файле "text.txt":
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim reader As New StreamReader("text.txt", System.Text.Encoding.GetEncoding(1251))
Do While reader.Peek() >= 0
Dim strok As String = reader.ReadLine()
For Each Text As String In strok
If Text.Equals(TextBox1.Text) Then
MsgBox("Такое слово уже есть")
End If
Next
Loop
reader.Close()
End Sub
End Class
Подскажите пожалуйста, как исправить часть этого кода:
For Each Text As String In strok
If Text.Equals(TextBox1.Text) Then
MsgBox("Такое слово уже есть")
End If
Next
Программа ищет только по одному символу, как это исправить?
http://i61.tinypic.com/rlc8bs.jpg
Добрый день. Имеется такой код, который проверяет совпадение символов в каждой строке в текстовом файле "text.txt":
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim reader As New StreamReader("text.txt", System.Text.Encoding.GetEncoding(1251))
Do While reader.Peek() >= 0
Dim strok As String = reader.ReadLine()
For Each Text As String In strok
If Text.Equals(TextBox1.Text) Then
MsgBox("Такое слово уже есть")
End If
Next
Loop
reader.Close()
End Sub
End Class
Подскажите пожалуйста, как исправить часть этого кода:
For Each Text As String In strok
If Text.Equals(TextBox1.Text) Then
MsgBox("Такое слово уже есть")
End If
Next
Программа ищет только по одному символу, как это исправить?