[VB] Spaties/letters filteren

[Kaastosti]

Over het filteren van spaties of specifieke letters bestaan een aantal topics, die ik doorgelezen heb. Helaas wordt me daar nog niet alles helemaal duidelijk. Ik heb, met behulp van die topics, de volgende code in elkaar geprutst:

Visual Basic:

Public Function checkPostcode(test As String, mandatory As Boolean)
    If (mandatory = False) Then
        checkPostcode = True
        Exit Function
    End If
    For i = 0 To Len(test)
        Select Case Mid(test, i, 1)
        Case " ": Next
        Case Else: a = Mid(test, i, 1)
    Next
    MsgBox a
End Function

Wat de functie moet doen, is controleren of de ingevoerde string een correcte postcode is. Niet of deze overeenkomt met de opgegeven plaats, maar simpelweg of deze bestaat uit 4 cijfers en 2 letters. Daartoe wil ik eerst alle spaties er uit krijgen.

Als totale VB6 newbie moet ik zeggen dat ik 't best een lastig taaltje vindt in vergelijking tot java/c++. Ik zie wat er fout is, weet waarom, maar de oplossing hiervoor ontgaat me.

Case " ": Next werkt natuurlijk niet, aangezien die Next op geen enkele For slaat. Wat ik wil doen met deze functie is de string doorlopen en ieder karakter, indien dit geen spatie is, in een nieuwe string zetten. Wat moet ik dan bij die case van spatie neerzetten?

[gorgi_19]

Visual Basic:

Dim code as string = "test test"
code = Replace(code," ","")
If Not Len(code) = 6 Then
    ' ongeldig postcode
End if
For I = 0 to 3
    If Not IsNumeric(Mid(code , i, 1) Then
        ' ongeldig postcode
    End if
Next
'etc.

[ Voor 89% gewijzigd door gorgi_19 op 19-12-2003 12:19 ]

[Kaastosti]

Dus ik zit weer eens veel te moeilijk te doen is de conclusie...

[gorgi_19]

Kaastosti schreef op 19 december 2003 @ 12:18:
Dus ik zit weer eens veel te moeilijk te doen is de conclusie...

Erhm.. Ja De laatste had ik geen zin meer om te doen. Eenvoudige methode: maak van de letters een UCase en controleer of deze in een bepaalde ASCII-reeks ligt.

[ Voor 29% gewijzigd door gorgi_19 op 19-12-2003 12:20 ]

[Kaastosti]

Dan blijft er voor mij tenminste nog wat over om te puzzelen Bedankt voor de hulp! Misschien nog 1 vraagje... ik wil dat de functie een boolean returned (of de postcode ok is of niet). Return true oid werkt in ieder geval niet. Moet ik zelf een waarde aan de functie toekennen en 'm daarna afsluiten of iets in die richting?

[ Voor 59% gewijzigd door Kaastosti op 19-12-2003 12:28 ]

[gorgi_19]

Kaastosti schreef op 19 december 2003 @ 12:25:
Dan blijft er voor mij tenminste nog wat over om te puzzelen Bedankt voor de hulp! Misschien nog 1 vraagje... ik wil dat de functie een boolean returned (of de postcode ok is of niet). Return true oid werkt in ieder geval niet. Moet ik zelf een waarde aan de functie toekennen en 'm daarna afsluiten of iets in die richting?

Om eerlijk te zijn heb ik nooit met VB6 gewerkt, dus ik zou er geen antwoord op kunnen geven.

Ik gok:

Visual Basic 6:

Dim code as string = "test test"
code = Replace(code," ","")
If Not Len(code) = 6 Then
        checkPostcode = False
        Exit Function
End if
For I = 0 to 3
    If Not IsNumeric(Mid(code , i, 1) Then
        checkPostcode = False
        Exit Function

    End if
Next
'etc.

[ Voor 4% gewijzigd door gorgi_19 op 19-12-2003 12:36 ]

[faabman]

/me is niet helemaal zeker of vb regexps ondersteund

het gebruik van een reguliere expressies kan ook een fraaie oplossing zijn...

[Kaastosti]

Heh voor iemand die nog nooit met VB6 heeft gewerkt doe je het toch heel aardig Ik ga eens wat dingen proberen dan maar. Nogmaals bedankt voor de suggesties beiden.

[gorgi_19]

FvKnijff schreef op 19 december 2003 @ 12:39:
/me is niet helemaal zeker of vb regexps ondersteund

het gebruik van een reguliere expressies kan ook een fraaie oplossing zijn...

Dat doen ze niet standaard... Tenzij je een componement van de Scripting engine importeert

[ Voor 11% gewijzigd door gorgi_19 op 19-12-2003 12:43 ]

[Denhomer]

code:

    Public Function checkCode(ByVal code As String) As Boolean
        checkCode = True
        Dim i
        code = Replace(code, " ", "")
        If Not Len(code) = 6 Then
            checkCode = False
            Exit Function
        End If
        For i = 1 To 4
            If Not IsNumeric(Mid(code, i, 1)) Then
                checkCode = False
                Exit Function
            End If
        Next
        ' nog een testje voor de letters
    End Function

let vooral op de as boolean achter de functiedeclaratie dat is het return type

[ Voor 22% gewijzigd door Denhomer op 19-12-2003 12:48 ]