Klinkers verwijderen uit een string

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
vb6
dag.
Zoals in de titel aangegeven:
hoe klinkers verwijderen uit een bepaald string of zin?

bv
text1.text"huis" ---- > hs
bv
text1.text="ik ga naar huis" -------> k g nr hs

dank u
 
Laatst bewerkt:
Ik kon, Edmoor, spijtig genoeg, de code van uw link niet vertalen naar vb6.

Maar intussen heb ik een ander manier gevonden, om de klinkers te verwijderen,die ook werkt:

Code:
Dim i As Integer
Dim klinker As String
Dim string As String
Private Sub Command1_Click()
lblrisultaat.Caption = ""
string = txtstring.Text
For i = 1 To Len(string)
klinker = Mid(string, i, 1)
Select Case UCase$(klinker)
Case "B", "C", "D", "F", "G", "H", "N", "L", "M", "N", "P", "Q", "R", "S", "T", "U", "V", "Z"
lblrisultaat.Caption = lblrisultaat.Caption + klinker
End Select
Next i
End Sub

Zoals gezegd deze code werkt, maar ik heb wel gemerkt dat dubbel en zelfs meer gelijke medeklinkers worden weergegeven.
Is een manier om de dubbel of meer gelijke letters enkel een keer te laten zien? Hoe mijn code aanpassen?
In elk geval dank u.
 
Laatst bewerkt:
M.a.w., je wilt alleen de unieke medeklinkers uit een string hebben?
 
Probeer dit eens, ik kan het zo niet testen:
Code:
Dim i As Integer
Dim klinker As String
Dim str As String

Private Sub Command1_Click()
    lblrisultaat.Caption = ""
    str = txtstring.Text
    For i = 1 To Len(str)
        klinker = Mid(str, i, 1)
        Select Case UCase(klinker)
            Case "B", "C", "D", "F", "G", "H", "N", "L", "M", "N", "P", "Q", "R", "S", "T", "U", "V", "Z"
                If InStr(1, klinker, lblrisultaat.Caption) = 0 Then
                    lblrisultaat.Caption = lblrisultaat.Caption & klinker
                End If
        End Select
    Next i
End Sub

Tips:
Gebruik geen gereserveerde woorden als naam van een variabele.
Dat heb je gedaan met Dim String As String.

Gebruik inspringpunten op de juiste posities.
Dat verhoogt de leesbaarheid.

$-tekens achter een string variabele zijn niet meer nodig.
Gebruik Dim buiten de Subs alleen als je de waarden van die variabelen in meerdere Subs nodig hebt.
Gebruik geen + om strings aan elkaar te plaken maar het &-teken.

Heb je de X met opzet weg gelaten?
 
Laatst bewerkt:
Werkt perfect, edmoor.
Nogmaals bedankt.
ps. ja de x e ook nog een paar letters. Het was om te testen.
zal straks toevoegen.
 
Laatst bewerkt:
Denk er wel aan dat je op die manier alles behalve de opgegeven letters uit de string verwijderd, dus ook cijfers en leestekens.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan