|
'--分类名称替换
Public Function ReplaceClass(ByVal ClassName, ByVal ClassList)
If Len(ClassList) < 3 Then
ReplaceClass = Trim(ClassName)
Exit Function
End If
ClassName = Trim(ClassName)
If Len(ClassName) = 0 Then Exit Function
Dim i
Dim ArrayClassList
Dim ArrayClassName
On Error Resume Next
ArrayClassList = Split(ClassList, "$$$")
For i = 0 To UBound(ArrayClassList)
If Len(ArrayClassList(i)) > 2 Then
ArrayClassName = Split(ArrayClassList(i), "|")
ClassName = Replace(ClassName, ArrayClassName(0), ArrayClassName(1))
End If
Next
ReplaceClass = ClassName
End Function
'格式化文件大小KB
Public Function FormatSize(ByVal strFileSize)
On Error Resume Next
Dim valFileSize
strFileSize = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase(strFileSize), "Ｋ", "K"), "Ｂ", "B"), "Ｍ", "M"), "Ｇ", "G"), "Ｙ", "Y"), "Ｔ", "T"), "Ｅ", "E"), "Ｓ", "S")
valFileSize = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase(strFileSize), "BYTE", ""), "K", ""), "M", ""), "G", ""), "B", ""), "S", ""), " ", ""), "&NBSP;", ""), vbNewLine, ""), Chr(-24159), ""), Chr(9), ""), Chr(11), "")
If IsNumeric(valFileSize) Then
If InStr(strFileSize, "K") > 0 Then
valFileSize = valFileSize
ElseIf InStr(strFileSize, "M") > 0 Then
valFileSize = valFileSize * 1024
ElseIf InStr(strFileSize, "G") > 0 Then
valFileSize = valFileSize * 1024 * 1024
ElseIf InStr(strFileSize, "BYTE") > 0 Then
valFileSize = valFileSize \ 1024
Else
valFileSize = valFileSize
End If
Else
valFileSize = 0
End If
FormatSize = valFileSize
Exit Function
End Function
'--建立日期目录
Public Function BuildDatePath(ByVal DirForm)
On Error Resume Next
DirForm = CInt(DirForm)
Dim DatePath
Select Case DirForm
Case 1
DatePath = Year(Now) & "-" & Month(Now)
BuildDatePath = DatePath & "/"
Case 2
DatePath = Year(Now) & "_" & Month(Now)
BuildDatePath = DatePath & "/"
Case 3
DatePath = Year(Now) & Month(Now)
BuildDatePath = DatePath & "/"
Case 4
DatePath = Year(Now)
BuildDatePath = DatePath & "/"
Case 5
DatePath = Year(Now) & "/" & Month(Now)
BuildDatePath = DatePath & "/"
Case 6
DatePath = Year(Now) & "/" & Month(Now) & "/" & Day(Now)
BuildDatePath = DatePath & "/"
Case 7
DatePath = Year(Now) & Month(Now) & Day(Now)
BuildDatePath = DatePath & "/"
Case Else
BuildDatePath = vbNullString
End Select
End Function
'================================================
'函数名：GetRndFileName
'作 用：取随机文件名
'参 数：sExt ----原字符串
'返回值：获取后的文件名
'================================================
Public Function GetRndFileName(ByVal sExt)
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
GetRndFileName = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & sRnd & "." & sExt
End Function
'=================================================
'函数名：GetFileExtName
'作 用：获取文件扩展名
'=================================================
Public Function GetFileExtName(ByVal sName)
Dim FileName
FileName = Split(sName, ".")
GetFileExtName = FileName(UBound(FileName))
End Function
'================================================
'函数名：GetRndHits
'作 用：取随机点击数
'================================================
Public Function GetRndHits()
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
GetRndHits = sRnd
End Function
Public Function CheckPath(ByVal sPath)
'-- 修正文件路径
sPath = Trim(sPath)
If Right(sPath, 1) <> "\" And sPath <> "" Then
sPath = sPath & "\"
End If
CheckPath = sPath
End Function
共7页: 上一页 [1] [2] [3] [4] [5] 6 [7] 下一页
| |
