asp读取txt文本文档内容至数组，并控制输出指定行（列）
如果您发现本文排版有问题，可以先点击下面的链接切换至老版进行查看！！！
asp读取txt文本文档内容至数组，并控制输出指定行（列）
<%
Sub ReadFiles()
Dim objFSO
Dim objText
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile = "1.txt"
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- 分类：
- Asp
更新时间：
相关文章
将excel里面的数据导入mysql
1.将excel里面选中的数据快儿拷贝到一个TXT文本文件中（记得把后面的空格消掉。。否则导入数据库后会有对应的空行），假如存到“D:da ta.txt”这个位置里。 2.根据要导入的数据快儿 阅读更多…
java实现数组相减
先定义两个数组，前面的一个小，后面的一个比前面的大，名为相减其实就是求大数组中小数组不包含的那一部分的集合 我们可以看Test.java源代码 [code lang="java"] packag 阅读更多…
Java基础第十三讲：数组
本讲内容：数组 数组是Java中的对象，它用来存储多个相同类型的基本数据类型或者对象引用。 一、声明数组 数组是通过说明它将要保存的元素类型来声明的，元素类型可以是对象或者基本类 阅读更多…
将object型转换为数组array型
object貌似是最大的类型了，在使用数据的时候有的数据的键和值得形式基本上就是数组了，但是它却不是array类型，可以这样的函数转换一下就行了。 function object_to_arr 阅读更多…
