Question

Vb 2010 如何读取空格分开的字符

比如说这个字符串：
eictnci naciy byts wodn offuz
首先这个字符串中读取用空格隔开的字符
如果字符中有i 或y 并且 没有 a或b 字符前面加一个Q
上面结果是这样子的 Qeictnci naciy byts Qwoyn offuz
代码怎么写？

Answer 1

'比如说这个字符串:eictnci naciy byts woyn offuz 首先这个字符串中读取用空格隔开的字符()如果字符中有i 或y 并且 没有 a或b 字符前面加一个Q上面结果是这样子的 Qeictnci naciy byts Qwoyn offuz代码怎么写？
Dim aa = "eictnci naciy byts woyn offuz".Split(" ").Select(Function(bb) IIf((bb.Contains("i") = True And bb.Contains("a") = False And bb.Contains("b") = False) Or (bb.Contains("y") = True And bb.Contains("a") = False And bb.Contains("b") = False), "Q" + bb, bb))
Console.WriteLine(String.Join(" ", aa))

追问

结果显示在textbox1

Answer 2

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "eictnci naciy byts woyn offuz"
        Dim sp() As String = str.Split(" ")
        Dim List As New List(Of String)
        For i = 0 To sp.Length - 1
            If sp(i) <> " " Then '这里判定空格
                List.Add(sp(i))
            End If
        Next
        For i = 0 To List.Count - 1
            If (List(i).IndexOf("i") <> -1 Or List(i).IndexOf("y") <> -1) And List(i).IndexOf("a") = -1 And List(i).IndexOf("b") = -1 Then
                List(i) = "Q" & List(i)
            End If
        Next
        List.CopyTo(sp)
        Dim str_return As String = Join(sp, " ")
        MsgBox(str_return)
    End Sub

Answer 3

分割字符串可以用split函数，判断有没有某个字符串可以用instr