🚀 go-pugleaf

xiniks wrote:

> Als je met gegevens uit standaard VB tekstvensters wilt rekenen
> moet het gegevens met een punt zijn en niet met een komma.

In principe moeten je 'localisatie' instellingen dit oplossen maar daar
zitten naar mijn ervaring ettelijke bugs in (Val), tenminste in Visual
Basic. Daarom heb ik zelf teneinde raad de functie maar herschreven. Wat
we zelf doen, doen we beter, nietwaar? ;-). (Public Function
TextToSingle)
Tevens diezelfde functie voor Integers (Public Function TextToInteger).
En de TrimTabSpaces die ik al vroeger eens gepost heb.
Veel plezier ermee en geen auteursrechten er op. Gratis code en vrije
liefde voor iedereen ;-).

mvg, Hugo Maes

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

Public Function TextToSingle(T As String, S As Single) As Boolean
' Return True = bad number.
  Dim Tx As String, MinusFlag As Boolean, DecPointFlag As Boolean
  Dim I As Integer, A As String, N As Integer, Sd As Single
'
  Tx = TrimTabSpaces(T)
  S = 0#
  Sd = 1#
  If Left(Tx, 1) = "-" Then
    Tx = Right(Tx, Len(Tx) - 1)
    MinusFlag = True
  Else
    If Left(Tx, 1) = "+" Then Tx = Right(Tx, Len(Tx) - 1)
    MinusFlag = False
  End If
  DecPointFlag = False
  If Len(Tx) > 0 Then
    For I = 1 To Len(Tx)
      A = Mid(Tx, I, 1)
      Select Case A
        Case ".", ","
          If DecPointFlag Then GoTo BadNumber
          DecPointFlag = True
        Case "0" To "9"
          On Error GoTo BadNumber
          N = Asc(A) - Asc("0")
          If DecPointFlag Then
            Sd = Sd / 10#
            S = S + N * Sd
          Else
            S = S * 10# + N
          End If
        Case Else
BadNumber:
          TextToSingle = True
          Exit Function
      End Select
    Next I
  End If
  If MinusFlag Then S = -S
  TextToSingle = False
End Function

Public Function TextToInteger(T As String, S As Integer) As Boolean
' Return True = bad number.
  Dim Tx As String, MinusFlag As Boolean
  Dim I As Integer, A As String, N As Integer
'
  Tx = TrimTabSpaces(T)
  S = 0
  If Left(Tx, 1) = "-" Then
    Tx = Right(Tx, Len(Tx) - 1)
    MinusFlag = True
  Else
    If Left(Tx, 1) = "+" Then Tx = Right(Tx, Len(Tx) - 1)
    MinusFlag = False
  End If
  If Len(Tx) > 0 Then
    For I = 1 To Len(Tx)
      A = Mid(Tx, I, 1)
      Select Case A
        Case "0" To "9"
          On Error GoTo BadNumber
          N = Asc(A) - Asc("0")
          S = S * 10 + N
        Case Else
BadNumber:
          TextToInteger = True
          Exit Function
      End Select
    Next I
  End If
  If MinusFlag Then S = -S
  TextToInteger = False
End Function

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