RichTextBox, выделите все слова, которые не найдены в базе данных - PullRequest
Новая
       33

RichTextBox, выделите все слова, которые не найдены в базе данных

0 голосов
/ 07 ноября 2018

Я хочу создать средство проверки орфографии, моя задача - прочитать все слова одно за другим и выполнить поиск в таблице базы данных, если слово уже существует в таблице, ничего не делать, если слова нет в базе данных, выделить его, если оно есть. .

Я сделал эту формулу, но не могу понять, где проблема, так как она не работает идеально. 

Dim lenoftxt As Integer
Dim i As Integer
Dim str As String
Dim tillword As String

tillword = ""
str = ""
i = 1

If Not RichTextBox1.Text = "" Then
    lenoftxt = RichTextBox1.Text.Length
    '   MsgBox(lenoftxt)

    For i = 1 To lenoftxt
        str = Mid(RichTextBox1.Text, i, 1)
        ' MsgBox(str)

        tillword = tillword & str

        If str = " " Then
            i = i + 1
            tillword = Mid(tillword, 1, tillword.Length - 1)
            '  MsgBox(tillword)

            romantranssql = "Select word from approved where word='" & tillword & "'"
            MsgBox(romantranssql)

            pth = My.Application.Info.DirectoryPath
            romantransconn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0; Data Source=" & pth & "\database.mdb; User Id=admin; Password=;"
            romantransda = New OleDbDataAdapter(romantranssql, romantransconn)
            romantransds = New DataSet
            romantransda.Fill(romantransds, "DisplayCenterData")
            romantransdt = romantransds.Tables("DisplayCenterData")
            romantranscmb = New OleDbCommandBuilder(romantransda)

            If Me.BindingContext(romantransdt).Count >= 1 Then
                MsgBox("record found - " & tillword)
                tillword = ""
            End If
            If Me.BindingContext(romantransdt).Count <= 0 Then
                RichTextBox1.Select(i, tillword.Length)
                RichTextBox1.SelectionColor = System.Drawing.Color.Red
                tillword = ""
            End If
        End If
    Next
End If

Метод, который я использую, - это добавление символов один за другим в строку tillword, и если пробел найден, я считаю слово завершенным и ищу его в таблице базы данных. Если найдено, я ничего не делаю, и если не найдено в базе данных, я выделяю его.

1 Ответ

0 голосов
/ 07 ноября 2018

я получил решение с милостью Божьей из моего php-программирования, вот так и работает нормально 

 Dim lenoftxt As Integer
    Dim i As Integer
    Dim str As String
    Dim tillword As String



    tillword = ""
    str = ""

    i = 1

    If Not RichTextBox1.Text = "" Then
        lenoftxt = RichTextBox1.Text.Length
        '   MsgBox(lenoftxt)

        For i = 1 To lenoftxt
            str = Mid(RichTextBox1.Text, i, 1)

            ' MsgBox(str)

            If str = "ا" Or str = "ب" Or str = "ٻ" Or str = "ڀ" Or str = "ت" Or str = "ٿ" Or str = "ٽ" Or str = "ٺ" Or str = "ث" Or str = "پ" Or str = "ج" Or str = "ڄ" Or str = "ڃ" Or str = "چ" Or str = "ڇ" Or str = "ح" Or str = "خ" Or str = "د" Or str = "ڏ" Or str = "ڌ" Or str = "ڊ" Or str = "ڍ" Or str = "ذ" Or str = "ر" Or str = "ڙ" Or str = "ز" Or str = "س" Or str = "ش" Or str = "ص" Or str = "ض" Or str = "ط" Or str = "ظ" Or str = "ع" Or str = "غ" Or str = "ف" Or str = "ڦ" Or str = "ق" Or str = "ڪ" Or str = "ک" Or str = "گ" Or str = "ڳ" Or str = "ڱ" Or str = "ل" Or str = "م" Or str = "ن" Or str = "ڻ" Or str = "و" Or str = "ه" Or str = "ھ" Or str = "ي" Or str = "ئ" Or str = "آ" Or str = "۾" Or str = "۽" Or str = "ِ" Or str = "َ" Or str = "ُ" Or str = "ى" Then



                tillword = tillword & str

            Else



                romantranssql = "Select word from approved where word='" & tillword & "'"

                MsgBox(romantranssql)



                pth = My.Application.Info.DirectoryPath
                romantransconn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0; Data Source=" & pth & "\database.mdb; User Id=admin; Password=;"
                romantransda = New OleDbDataAdapter(romantranssql, romantransconn)
                romantransds = New DataSet
                romantransda.Fill(romantransds, "DisplayCenterData")
                romantransdt = romantransds.Tables("DisplayCenterData")
                romantranscmb = New OleDbCommandBuilder(romantransda)



                If Me.BindingContext(romantransdt).Count >= 1 Then


                    MsgBox("record found - " & tillword)
                    tillword = ""

                End If
                If Me.BindingContext(romantransdt).Count <= 0 Then
                    Dim a As Integer
                    a = tillword.Length + 1


                    RichTextBox1.Select(i - a, tillword.Length)
                    ' MsgBox(RichTextBox1.SelectedText & " selected text, not found and red")
                    RichTextBox1.SelectionColor = System.Drawing.Color.Red
                    MsgBox(RichTextBox1.SelectedText & "-" & i - a & "-" & tillword.Length)



                    ListBox1.Items.Add(tillword)

                    txtnormalword.Text = tillword

                    '    Button5_Click_1(sender, New System.EventArgs())



                    tillword = ""






                End If



            End If
        Next
    End If


    '   tillword = ""

поместите английский алфавит на ваш случай вместо арабского алфавита синдхи как пара 

                If str = "ا" Or str = "ب" Or str = "ٻ" Or str = "ڀ" Or str = "ت" Or str = "ٿ" Or str = "ٽ" Or str = "ٺ" Or str = "ث" Or str = "پ" Or str = "ج" Or str = "ڄ" Or str = "ڃ" Or str = "چ" Or str = "ڇ" Or str = "ح" Or str = "خ" Or str = "د" Or str = "ڏ" Or str = "ڌ" Or str = "ڊ" Or str = "ڍ" Or str = "ذ" Or str = "ر" Or str = "ڙ" Or str = "ز" Or str = "س" Or str = "ش" Or str = "ص" Or str = "ض" Or str = "ط" Or str = "ظ" Or str = "ع" Or str = "غ" Or str = "ف" Or str = "ڦ" Or str = "ق" Or str = "ڪ" Or str = "ک" Or str = "گ" Or str = "ڳ" Or str = "ڱ" Or str = "ل" Or str = "م" Or str = "ن" Or str = "ڻ" Or str = "و" Or str = "ه" Or str = "ھ" Or str = "ي" Or str = "ئ" Or str = "آ" Or str = "۾" Or str = "۽" Or str = "ِ" Or str = "َ" Or str = "ُ" Or str = "ى" Then
...