Protected
Function
GetEncodingStringLength(
ByVal
encodeObject
As
Object
,
ByVal
length
As
String
)
As
String
Dim encodingData() As Byte
Dim stringValue As String '
If length.Equals( String .Empty) Then
Return encodeObject
End If
stringValue = encodeObject
encodingData = System.Text.Encoding.Default.GetBytes(stringValue)
If length < encodingData.Length Then
Return System.Text.Encoding.Default.GetString(encodingData, 0 , length)
Else
Return encodeObject
End If
End Function
Dim encodingData() As Byte
Dim stringValue As String '
If length.Equals( String .Empty) Then
Return encodeObject
End If
stringValue = encodeObject
encodingData = System.Text.Encoding.Default.GetBytes(stringValue)
If length < encodingData.Length Then
Return System.Text.Encoding.Default.GetString(encodingData, 0 , length)
Else
Return encodeObject
End If
End Function