在这篇文章中，我们将讲解利用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:\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

…

<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

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