by Mathias Weichert (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 6th January 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
- Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integer Value
Public Function sys_IsNumChar(value As String) As Boolean
Dim x As Double
If IsNull(value) Then Exit Function 'Parameter ungültig
Select Case value
Case "0" To "9"
sys_IsNumChar = True
Case Else
sys_IsNumChar = False
End Select
End Function
' Wandelt alle numerichen Werte des Strings in einen Intergerwert um
Public Function sys_StrToInt(Str As String) As Integer
Dim i As Integer
Dim x As String
Dim NewStr As String
'Init
NewStr = ""
If IsNull(Str) Then ' String enthält keine Werte
sys_StrToInt = 0
Exit Function
End If
For i = 1 To Len(Str)
x = Mid(Str, i, 1): If sys_IsNumChar(x) Then NewStr = NewStr + x
Next i
x = Val(NewStr)
sys_StrToInt = CInt(x)
End Function
No comments have been posted about - Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integ. Why not be the first to post a comment about - Wandelt eine beliebige Zeichenkette in einen Integer-Wert um - Changes an any String into a Integ.