一些源程序 - 获得文件大小和字符串处理 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 一些源程序 - 获得文件大小和字符串处理

一些源程序 - 获得文件大小和字符串处理 时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0): Formats passed string based on length. Perfect for emails and text files.

---------------------------------------------------------------------------------------

<%

' Company: Sabra Inc

' Author: Dave Hoffenberg

' Date: 10/5/00

' Function: Formats passed string based on length.  Perfect for emails and text files.

' Freeware

Function Padding(Value, Length)

' If the length of the value is less than the variable 'length'

If Len(Value) < Length Then

　　charcount = Length - len(Value)

　　

　　for i = 1 to (charcount - 1)

　　

　　　　padding = padding & " "

　　

　　next

　　

　　mystring = Value & padding

' If the length of the value is greater than the variable 'length'　　　　

Elseif len(Value) > Length Then

　　mystring = Left(Value,Length)

　　

Else

　　set mystring = Value

　　　　

End If

　　Padding = mystring

End Function

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile(Server.MapPath("test.txt"), True)

　　

　　MyFile.WriteLine Padding("this is a test", 25) & "end of line."

　　

Set fso = Nothing

Set MyFile = Nothing　　

　　

response.write "done"

%>

Retrieves file size(K) of any file passed to it.

---------------------------------------------------------------------------

<%

' Company: Sabra Inc

' Author: Dave Hoffenberg

' Function: Retrieves file size(K) of any file name passed to it.

' Freeware

Function ShowFileSize(filespec)

    file = Server.MapPath(filespec)

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　If fso.FileExists(file) Then

　　    Set f = fso.GetFile(file)

　　　　intSizeB = f.Size

　　    intSizeK = Int((intSizeB/1024) + .5)

　　    If intSizeK = 0 Then intSizeK = 1

    　　ShowFileSize = intSizeK & "k"

　　Else

　　　　 ShowFileSize = "File Doesn't Exist"

　　End If　　

　　Set fso = Nothing

End Function

response.write ShowFileSize("test.txt")

%>

文章评论

查看所有0条评论>>