none
怎么将一个字符串中的三个单词拆分后分配给3个不同的变量 RRS feed

  • 问题

  • 如是 ,我想把 "dkjfkd 12321 jfkdf" 三个单词分别分配给变量 a,b,c, 下面的语句怎么拆不了噢
    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim a As String = "dkjfkd 12321 jfkdf"
            Dim temp As String
            Dim one As String
            Dim two As String
            Dim three As String
            Dim j As Integer
            Dim o As Integer
    
            j = 1
    
            For i = 0 To a.Length - 1
    
                If a.Chars(i) <> " " Then
                    temp = temp.Insert(i, a.Chars(i))
                ElseIf a.Chars(i) = " " Then
                    i += 1
                    j += 1
    
                End If
    
    
                Select Case o
                    Case 1
                        one = temp.ToString
                    Case 2
                        two = temp.ToString
                    Case 3
                        three = temp.ToString
                End Select
    
            Next
        End Sub
    End Class
    2009年8月9日 6:50

答案

全部回复

  • 你好请使用Dim temps as String()=a.Split(New [Char]() {" "}))
    one=temps(1)
    two=temps(2)
    three=temps(3)


    Wenn ich dich hab’,gibt es nichts, was unerträglich ist.坚持不懈!http://hi.baidu.com/1987raymond
    2009年8月9日 7:03
    版主
  • 直接用split分数组就可以了啊哪里要这么麻烦哦? 代码如下

    楼上的不对
     
    Dim a As String = "dkjfkd 12321 jfkdf"
    Dim temp() As String = a.Split(a," ")
    Dim one As String
    Dim two As String
    Dim three As String
    
    one = temp(0)
    two = temp(1)
    three = temp(2)

     


    I am Rayman Zhai
    2009年8月11日 2:14
  • 你好,谢谢你的提醒 不过你的Dim temp() As String = a.Split(a," ")
    这里也是有问题的

    不过VB.Net中的数组确实和Vb不一样 索引也是从0开始的了 这点 我没注意到
    Wenn ich dich hab’,gibt es nichts, was unerträglich ist.坚持不懈!http://hi.baidu.com/1987raymond
    2009年8月11日 2:26
    版主