java fso_FSO一些代码

最新推荐文章于 2021-03-19 05:04:09 发布
最新推荐文章于 2021-03-19 05:04:09 发布
阅读量92 收藏
点赞数
文章标签： java fso
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_35128544/article/details/114113100
版权

FSO一些代码

更新时间：2006年08月26日 00:00:00   作者：

使用FSO修改文件特定内容的函数

function FSOchange(filename,Target,String)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FiletempData = objCountFile.ReadAll

objCountFile.Close

FiletempData=Replace(FiletempData,Target,String)

Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)

objCountFile.Write FiletempData

objCountFile.Close

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

使用FSO读取文件内容的函数

function FSOFileRead(filename)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FSOFileRead = objCountFile.ReadAll

objCountFile.Close

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

使用FSO读取文件某一行的函数

function FSOlinedit(filename,lineNum)

if linenum 

dim fso,f,temparray,tempcnt

set fso = server.CreateObject("scripting.filesystemobject")

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

FSOlinedit = temparray(lineNum-1)

end if

end if

end function

使用FSO写文件某一行的函数

function FSOlinewrite(filename,lineNum,Linecontent)

if linenum 

dim fso,f,temparray,tempCnt

set fso = server.CreateObject("scripting.filesystemobject")

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

temparray(lineNum-1) = lineContent

end if

tempcnt = join(temparray,chr(13)&chr(10))

set f = fso.createtextfile(server.mappath(filename),true)

f.write tempcnt

end if

f.close

set f = nothing

end function

使用FSO添加文件新行的函数

function FSOappline(filename,Linecontent)

dim fso,f

set fso = server.CreateObject("scripting.filesystemobject")

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),8,1)

f.write chr(13)&chr(10)&Linecontent

f.close

set f = nothing

end function

读文件最后一行的函数

function FSOlastline(filename)

dim fso,f,temparray,tempcnt

set fso = server.CreateObject("scripting.filesystemobject")

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))

FSOlastline = temparray(ubound(temparray))

end if

end function

FSO替换指定文件的字符

程序代码：

'FSO替换指定文件的字符

Function FSOLineEdit(filename,Target,String)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FiletempData = objCountFile.ReadAll

objCountFile.Close

FiletempData = Replace(FiletempData,Target,String)

Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)

objCountFile.Write FiletempData

objCountFile.Close

Set objCountFile = Nothing

Set objFSO = Nothing

End Function

'Response.Write FSOLineEdit("test.txt","世界","明天是一个好天去")

删除文件

程序代码：

'删除文件

Function DelFile(Filename)

If Filename <> "" Then

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Filename) Then

FSO.DeleteFile Filename

End If

Set FSO = Nothing

End If

End Function

判断文件是否存在

程序代码：

'判断文件是否存在

Function ReportFileStatus(filespec)

Dim FSO,msg

Set FSO = CreateObject("Scripting.FileSystemObject")

If (FSO.FileExists(filespec)) Then

msg = filespec & " exists."

Else

msg = filespec & " doesn't exist."

End If

ReportFileStatus = msg

End Function

使用FSO修改文件特定内容的函数

程序代码：

'使用FSO修改文件特定内容的函数

Function FSOchange(filename,Target,String)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FiletempData = objCountFile.ReadAll

objCountFile.Close

FiletempData = Replace(FiletempData,Target,String)

Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)

objCountFile.Write FiletempData

objCountFile.Close

Set objCountFile = Nothing

Set objFSO = Nothing

End Function

使用FSO写文件某一行的函数

程序代码：

'使用FSO写文件某一行的函数

Function FSOlinewrite(filename,lineNum,Linecontent)

If linenum 

Dim FSO,f,temparray,tempCnt

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function

Set f = FSO.OpenTextFile(Server.MapPath(filename),1)

If Not f.AtEndofStream Then

tempcnt = f.ReadAll

f.Close

temparray = Split(tempcnt,Chr(13)&Chr(10))

If lineNum>UBound(temparray)+1 Then

Exit Function

Else

temparray(lineNum-1) = lineContent

End If

tempcnt = jo& #105;n(temparray,Chr(13)&Chr(10))

Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true)

f.Write tempcnt

End If

f.Close

Set f = Nothing

End Function

建立目录的程序，如果有多级目录，则一级一级的创建

程序代码：

'建立目录的程序，如果有多级目录，则一级一级的创建

Function CreateDIR(ByVal LocalPath)

On Error Resume Next

LocalPath = Replace(LocalPath,"\","/")

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

patharr = Split(LocalPath,"/")

path_level = UBound(patharr)

For i = 0 to path_level

If i=0 Then pathtmp=patharr(0) & "/" Else pathtmp = pathtmp & patharr(i) & "/"

cpath = Left(pathtmp,Len(pathtmp)-1)

If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath

Next

Set FileObject = Nothing

If Err.Number <> 0 Then

CreateDIR = False

Err.Clear

Else

CreateDIR = True

End If

End Function

下面列举一下这些不常用但是却非常酷的功能：

很少被了解的FSO功能

GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])

GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时

GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。

比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"

GetExtensionName Method 返回路径中最后部分的扩展名

(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt)

GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹

(比如：FSO.GetParentFolder ("c:docsmydocs") 将返回'docs')

Drives Property 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。

使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。

相关文章

1a1b05c64693fbf380aa1344a7812747.png

推荐的用Asp实现屏蔽IP地址访问的代码...2007-08-08

4f55910a645b073bc4fc65dc10dc14bd.png

用404来来解决页面路径的变换的方法2008-06-06

0ea3c7666119d5615e582f823fb3fad6.png

万能Asp防注入代码 拒绝攻击...2007-06-06

4f96a78db829b1556ff16de21e013c7a.png

本文将介绍ASP中DateAdd函数中日期相加或相减使用方法,需要了解的朋友可以参考下2012-12-12

8cc1031babc6aff2319f1c6af8544aa0.png

您还在为空间的FTP不稳定而烦恼吗?现在您只用上传您的RAR压缩包,即可!ASP在线解压/压缩工具只要几秒的时间,解决了网速慢,FTP丢失数据的一大难题2018-03-03

0c932a99bb7b6f23c937db507070cc7b.png

asp下实现UrlEncoding转换编码的代码...2007-09-09

cca732bf65a93ed2ec0ac80c638460fe.png

我用ASP写的m行n列的函数,动态输出创建TABLE行列...2007-02-02

2d9f31f2af7b675a3d153d2b7f1035a7.png

在服务器端asp程序可以接受html页面上的form传来的参数，那么它又如何实现IE地址参数判断呢？2008-12-12

b452cee8ec5cd9e58ab98eba17281e59.png

首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表的某方面信息。其中TABLE_NAME字段包含了对应表的名称2009-06-06

f4838ec7e2d4da28e0b57d4e852dadd4.png

系统分配随机密码...2006-10-10

最新评论

好奇宝宝打脸怪
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
【ASP】ASP初学者可方便查询相关的代码
weixin_30642305的博客
09-07 106
1.获得系统时间: <%=now()%>2.取得来访用的IP: 1<%=request.serverVariables("remote_host")%>3.获得系统,浏览器版本: 1<script>2window.document.write("版本："+navigator.appName+navigator.appVersion+"brow...
asp/js函数收藏/代码/JScript[40条]/JS宝典
doublewang的专栏
06-23 1136
*******************************************************************检测是否是手机浏览*******************************************************************if instr(request.ServerVariables("HTTP_USER_AGENT"),"M
22条ASP初学者常用的代码
weixin_34289454的博客
11-17 110
22条ASP初学者常用的代码1.获得系统时间:<%=now()%>2.取得来访用的IP:<%=request.serverVariables("remote_host")%>3.获得系统,浏览器版本:<script>window.document.write("版本："+navigator.appName+navigator.appVers...
2012.10.31发现的一款Excel病毒
weixin_30467087的博客
10-31 363
ThisWorkbook代码 Public WithEvents xx As Application Private Sub Workbook_open() Set xx = Application On Error Resume Next Application.DisplayAlerts = False Call do_what End Sub Private Sub xx...
matlab读取ini文件文本,VBA、VBS读写INI文件
weixin_39945531的博客
03-19 415
最近要编写个vbs小程序，但vbs程序的调试很麻烦，所以考虑用Excel的VBA调试，毕竟vbs和vba还是很相似的。一个要实现的功能就是从ini文件中读取信息，网上找到了一些很好的代码，这里收藏了！功能实现函数如下Private Declare Function GetPrivateProfileString Lib "kernel32"_Alias"GetPrivateProfileStrin...
ym_java-javagjsrc.rar_java fso
09-23
收集的一些Java高级编程实例源码，简要说明一下这些实例：文本计数、线程计数、读取控制台字符串、服务器端发送数据、异常处理、文件目录操作（FSO）、获取指定URL上的图像、捕获IO异常等，每个实例的代码里都有详细...
07870595_fso_源码.zip
10-18
由于没有详细的标签或其他描述，我将基于“源码”这个关键词来生成一些通用的编程和源代码管理相关的知识点： 1. **源代码**：源代码是程序员用高级编程语言编写的程序文本，它是计算机程序的原始形式，可以被人类...
FSO_FS_Tester:FSO 中文件系统项目的测试员
07-06
总之，"FSO_FS_Tester"是一个针对Java文件系统操作的测试框架，通过全面的测试覆盖，保证了代码在处理文件和目录时的正确性和效率。对于任何涉及文件系统操作的Java项目，这样的测试工具都是必不可少的。
fso2020_part7
03-27
在“fso2020_part7-master”这个压缩包中，很可能是包含了一个项目或教程的源码，涵盖了上述的一些JavaScript知识点。如果你想要进一步学习或理解这部分内容，建议解压文件，查看里面的代码、文档或阅读相关说明。...
收集的Java高级编程实例
03-16
内容索引:Java源码,初学实例,Java源码　收集的一些Java高级编程实例源码，简要说明一下这些实例：文本计数、线程计数、读取控制台字符串、服务器端发送数据、异常处理、文件目录操作（FSO）、获取指定URL上的图像、...
自动检测创建多级目录, fso与stream生成文件函数
萧月痕 - 梦想无止境
05-15 1858
下面是代码:% 网站根目录 const global_default_root_path = "/" 描述: 建立目录的程序，如果有多级目录，则一级一级的创建 作者: xiaoyuehen 日期: 2006-6-3 参数: strlocalpath : string, 创建路径, 必须为物理路径 返回: True/Fal
VBS脚本常用经典代码收集
关注产品，关注前端，关注体验
12-26 3488
<br /><br />VBS脚本用途很多：<br />1. 计算<br />2. 处理文件和文件夹<br />3. 管理Windows<br />4. 处理Word, Excel, PowerPoint等Office文档<br />5. 嵌入网页，驱动dHTML<br />6. 编写HTTP通信<br />7. 调用系统功能（COM组件），比如说语音说话<br />8. 分析HTML, XML<br />9. 调用命令行并分析返回结果<br />10. 处理图片<br />11. 自动化按键<
ASP常用的代码
weixin_30470643的博客
07-22 103
1.获得系统时间:<%=now()%>2.取得来访用的IP:<%=request.serverVariables("remote_host")%>3.获得系统,浏览器版本:<script>window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")</scri...
VBA7种遍历方法
weixin_34001430的博客
03-06 3441
Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog' ...
FSO 相关的代码
gbsck的专栏
08-03 559
动态include文件利用FSO动态调用文件Function include(filename)    Dim re,Content,FSO,F,aspStart,aspEnd    Set FSO = CreateObject("Scripting.FileSystemObject")    Set F = FSO.OpenTextFile(Server.MapPath(filename)) 
011讲一个程序的知识点
gyy77的博客
08-10 165
import random import numpy as np a = [] c = 5 d = 0 while d     b = []     for i in range(7):         b.append(random.random())     a.append(b)     d +=1 a = np.array(a) a = a.reshape((5,7
vb基础知识和文件操作
请叫我杰哥
10-31 1680
一：基本知识 1，变量首字母大写，常量全部大写 2，switch（,条件为1时的值，【……】） 3，动态数组，Dim 数组名() As Integer ReDim [Preserve] 数组名(*to*,*to*) As Integer,Preserve关键字可以保证数组大小改变时，值还存在 4,使用ubound保证不会越界 5，Dim A As Variant（Dim A()） A =
ASP自定义函数集
网络Online
03-26 425
*********************************************************************函数导航FormatDate(DT,tp) ------------------------------------------日期格式化IsInteger(para)   ---------------------------检测传递的参数是否为数
VBA 读写文本文件的几种方法
热门推荐
lijil168的专栏
10-12 6万+
1、直接采用Open函数+Line input命令 Private Sub txt_read() Dim txt As String Open "D:\dzh.txt" For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用， '并决定缓冲区所使用
OFDM FSO matlab 代码
最新发布
06-11
要编写OFDM与FSO结合的Matlab代码，首先你需要了解以下几个关键概念： 1. OFDM信号生成：在Matlab中，你可以使用`comm.OFDMModulator`和`comm.OFDMDemodulator`来创建OFDM调制器和解调器。 2. FSO信道建模：这可能...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值