 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在开发WEB应用程序中，我们常常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO（File System Object）对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具，通过它所提供的一系列属性和方式，我们可以在应用程序中更简朴、灵活地对文件系统进行各种操作。 一、FSO简介 FSO对象模型包含以下几种对象： Drive对象：答应收集系统物理或通过LAN与系统逻辑连接的硬盘、CD－ROM等驱动器的可用空间、共享名等信息。 Folder对象：答应创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。 Files对象：答应创建、删除或移动文件，并向系统查询文件的名称、路径等。 TextStream对象：答应创建和读写文本文件。 FileSystemObject对象：提供一整套用于驱动器、文件夹和文件操作的方式，在功能上可以把它看作是上面几个对象的集合并且常常与它们配合使用。与该对象相关联的很多方式重复了前面四个对象中的方式，因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作。FSO模型通过两种方式实现对同一对象的操作，其操作效果是一样的，提供这种冗余功能的目的是为了实现最大的编程灵活性。 在这篇文章中，我们将讲解利用FSO对象模型的TextStream对象对文本文件的操作。 (一) 用 FileSystemObject 来获取文本文件对象 １．创建一个 FileSystemObject 对象实例 要进行文件操作，首先必须创建一个 FileSystemObject 对象实例，用来创建或打开一个文件．创建一个 FileSystemObject 对象实例的详细格式为(以AFileSystemObject)为例： Set AFileSystemObject = CreateObject("Scripting.FileSystemObjecct") ２．用 FileSystemObject 来获取文本文件对象TextStream FileSystemObject 提供了两种方式用于获取文本文件对象 TextStream，其中用于创建 文件的是 CreateTextFile，用于打开已存在文件的是 OpenTextFile，两种方式的返回结果都是 一个 TextStream 对象的实例，利用该对象可以进行文件的详细操作． ⑴ 创建一个新文件 创建新文件的方式的详细格式为(以AFileSystemObject为例)： AFilesystemObject.CreateTextFile(NewFileName,OverwriteExistingFile,IsUnicode) 其中： NewFileName 是一个string值，指定要建立的文件的名称，通常为文件的实际路径 加文件名称，如C:webshareaspsampfiletest.txt OverwriteExistingFile 是一个Boolean值，表示假如有同名文件存在时是否覆盖 原来的文件．该参数可以省略，缺省时为False，即不覆盖原来文件． IsUnicode 是一个Boolean值，表示要建立的文件是ASCII文件还是Unicode文件， 该参数可以省略，缺省时为False，即为ASCII文件． ⑵ 打开已存在的文件 打开已存在文件的方式的详细格式为(以AFileSystemObject为例)： AFilesystemObject.OpenTextFile(FileName,IOMode,create,format) 其中： FileName 是一个string值，指定要打开的文件的名称，通常为文件的实际路径 加文件名称，C:filepathtest.txt IOMode 是常数值，表示打开文件的目的，ForReading(1)表示用于读取数据； ForAppending表示用于增加数据．该参数可以省略，缺省时为ForReading． Create 是一个Boolean值，表示要打开的文件不存在时是否创建新文件， 该参数可以省略，缺省时为False，即不创建新文件． Format 表示文件打开的方法．其可能的值及含义如下： TristateTrue : 以 Unicode 的方法打开． TristateFalse : 以 ASCII 的方法打开． TristateUseDefault : 以系统默认的方法打开． 该参数可以省略，缺省时为 TristateFalse ，即ASCII方法． (二)．用 TextStream 进行文件操作 在建立或打开了文件之后，就可利用对象 TextStream 提供的方式进行文件的实际操作了． １．用于写操作的方式有： ⑴ Write(string) 将由string指定的字符串写入到文件中． ⑵ WriteLine(string) 在文件中写入由string指定的字符串，并写入一个换行字符． 参数string可以省略，此时将在文件中插入一个空行． ⑶ WriteBlankLines(NumOfLines) 在文件中插入若干空行，行数由 NumOfLines 指定． ２．用于读操作的方式和属性方式有： ⑴ AtEndOfLine 该属性是一个Boolean值，表示文件指针是否已指向当前行的行尾． ⑵ AtEndOfStream 该属性是一个Boolean值，表示文件指针是否已指向文件尾． ⑶ Column 该属性是一个整数值，表示文件指针在当前行中的位置． ⑷ Line 该属性是一个整数值，表示文件指针所在行的行号． ⑸ Read(NumOfCharacters) 该方式从文件当前位置开始，读入由NumOfCharacters数目指定的若干字符，返回一个 字符串． ⑹ ReadLine 该方式从文件当前位置开始，读入当前行的内容直到行尾，返回一个字符串． ⑺ ReadAll 该方式从当前位置开始，读入整个文件的内容直到文件结束，返回一个字符串． ⑻ Skip(NumOfCharacters) 该方式从文件当前位置开始，跳过由NumOfCharacters数目指定的若干字符． ⑼ SKipLine 该方式从文件当前位置开始，跳过当前行的内容． ３．用于关闭文件的方式有： ⑴ Close 关闭已经建立或打开的文件． (三)、下面就以一个实例来说明如何使用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 至此，全文内容讲解结束，希望这篇文章能给读者带来一定的帮助。 返回类别: 教程 上一教程: 菜鸟学ADO实例教程之ADO 更新记录 下一教程: 利用HTC技术限制多行输入框的内容的长度 您可以阅读与"使用FSO把文本信息导入数据库"相关的教程: · 从文本文件中读取信息并存储入数据库 · 无组件图片与文本同步存入数据库的最简朴的办法 · ASP中文本文件与数据库文件的数据交换(FSO) · 用纯ASP代码实现图片上传并存入数据库中 · 使用组件封装数据库操作(二) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
