String 类型的值不能转换为 String 的一维数组

Question

这就是我声明代码的方式：

Dim startline As String
Dim curserline As String
Dim curserpos As Integer
Dim x As Integer
Dim back As Boolean = False
Dim word() As String
Dim word1() As String

Dim AutoComplete As New List(Of String)


"This is part of my code but am not going to share all of it. I assume your getting."

 word1 = sr.ReadLine.Split("|"c)

 word = word1

 AutoComplete.Add(word(0) & word(1))


"For starters, I am getting this error here:"

Value of type String cannot be converted into 1 dimensional array of String

"From here:"


 word = Mid(RichTextBox1.Text, curserpos + 1, RichTextBox1.SelectionStart - curserpos)


"And here:"


 If auto.StartsWith(word) = True And word <> "" And word <> " " Then


"From this code here:"



Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged



    Try

        ListView1.Visible = False
        ListView1.Items.Clear()



        startline = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart)
        curserline = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart)
        curserpos = RichTextBox1.SelectionStart



        While Mid(RichTextBox1.Text, curserpos, 1) <> vbTab And Mid(RichTextBox1.Text, curserpos, 1) <> " " And Mid(RichTextBox1.Text, curserpos, 1) <> "." And Mid(RichTextBox1.Text, curserpos, 1) <> "=" And Mid(RichTextBox1.Text, curserpos, 1) <> "(" And Mid(RichTextBox1.Text, curserpos, 1) <> ")" And Mid(RichTextBox1.Text, curserpos, 1) <> "," And Mid(RichTextBox1.Text, curserpos, 1) <> "&" And Mid(RichTextBox1.Text, curserpos, 1) <> "{" And Mid(RichTextBox1.Text, curserpos, 1) <> "}" And Mid(RichTextBox1.Text, curserpos, 1) <> """" And Mid(RichTextBox1.Text, curserpos, 1) <> "<" And Mid(RichTextBox1.Text, curserpos, 1) <> ">" And Mid(RichTextBox1.Text, curserpos, 1) <> "!" And curserline = startline



            curserpos -= 1
            curserline = RichTextBox1.GetLineFromCharIndex(curserpos)
        End While


        If curserline = startline Then
            word = Mid(RichTextBox1.Text, curserpos + 1, RichTextBox1.SelectionStart - curserpos)
        Else
            word = Mid(RichTextBox1.Text, curserpos + 2, RichTextBox1.SelectionStart - curserpos - 1)
        End If

请大家帮忙！这是一个 VB.NET 问题，我正在尝试构建自动完成功能。但是该主题中显示的错误正在使我的生活成为人间地狱。请帮助伙计们！

我刚刚添加的代码：

   For Each auto As String In AutoComplete

            If auto.StartsWith(word) = True And word <> "" And word <> " " Then

这里是sr。请部分：

    Try
        Dim output As String = "C:\Users\Acer\Documents\Visual Studio 2010\Projects\WindowsApplication3\WindowsApplication3\My Project\Grammarchecker1.txt"


        If File.Exists(output) Then
            Using sr As New StreamReader(output)
                While Not sr.EndOfStream
                    word1 = sr.ReadLine.Split("|"c)

                    word = word1

                    AutoComplete.Add(word(0).ToString & word(1).ToString)


                End While
            End Using
        End If

Answer 1

问题出在这一行：

word = Mid(RichTextBox1.Text, curserpos + 1, RichTextBox1.SelectionStart - curserpos)

您已经在这一行将word 声明为字符串的数组：

Dim word() As String '<-- the word() with the parens means it's an array of strings, not a single String.

Mid 函数返回一个单个字符串，而不是字符串数组。您应该将其分配给您声明为类型String 的另一个变量：

Dim singleWord As String = Mid(RichTextBox1.Text, curserpos + 1, RichTextBox1.SelectionStart - curserpos)

Answer 2

字符串列表是一个数组。我认为如果您要添加字符串列表，例如

  AutoComplete.Add(word(0).toString & word(1).toString )

然后您可以通过

解析您的数组

    Dim Starts_with As String = "0"
    For Each word In AutoComplete
        If word.StartsWith("D") Then
            Starts_with = word
        End If
    Next

Answer 3

您对变量的使用似乎过于节俭。您无需尝试尽可能少地使用 - 这只会导致问题。

例如，您读取数据的代码可能更像

Dim inputFile As String = "C:\Users\Acer\Documents\Visual Studio 2010\Projects\WindowsApplication3\WindowsApplication3\My Project\Grammarchecker1.txt"

If File.Exists(inputFile) Then
    Using sr As New StreamReader(inputFile)
        While Not sr.EndOfStream
            Dim wordParts = sr.ReadLine.Split("|"c)
            If wordParts.Count >= 2 Then
                AutoComplete.Add(wordParts(0) & wordParts(1))
            End If
        End While
    End Using
Else
    Throw New FileNotFoundException(String.Format("Input file {0} not found.", inputFile))
End If

请注意我如何将输入文件命名为inputFile 而不是output，并将单词的部分命名为wordParts。处理不再使用的变量将由您处理，如果这是您所关心的。另外，我检查以确保至少有两个由“|”分隔的条目否则wordParts(1) 将不存在，因此会引发异常。

如果文件不存在也可能无关紧要，在这种情况下删除Throw New FileNotFoundException(String.Format("Input file {0} not found.", inputFile)) 行。