在开发WEB应用程序中,我们经常需要对文件系统中的驱动器、文件夹和文件进行处理,比如收集驱动器的相关信息;创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO(File System Object)对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具,通过它所提供的一系列属性和方法,我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。 在这篇文章中,我们将讲解利用FSO对象模型的TextStream对象对文本文件的操作。 (一) 用 FileSystemObject 来获取文本文件对象 (三)、下面就以一个实例来说明如何使用FSO来读取文本文件和如何保存到数据库: 1、 先创建一个读取文件路径的页面:file.htm … <FORM METHOD=POST ACTION="upFile.asp" > <div align="center"> <br> <br> <br> <br> <input type="file" name="path" size="40"> <INPUT TYPE="submit" name="dr" value="导入信息"> </div> </FORM> … 2、 编写把获取到的文本值保存到数据库代码:upFile.asp <%@Language="VBScript"%> <%Response.Buffer=true%> <!--#include file="adovbs.inc"--> <% strConn="DSN=DataSourceName" set Conn=Server.CreateObject("ADODB.Connection") Conn.open strConn set ObjComm=Server.CreateObject("ADODB.Command") ObjComm.CommandText="sp_AddMsg" ‘调用存储过程 ObjComm.CommandType=adCmdStoredProc Set ObjComm.ActiveConnection=Conn ''''''''''创建输入输出参数''''''''''''''''' Set ObjParamECom=ObjComm.CreateParameter("WC_ECompanyName",adVarchar,adParamInput,100) ObjComm.Parameters.Append ObjParamECom '@in_ECompanyName Varchar(50), --公司英文名称 Set ObjParamAddr=ObjComm.CreateParameter("WC_Address",adVarchar,adParamInput,200) ObjComm.Parameters.Append ObjParamAddr '@in_Address Varchar(50), --公司地址 Set ObjParamCity=ObjComm.CreateParameter("WC_City",adVarchar,adParamInput,100) ObjComm.Parameters.Append ObjParamCity '@in_City Varchar(50), --城市 … ''''''''''创建参数完毕'''''''''''''''''''' %> <% dim AllText,strLine1,strLine2,strLine3 dim strpath,fileurl fileurl="" strpath=Trim(Request.form("path")) fileurl=strpath SET FSO=CreateObject("Scripting.FileSystemObject") SET ATextStream=FSO.OpenTextFile(fileurl,1,false,TristateFalse) '''''''''提取数据'''''''''''''''''''''''''''' DO WHILE NOT ATextStream.AtEndOfStream ''''''初始化变量'''''''''''''''' strLine1="" strLine2="" strLine3="" … ''''''''''''''''''''''''''''''' ATextStream.SkipLine ATextStream.Skip(11) strLine1=Trim(ATextStream.ReadLine) ATextStream.Skip(11) strLine2=Trim(ATextStream.ReadLine) ATextStream.Skip(5) strLine3=Trim(ATextStream.ReadLine) … 'End if ''''''''''将变量加入参数集''''''''''''' ObjParamECom.value=strLine1 ObjParamCCom.value=strLine2 ObjParamAddr.value=strLine3 … ''''''''''操作结束'''''''''''''''''''' ObjComm.Execute() '运行命令 LOOP response.write "<br>"+"导入库成功!<a href=dolist.html>[继续导入]</a><br>" set Conn=nothing set FSO=nothing set ATextStream=nothing %> 附:存储过程sp_AddMsg代码 CREATE PROCEDURE dbo.sp_AddMsg --导入国外企业信息 ( @in_CompanyName Varchar(100), --公司名称 @in_Address Varchar(200), --公司地址 @in_City Varchar(100), --公司所在城市 … ) AS SET NOCOUNT ON BEGIN TRAN INSERT INTO Tb_WCLibrary( WC_CompanyName, WC_CCompanyName, WC_Address, … ) VALUES( @in_CompanyName, @in_CCompanyName, @in_Address, … ) IF @@ERROR <> 0 BEGIN ROLLBACK TRAN RETURN -1 END COMMIT TRAN RETURN 0 SET NOCOUNT OFF 至此,全文内容讲解结束,希望这篇文章能给读者带来一定的帮助。 |
温馨提示:喜欢本站的话,请收藏一下本站!