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

  (二)．用 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 
   
  ％>