VB asp.net字符串操作

Question

更新我完成

Answer 1

時，將發佈新的代碼如果您檢查，如果SP有兩個元素或沒有做

If sp.Length = 2 Then 
... 
End If 

和If塊內，你可以做

Dim track1 as String = sp(0) 
Dim track2 as String = sp(1) 

Answer 2

C＃更符合我的喜好，但這是一個粗略的方法，將拆分您的字符串，測試正確數量的元素，然後創建數據庫連接（假定SQL Server BU任何ole db應該工作）並調用你的存儲過程。

Public Sub ProcessSwipe(ByVal value As String) 
    Dim splitValues() As String 
    Dim separator As Char = ";" 
    Dim connectionString As String = String.Empty 
    Dim storedProcName As String = String.Empty 

    ' Edit these to sane values 
    connectionString = "Provider=SQLOLEDB;BData Source=localhost;Initial Catalog=msdb;Integrated Security=SSPI;" 
    storedProcName = "dbo.SaveSwipe" 

    If String.IsNullOrEmpty(value) Then 
     MsgBox("No value provided from swipe") 
     Return 
    End If 

    Try 
     splitValues = value.Split(separator) 
     If splitValues.Length <> 2 Then 
      MsgBox(String.Format("Splitting of swipe data did not result in 2 values. Swiped value is {0}", value)) 
      Return 
     End If 

     ' At this point, we should have an array with 2 elements in it 
     ' Open a connection 
     Using connection As New OleDb.OleDbConnection(connectionString) 
      connection.Open() 

      Using Command As New OleDb.OleDbCommand 
       Command.CommandText = storedProcName 
       Command.CommandType = CommandType.StoredProcedure 
       Command.Connection = connection 

       ' Assumes your proc takes 2 parameters, named swipe1 and swipe2 
       ' Update to sane values 
       Command.Parameters.AddWithValue("@swipe1", splitValues(0)) 
       Command.Parameters.AddWithValue("@swipe2", splitValues(1)) 

       ' Make the actual call to your stored procedure 
       Command.ExecuteNonQuery() 
      End Using 
     End Using 

    Catch ex As Exception 
     MsgBox(String.Format("Attempt to split {0} failed. {1}", value, ex)) 
    End Try 
End Sub 

Sub Main() 
    Dim shorty As String 
    Dim works As String 
    Dim longun As String 
    Dim nuthin As String 

    shorty = "%128565?" 
    works = "%128565?;229584115?" 
    longun = "%128565?;229584115?%128565?;229584115?" 
    nuthin = Nothing 

    ProcessSwipe(shorty) 
    ProcessSwipe(works) 
    ProcessSwipe(longun) 
    ProcessSwipe(nuthin) 
End Sub