🚀 go-pugleaf

"Vincent (test usenet)" wrote:

> Zoals in de commentaren staat, doet het ding wel wat het moet doen,
> behalve dan dat er opp het einde van kl_uri een hele hoop spaties staan,
> en die zou ik er op de een of andere manier moeten uitkrijgen.

Zoals reeds gezegd gebeurt dit met LTrim, LTrim of Trim.

In aanvulling hierop, en voor wie hier behoefte mocht aan hebben, post
ik een aantal functies die ook de linkse (leading) en/of de rechtse
(trailing) tabs er uit halen, en ook een functie om een zero-ended
Pascal of C string naar VB om te zetten. Dit laatste is vooral handig
bij het lezen van strings uit INI (profile) files.

Public Function LTrimTabSpaces(S As String) As String
  Dim I As Long, L As Long, C As String
  L = Len(S)
  If L > 0 Then
    For I = 1 To L
      C = Mid(S, I, 1)
      If (C <> " ") And (C <> Chr(9)) Then
        LTrimTabSpaces = Right(S, L - I + 1)
        Exit Function
      End If
    Next I
  End If
  LTrimTabSpaces = ""
End Function

Public Function RTrimTabSpaces(S As String) As String
  Dim I As Long, L As Long, C As String
  L = Len(S)
  If L > 0 Then
    For I = L To 1 Step -1
      C = Mid(S, I, 1)
      If (C <> " ") And (C <> Chr(9)) Then
        RTrimTabSpaces = Left(S, I)
        Exit Function
      End If
    Next I
  End If
  RTrimTabSpaces = ""
End Function

Public Function TrimTabSpaces(S As String) As String
  TrimTabSpaces = RTrimTabSpaces(LTrimTabSpaces(S))
End Function

Function VBString(S As String) As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Input:   a zero-ended Pascal or C-type profile string.
' Outpout: a VB string.
'
  Dim I As Integer, Sn As String
  I = InStr(1, S, Chr$(0))
  If I > 0 Then Sn = Left$(S, I - 1) Else Sn = S
  VBString = TrimTabSpaces(Sn)
End Function

--------------------

Met vriendelijke groeten,
Hugo Maes