MarcRB Active Member Licensed User Longtime User Apr 5, 2024 #1 Hello, Is there a quick way to mix the Select Case statement with string.Contains()? For example: I will have a select case , but the values at each case will be parts of the original value. It can be at all positions in the string. Serialnumber with a A in it do sub A Serialnumber with a B in it do Sub B Sure I can do this by multiple If strSerial.Contains("A") Then ..... End If but I think it can be done smarter. Code: Select Case txtSerialNumber.text Case.Contains("7362") SetMark("Samsung") Case.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select 'this is not working as you can expect Best Regards Last edited: Apr 5, 2024
Hello, Is there a quick way to mix the Select Case statement with string.Contains()? For example: I will have a select case , but the values at each case will be parts of the original value. It can be at all positions in the string. Serialnumber with a A in it do sub A Serialnumber with a B in it do Sub B Sure I can do this by multiple If strSerial.Contains("A") Then ..... End If but I think it can be done smarter. Code: Select Case txtSerialNumber.text Case.Contains("7362") SetMark("Samsung") Case.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select 'this is not working as you can expect Best Regards
Solution aeric Apr 5, 2024 You need to use Select True. B4X: Dim SerialNumber As String = txtSerialNumber.Text Select True Case SerialNumber.Contains("7362") SetMark("Samsung") Case SerialNumber.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select
You need to use Select True. B4X: Dim SerialNumber As String = txtSerialNumber.Text Select True Case SerialNumber.Contains("7362") SetMark("Samsung") Case SerialNumber.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select
aeric Expert Licensed User Longtime User Apr 5, 2024 #2 You need to use Select True. B4X: Dim SerialNumber As String = txtSerialNumber.Text Select True Case SerialNumber.Contains("7362") SetMark("Samsung") Case SerialNumber.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select Upvote 0 Solution
You need to use Select True. B4X: Dim SerialNumber As String = txtSerialNumber.Text Select True Case SerialNumber.Contains("7362") SetMark("Samsung") Case SerialNumber.Contains("AT2") SetMark("Pioneer") Case Else SetMark("Unknown") End Select
MarcRB Active Member Licensed User Longtime User Apr 5, 2024 #3 Thank you, Select True. you just have to know. Upvote 0