|
Option Explicit
Class cArr
Private tMin ''//最小值 thisMin
Private tMax ''//最大值
Private tStr ''//数组串
Private tSortStr''//排序串，当对同一数组串进行操作时避免多次排序操作
Private tLength ''//元素个数
Private Sub Class_Initialize
tMin =0
tMax =0
tStr ="0"
tLength =0
tSortStr=""
End Sub
''//获得最小值
Property Get cMin
If tMin=0 Then
Dim sStr
If tSortStr="" Then
sStr=Split(cSort,",")
Else
sStr=Split(tSortStr,",")
End If
tMin=sStr(0)
End If
cMin=tMin
End Property
''//获得最大值
Property Get cMax
If tMax=0 Then
Dim sStr
If tSortStr="" Then
sStr=Split(cSort,",")
Else
sStr=Split(tSortStr,",")
End If
tMax=sStr(Ubound(sStr))
End If
cMax=tMax
End Property
Property Get Length
If tStr="" Or tStr=0 Then
Length =0
Else
tLength =Ubound(Split(tStr,","))+1
Length =tLength
End If
End Property
''//将数组串赋给属性
Property Let srcStr(str)
If str="" Then
tStr="0"
Else
tStr=str
End If
End Property
''//排序，倒序
Public Function cSort
Dim Arr,i
Redim Arr(Ubound(Split(tStr,",")))
Dim tmp,j
For i=0 to Ubound(Arr)
Arr(i)=CDBL(Split(tStr,",")(i))
Next
For I= 0 to Ubound(Arr)
For j=i+1 to Ubound(Arr)
If Arr(i)<Arr(j) Then
tmp =Arr(i)
Arr(i) =Arr(j)
Arr(j) =tmp
End If
Next
Next
tSortStr=Join(Arr,",")
cSort=tSortStr
End Function
''//顺序
Public Function cSortAsc
Dim tmp,i,Arr
If tSortStr="" Then
tmp=cSort
Else
tmp=tSortStr
End If
Redim Arr(Ubound(Split(tmp,",")))
Arr=Split(tmp,",")
For i= Ubound(Arr) to 0 Step -1
cSortAsc=cSortAsc & Arr(i) & ","
Next
cSortAsc=Left(cSortAsc,Len(cSortAsc)-1)
End Function
''//在未尾加元素
Public Function AddItem(str)
If tStr="" OR tStr="0" Then
tStr=str
Else
tStr=tStr & "," & str
End If
tMin =0
tMax =0
tSortStr=""
tLength =tLength + 1
AddItem =tStr
End Function
''//前部加元素
Public Function AddItemBefore(str)
If tStr="" OR tStr="0" Then
tStr=str
Else
tStr=str & "," & tStr
End If
tMin =0
tMax =0
tSortStr=""
tLength =tLength + 1
AddItemBefore=tStr
End Function
''//移除元素
Public Function RemoveItem(str)
tStr =Replace("," & tStr & "," , "," & str & "," , ",")
tStr =Mid(tStr,2,Len(tStr)-2)
tMin =0
tMax =0
tSortStr=Replace("," & tSortStr & "," , "," & str & "," , ",")
tSortStr=Mid(tSortStr,2,Len(tSortStr)-2)
tLength =0
RemoveItem=tStr
End Function
''//在索引位置加元素
Public Function AddItemI(index,str)
If index>=Length Then
AddItem(str)
Exit Function
End If
If index<=0 Then
AddItemBefore(str)
Exit Function
End if
Dim Arr,i,tmps
Redim Arr(Ubound(Split(tStr,",")))
Arr=Split(tStr,",")
For i=0 to index-1
tmps=tmps & Arr(i) & ","
Next
tmps=tmps & str & ","
For i=index to Ubound(Arr)
tmps=tmps & Arr(i) & ","
Next
tmps =Left(tmps,Len(tmps)-1)
tStr =tmps
tSortStr=""
tLength =tLength+1
tMin =0
tMax =0
AddItemI=tStr
End Function
''//在索引位置移除元素
Public Function RemoveItemI(index)
If index>=Length Or index<=0 Then
Exit Function
End If
Dim Arr,i,tmps
Redim Arr(Ubound(Split(tStr,",")))
Arr=Split(tStr,",")
For i=0 to Ubound(Arr)
If i<>index Then tmps=tmps & Arr(i) & ","
Next
tmps=tmps & str & ","
tmps =Left(tmps,Len(tmps)-1)
tStr =tmps
tSortStr=""
tLength =0
tMin =0
tMax =0
RemoveItemI=tStr
End Function
End Class
（编辑：源码网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
