Allereerst bedankt dat je een kijkje nam in dit topic!
Maar nu, ik zit met het probleem dat ik mijn klinkers niet uit
mijn "StrWoord" kan laten wegvallen door middel van een functie.
ik heb al rondgesnuffeld op het forum en vond dit:
dit werkte, maar ik wou het wat aanpassen zodat het mooier oogste..
jammer genoeg werkte het toen niet meer bij mij.
wat ik heb is dit
wie kan er me helpen? wat doe ik fout?
Alvast bedankt,
Anthony!
laat maar,
en nu werkt het 
Maar nu, ik zit met het probleem dat ik mijn klinkers niet uit
mijn "StrWoord" kan laten wegvallen door middel van een functie.
ik heb al rondgesnuffeld op het forum en vond dit:
Code:
Deze functie haalt alle klinkers uit een string:
Function VerwijderKlinkers(Zin As String) As String
For Each letter As Char In Zin
Select Case UCase(letter)
Case "A", "E", "I", "U", "O", "Y"
Zin = Zin.Replace(letter, "")
End Select
Next
Return Zin
End Functiondit werkte, maar ik wou het wat aanpassen zodat het mooier oogste..
jammer genoeg werkte het toen niet meer bij mij.
wat ik heb is dit
Code:
Public Class Form1
Function VerwijderKlinkers(ByVal strWoord As String) As String
For Each Letter As Char In strWoord
Select Case UCase(strWoord)
Case "A", "E", "I", "U", "O", "Y"
strWoord = strWoord.Replace(Letter, " ")
End Select
Next
lblResultaat.Text = strWoord
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strWoord As String
strWoord = txtWoord.Text
VerwijderKlinkers(strWoord)
End Sub
End ClassAlvast bedankt,
Anthony!
laat maar,
Code:
Public Class Form1
Function VerwijderKlinkers(ByVal strWoord As String) As String
For Each letter As Char In strWoord
Select Case UCase(letter)
Case "A", "E", "I", "U", "O", "Y"
strWoord = strWoord.Replace(letter, "")
End Select
Next
lblResultaat.Text = strWoord
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strWoord As String
strWoord = txtWoord.Text
VerwijderKlinkers(strWoord)
End Sub
End Class
Laatst bewerkt:
