欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp怎么从txt中读一个矩阵数据

更新时间: 2014-01-05 00:56:19 责任编辑: Author_N1

 

ASP如何从txt中读一个矩阵数据
<%
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim fp
Set fp = fso.OpenTextFile(Server.MapPath("1.txt"),1,true)
Dim n,A(800,800)
Dim r,i,k
i = 0
k = 0
Do While fp.AtEndOfStream
s = Split(fp.ReadLine," ")
Loop
%>
把数据读出来后怎么提取,方便后面的计算啊
--参考方法--
n = 0
Do While Not fp.AtEndOfStream
    s = Split(fp.ReadLine," ")
    For i = 0 To UBound(s)
       A(i, n) = s(i)
    Next
    n = n + 1
Loop

For n = 0 To UBound(A, 2)
    For i = 0 To UBound(A)
        Response.Write A(i, n)
    Next
Next
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:19
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1585/
本文WWW.DOC100.NET DOC100.NET版权所有。