43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
|
Public Class StringHelper
|
|||
|
|
|
|||
|
|
Private Sub New()
|
|||
|
|
Throw New InvalidOperationException("Cannot initialize static class.")
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Shared Function GetChar(charCode As Integer) As Char
|
|||
|
|
Return Char.ConvertFromUtf32(charCode)(0)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Shared ReadOnly Property Tab() As Char
|
|||
|
|
Get
|
|||
|
|
Return GetChar(9)
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public Shared ReadOnly Property LineFeed() As Char
|
|||
|
|
Get
|
|||
|
|
Return GetChar(10)
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public Shared ReadOnly Property CrLf() As String
|
|||
|
|
Get
|
|||
|
|
Return GetChar(13) + LineFeed
|
|||
|
|
End Get
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public Shared Function IsNumeric(obj As Object) As Boolean
|
|||
|
|
If TypeOf obj Is String Then
|
|||
|
|
Return IsNumeric(CStr(obj))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return Microsoft.VisualBasic.IsNumeric(obj)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Shared Function IsNumeric(str As String) As Boolean
|
|||
|
|
Dim discard As Decimal
|
|||
|
|
Return Decimal.TryParse(str, Globalization.NumberStyles.Float, Globalization.NumberFormatInfo.CurrentInfo, discard)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
End Class
|