针对很多朋友想知道如何用asp获取.txt文件的内容,并存入数组,输出指定行或列

<%
Sub ReadFiles() 
Dim objFSO 
Dim objText 
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile = "1."
ObjFile=server.mappath(ObjFile)
Response.write ObjFile&"<br>" '输出文件完整路径及文件名
'Response.end
IF objFSO.FileExists(ObjFile) then 
    '打开TXT文件,并赋值给变量
    Set objText = objFSO.OpenTextFile(ObjFile,1)
    'strTextContent = objText.ReadAll()
    '循环读取数据
i=0
redim a(0)'定义数组 
'While not objText.AtEndOfStream '到文件的末尾
While not objText.AtEndOfLine '到一行的末尾
     strTextContent = objText.ReadLine()
     a(i)=strTextContent'将每行的值存入数组元素
      b=split(a(i),"=")'将每行的值存入新数组元素,以=为分隔符
      maxBound=Ubound(b)'获取每一行分割为多少个部分
      for j=0 to maxBound
      if j<maxBound then '输出该行的每个分割部分,用逗号隔开,最后一个部分时换行
      Response.write(b(j)) &" "
      else
      Response.write(b(j)) &"<br>"
      end if
      next
     'response.write a(i)&"_"&"<br>"
wend
i=i+1
    Call objText.Close
else
      response.write "文件不存在"
      response.end
end if
End Sub 
'调用过程,读取文件
readfiles()
%>

其中1.txt的内容如下:

姓名    编号
张三    135
李四    136

随机文章

angular表单验证$parsers和$validators方式区别
angular表单验证$parsers和$validators方式区别

联通过年放福利,给大家500M的流量红包
联通过年放福利,给大家500M的流量红包

新浪发的公告延时严重
新浪发的公告延时严重

java编写五子棋
java编写五子棋

自2010起百度在移动方面上涨1000%
自2010起百度在移动方面上涨1000%

为网站添加google +1按钮
为网站添加google +1按钮

相关文章

将excel里面的数据导入mysql
将excel里面的数据导入mysql

Java基础第九讲:面向对象基础(三)
Java基础第九讲:面向对象基础(三)

windows平台Emacs单实例原理、设置及右键菜单的添加
windows平台Emacs单实例原理、设置及右键菜单的添加

给android模拟器安装apk
给android模拟器安装apk

如何越狱你的IOS 7设备
如何越狱你的IOS 7设备

Java基础第十六讲:集合(二)
Java基础第十六讲:集合(二)

内容分享:道招
本文链接:asp读取txt文本文档内容至数组,并控制输出指定行(列)
道招声明:除特别标注或作者不详外,本站所有文章均为原创,转载请注明。欢迎共同关注互联网!