string bepalen

[sjaakholland]

Wie kan me helpen?

ik zou willen bepalen dat bij de ingevulde string maar een spatie mag voorkomen.
Bijv: DHS 12345678
Dus tussen de drie letters en cijfers mag maar een spatie voorkomen.
Er mag dus maar een spatie voorkomen niet meer en niet minder.
onderstaand is het gebruikte script.

Sub test()
Dim Input1 As String
Input1 = InputBox("Type Serialnumber :", "InputBox Serialnumber", "")
Input1 = UCase(Input1)

 

[evertVB]

Dit zou moeten werken:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Input1 As String
        Input1 = InputBox("Type Serialnumber :", "InputBox Serialnumber", "")
        Input1 = UCase(Input1)

        While Not Valid_SerialNumber(Input1)
            Input1 = InputBox("Wrong Serialnumber - again please :", "InputBox Serialnumber", "")
            Input1 = UCase(Input1)
        End While
    End Sub

    Private Function Valid_SerialNumber(ByVal Input As String) As Boolean
        Valid_SerialNumber = False

        If Len(Input) > 0 And InStr(Input, "  ") = 0 Then
            Valid_SerialNumber = True
        End If
    End Function

De functie Valid_SerialNumber zou je kunnen uitbreiden met andere criteria.