我試圖在 2 個字串之間構建一個組合演算法，不幸的是它有一些錯誤。
Dim strWordsA() As String = TextBox1.Text.Split(",")
Dim strWordsB() As String = TextBox2.Text.Split(",")
Dim str As String = TextBox1.Text
Dim arr As String() = TextBox1.Text.Split(","c)
For i As Integer = 0 To TextBox1.Text.Split(",").Length - 1
Dim index As Integer = str.IndexOf(strWordsA(i))
TextBox1.Text = str.Insert(index 2, "," & strWordsB(i))
str = TextBox1.Text
Next
所以如果我們有Textbox1.Text=1,2,3,4,5,6,7,8,9和Textbox2.Text=a,b,c,f,d,b,i,h,等等......我需要在第三個文本框中顯示它
Textbox3.Text = 1,a,2,b,3,c,4,f and so on
那么我應該組合這兩個字串嗎？
索引中的第一個元素顯示不正確，否則它似乎作業正常。
uj5u.com熱心網友回復：
嘗試這個：
Private Function MergeStrings(s1 As String, s2 As String) As String
Dim strWordsA() As String = s1.Split(","c)
Dim strWordsB() As String = s2.Split(","c)
Dim i As Integer = 0
Dim OutputString As String = String.Empty
While i < strWordsA.Length OrElse i < strWordsB.Length
If i < strWordsA.Length Then OutputString &= "," & strWordsA(i)
If i < strWordsB.Length Then OutputString &= "," & strWordsB(i)
i = 1
End While
If Not OutputString = String.Empty Then Return OutputString.Substring(1)
Return OutputString
End Function
用法：
Dim s As String = MergeStrings("1,2,3,4,5,6,7,8,9", "a,b,c,f,d,b,i,h")
您需要添加自己的驗證以允許尾隨逗號或沒有逗號等，但它應該適用于不同長度的輸入字串
編輯：根據瑪麗的評論修改
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/361787.html
標籤：网络
上一篇：關聯/關聯兩個數字向上按鈕