Hoofdletters en afkortingen: broncode

• Om alles in hoofdletters te zetten:
  Function hoofdletters(tekst As String) As String
  hoofdletters = UCase(tekst)
  End Function
• Om alles in kleine letters te zetten:
  Function kleineletters(tekst As String) As String
  kleineletters = LCase(tekst)
  End Function
• Om de eerste letter van elk woord in hoofdletter te zetten, doorlopen we de string. De eerste letter en de eerste letter na elke spatie zetten we in hoofdletters:
  Function naspatie(tekst As String) As String
  Dim buffer As String
  Dim positie As Integer
  Dim letter As String * 1
  Dim vorigeletter As String
  For positie = 1 To Len(tekst)
  vorigeletter = letter
  letter = Mid(tekst, positie, 1)
  If positie = 1 Then
      buffer = UCase(letter)
  Else
      If vorigeletter = " " Then
          buffer = buffer & UCase(letter)
          Else
          buffer = buffer & letter
      End If
  End If
  Next positie
  naspatie = buffer
  End Function
• Visual Basic 6 heeft daar echter ook een ingebouwde functie voor, die dat veel eenvoudiger doet:
  Function naspatie2(tekst As String) As String
  naspatie2 = StrConv(tekst, 3)
  End Function
• Om alle spaties te verwijderen doorlopen we de string:
  Function zonderspaties(tekst As String) As String
  Dim buffer As String
  Dim positie As Integer
  Dim letter As String * 1
  For positie = 1 To Len(tekst)
      letter = Mid(tekst, positie, 1)
      If Not letter = " " Then buffer = buffer & letter
  Next positie
  zonderspaties = buffer
  End Function
• Om een afkorting te maken met de eerste letter van elk woord:
  Function afkorting(tekst As String)
  Dim buffer As String
  Dim positie As Integer
  Dim letter As String * 1
  Dim vorigeletter As String * 1
  buffer = Left(tekst, 1) '[In .NET doe je dit met Mid.]
  For positie = 1 To Len(tekst)
  vorigeletter = letter
  letter = Mid(tekst, positie, 1)
  If vorigeletter = " " Then buffer = buffer & letter
  Next positie
  afkorting = UCase(buffer)
  End Function
• En tenslotte willen we dat allemaal tonen op het formulier:
  Private Sub txtInvoer_Change()
  lblAfkorting.Caption = afkorting(txtInvoer.Text)
  lblHoofdletters.Caption = hoofdletters(txtInvoer.Text)
  lblKleineLetters.Caption = kleineletters(txtInvoer.Text)
  lblNaSpatie.Caption = naspatie(txtInvoer.Text)
  lblNaSpatie2.Caption = naspatie2(txtInvoer.Text)
  lblZonderspaties = zonderspaties(txtInvoer.Text)
  End Sub

[VB Web] - [hlrnet] - [copyright]