使用FSO把文本信息导入数据库

　　在开发WEB应用程序中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO（FileSystemObject）对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具，通过它所提供的一系列属性和方法，我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。
一、FSO简介
FSO对象模型包含以下几种对象：
Drive对象：允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD－ROM等驱动器的可用空间、共享名等信息。
Folder对象：允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。
Files对象：允许创建、删除或移动文件，并向系统查询文件的名称、路径等。
TextStream对象：允许创建和读写文本文件。
FileSystemObject对象：提供一整套用于驱动器、文件夹和文件操作的方法，在功能上可以把它看作是上面几个对象的集合并且经常与它们配合使用。与该对象相关联的很多方法重复了前面四个对象中的方法，因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作。FSO模型通过两种方法实现对同一对象的操作，其操作效果是相同的，提供这种冗余功能的目的是为了实现最大的编程灵活性。
在这篇文章中，我们将讲解利用FSO对象模型的TextStream对象对文本文件的操作。

(一)用FileSystemObject来获取文本文件对象
１．创建一个FileSystemObject对象实例
要进行文件操作，首先必须创建一个FileSystemObject对象实例，用来创建或打开一个文件．创建一个FileSystemObject对象实例的具体格式为(以AFileSystemObject)为例：
SetAFileSystemObject=CreateObject(Scripting.FileSystemObjecct)
２．用FileSystemObject来获取文本文件对象TextStream
FileSystemObject提供了两种方法用于获取文本文件对象TextStream，其中用于创建
文件的是CreateTextFile，用于打开已存在文件的是OpenTextFile，两种方法的返回结果都是
一个TextStream对象的实例，利用该对象可以进行文件的具体操作．
⑴创建一个新文件
创建新文件的方法的具体格式为(以AFileSystemObject为例)：
AFilesystemObject.CreateTextFile(NewFileName,OverwriteExistingFile,IsUnicode)
其中：
NewFileName是一个string值，指定要建立的文件的名称，通常为文件的实际路径
加文件名称，如C:\webshare\aspsamp\filetest.txt
OverwriteExistingFile是一个Boolean值，表示如果有同名文件存在时是否覆盖
原来的文件．该参数可以省略，缺省时为False，即不覆盖原来文件．
IsUnicode是一个Boolean值，表示要建立的文件是ASCII文件还是Unicode文件，
该参数可以省略，缺省时为False，即为ASCII文件．
⑵打开已存在的文件
打开已存在文件的方法的具体格式为(以AFileSystemObject为例)：
AFilesystemObject.OpenTextFile(FileName,IOMode,create,format)
其中：
FileName是一个string值，指定要打开的文件的名称，通常为文件的实际路径
加文件名称，C:\filepath\test.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

…

<FORMMETHOD=POSTACTION=upFile.asp>

<divalign=center><br>

<br>

<br>

<br>

<inputtype=filename=pathsize=40>

<INPUTTYPE=submitname=drvalue=导入信息>

</div>

</FORM>

…

2、编写把获取到的文本值保存到数据库代码：upFile.asp

<%@Language=VBScript%>

<%Response.Buffer=true%>


<%

strConn=DSN=DataSourceName


Conn.openstrConn


ObjComm.CommandText=sp_AddMsg‘调用存储过程

ObjComm.CommandType=adCmdStoredProc

SetObjComm.ActiveConnection=Conn

创建输入输出参数

SetObjParamECom=ObjComm.CreateParameter(WC_ECompanyName,adVarchar,adParamInput,100)

ObjComm.Parameters.AppendObjParamECom

@in_ECompanyNameVarchar(50),--公司英文名称

SetObjParamAddr=ObjComm.CreateParameter(WC_Address,adVarchar,adParamInput,200)

ObjComm.Parameters.AppendObjParamAddr

@in_AddressVarchar(50),--公司地址

SetObjParamCity=ObjComm.CreateParameter(WC_City,adVarchar,adParamInput,100)

ObjComm.Parameters.AppendObjParamCity

@in_CityVarchar(50),--城市

…

创建参数完毕

%>

<%

dimAllText,strLine1,strLine2,strLine3

dimstrpath,fileurl

fileurl=

strpath=Trim(Request.form(path))

fileurl=strpath

SETFSO=CreateObject(Scripting.FileSystemObject)

SETATextStream=FSO.OpenTextFile(fileurl,1,false,TristateFalse)

提取数据

DOWHILENOTATextStream.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)

…

Endif

将变量加入参数集

ObjParamECom.value=strLine1

ObjParamCCom.value=strLine2

ObjParamAddr.value=strLine3

…

操作结束

ObjComm.Execute()运行命令

LOOP

response.write<br>+导入库成功！<ahref=dolist.html>[继续导入]</a><br>

setConn=nothing

setFSO=nothing

setATextStream=nothing

%>

附：存储过程sp_AddMsg代码

CREATEPROCEDUREdbo.sp_AddMsg--导入国外企业信息

(

@in_CompanyNameVarchar(100),--公司名称

@in_AddressVarchar(200),--公司地址

@in_CityVarchar(100),--公司所在城市

…

)

AS

SETNOCOUNTON

BEGINTRAN

INSERTINTOTb_WCLibrary(

WC_CompanyName,

WC_CCompanyName,

WC_Address,

…

)

VALUES(

@in_CompanyName,

@in_CCompanyName,

@in_Address,

…

)

IF@@ERROR<>0

BEGIN

ROLLBACKTRAN

RETURN-1

END

COMMITTRAN

RETURN0

SETNOCOUNTOFF

至此，全文内容讲解结束，希望这篇文章能给读者带来一定的帮助。