<%
Class Stringoperations
''****************************************************************************
"' @ Feature Description: Swap string for char-type array
' @ parameter Description:-str [string]: string to convert
' @ return value:-[array] char array
''****************************************************************************
Public Function ToCharArray (ByVal str)
ReDim Chararray (Len (str))
For i = 1 to Len (str)
Chararray (i-1) = Mid (str,i,1)
Next
ToCharArray = Chararray
End Function
''****************************************************************************
' @ Function Description: Converts an array into a string
' @ parameter Description:-arr [Array]: data that needs to be converted
' @ return Value:-[string] string
''****************************************************************************
Public Function arraytostring (ByVal arr)
For i = 0 to UBound (arr)
Strobj = strobj & Arr (i)
Next
arraytostring = Strobj
End Function
''****************************************************************************
' @ Feature Description: Check source string str starts with chars
' @ parameter Description:-str [string]: source string
' @ parameter Description:-chars [string]: Character/string of comparison
' @ return value:-[bool]
''****************************************************************************
Public function StartsWith (ByVal str, chars)
If left (Str,len (chars)) = Chars Then
StartsWith = True
Else
StartsWith = False
End If
End Function
''****************************************************************************
' @ Feature Description: Check source string str to end with chars
' @ parameter Description:-str [string]: source string
' @ parameter Description:-chars [string]: Character/string of comparison
' @ return value:-[bool]
''****************************************************************************
Public Function EndsWith (ByVal str, chars)
If Right (Str,len (chars)) = Chars Then
EndsWith = True
Else
EndsWith = False
End If
End Function
''****************************************************************************
' @ Feature Description: Copy n string str
' @ parameter Description:-str [string]: source string
' @ parameter Description:-n [int]: number of copies
' @ return Value:-[string] copied string
''****************************************************************************
Public Function Clone (ByVal str, n)
For i = 1 to n
Value = value & str
Next
Clone = value
End Function
''****************************************************************************
' @ Feature Description: Delete source string The first n characters of str
' @ parameter Description:-str [string]: source string
' ' @ parameter description:-n [int]: number of characters deleted
"@ return Value:-[string] deleted string
''****************************************************************************
Public function TrimStart (ByVal str, n)
Value = Mid (str, n+1)
TrimStart = value
End Function
''****************************************************************************
' @ Feature Description: Delete source string Str's last n string
' @ parameter Description:-str [string]: source string
' ' @ parameter description:-n [int]: number of characters deleted
"@ return Value:-[string] deleted string
''****************************************************************************
Public function trimend (ByVal str, n)
Value = Left (str, Len (str)-N)
TrimEnd = value
End Function
''****************************************************************************
' @ Feature Description: Check character character is an English character A-Z or a-Z
' @ parameter Description:-character [char]: Character checked
' @ return value:-[bool] If it is an English character, returns true, False instead
''****************************************************************************
Public Function isalphabetic (byVal character)
Asciivalue = CInt (ASC (character))
if (<= asciivalue and Asciivalue <=) or (<= Asciivalue and Asciivalue <=) 122
Isalphabetic = True
Else
Isalphabetic = False
End If
End Function
''****************************************************************************
' @ Feature Description: Case conversion of STR string
' @ parameter Description:-str [string]: source string
' @ return Value:-[string] converted String
''****************************************************************************
Public function swapcase (str)
For i = 1 to Len (str)
Current = Mid (str, I, 1)
If Isalphabetic (current) Then
High = ASC (UCase)
Low = ASC (LCase (current))
sum = high + low
return = return & Chr (SUM-ASC)
Else
return = return & current
End If
Next
Swapcase = return
End Function
''****************************************************************************
' @ Feature Description: Converts the first letter of each word in the source string str to uppercase
' @ parameter Description:-str [string]: source string
' @ return Value:-[string] converted String
''****************************************************************************
Public function capitalize (str)
Words = Split (str, "")
For i = 0 To UBound (words)
If not i = 0 Then
TMP = ""
End If
TMP = tmp & UCase (left (words (i), 1)) & Right (words (i), Len (words (i))-1)
Words (i) = tmp
Next
Capitalize = arraytostring (words)
End Function
''****************************************************************************
"" Filter to "'" after the source character str: ""
' @ parameter Description:-str [string]: source string
' @ return Value:-[string] converted String
''****************************************************************************
Public Function Checkstr (STR)
If Trim (str) = "" Or IsNull (str) Then
Checkstr= ""
Else
Checkstr=replace ((STR), "'" "," "")
End If
End Function
''****************************************************************************
' @ Feature Description: Filter the HTML code in str in the string
' @ parameter Description:-str [string]: source string
' @ return Value:-[string] converted String
''****************************************************************************
Public Function HtmlEncode (str)
If Trim (str) = "" Or IsNull (str) Then
Htmlencode= ""
Else
Str=replace (str, ">", ">")
Str=replace (str, "<", "<")
Str=replace (STR,CHR (32), "")
Str=replace (STR,CHR (9), "")
Str=replace (STR,CHR (34), "" ")
Str=replace (STR,CHR (39), "'")
Str=replace (STR,CHR (13), "")
Str=replace (STR,CHR) & Chr (a), "</p><p>"
Str=replace (STR,CHR), "<br>"
Htmlencode=str
End If
End Function
''****************************************************************************
' @ Feature Description: Calculates the length of the source string str (a Chinese character is 2 bytes long)
' @ parameter Description:-str [string]: source string
' @ return value:-[Int] The length of the source string
''****************************************************************************
Public Function StrLen (STR)
If Trim (str) = "" Or IsNull (str) Then
Strlen=0
Else
Dim p_len,x
P_len=0
Strlen=0
P_len=len (Trim (STR))
For X=1 to P_len
If ASC (Mid (str,x,1)) <0 Then
Strlen=int (StrLen) + 2
Else
Strlen=int (StrLen) + 1
End If
Next
End If
End Function
''****************************************************************************
' @ Feature Description: Intercept source string Str's front lennum characters (one Chinese character is 2 bytes long)
' @ parameter Description:-str [string]: source string
' ' @ parameter description:-lennum [int]: Length of interception
' @ return Value:-[string]: converted String
''****************************************************************************
Public Function cutstr (str,lennum)
Dim P_num
Dim i,x
If StrLen (Str) <=lennum Then
Cutstr=str
Else
P_num=0
X=0
Do, not p_num > LenNum-2
X=x+1
If ASC (Mid (str,x,1)) <0 Then
P_num=int (P_num) + 2
Else
P_num=int (p_num) + 1
End If
Cutstr=left (Trim (STR), X) & "..."
Loop
End If
End Function
End Class
%>
