| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3286 人关注过本帖
标题:html能否读txt文本文件的数据?
只看楼主 加入收藏
gu_tong2008
Rank: 1
等 级:新手上路
帖 子:250
专家分:7
注 册:2009-9-18
结帖率:76.32%
收藏
已结贴  问题点数:20 回复次数:5 
html能否读txt文本文件的数据?
请教大家一个问题,html能否读txt文本文件的数据?能否举个例子?
搜索更多相关主题的帖子: 文本文件 
2011-01-08 17:14
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
程序代码:
<script language=vbscript>
Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function
</script>
<script language="JavaScript">
var xmlUrl = new ActiveXObject('Microsoft.XMLHTTP');
xmlUrl.Open('GET','a255.txt');
xmlUrl.Send();
document.write(bytes2BSTR(xmlUrl.ResponseBody));
setTimeout('alert(bytes2BSTR(xmlUrl.ResponseBody))',2000);
</script>
把a255.txt改为你要看的txt试下!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2011-01-08 23:06
lucky563591
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:小飞侠
威 望:4
帖 子:765
专家分:2103
注 册:2009-11-18
收藏
得分:0 
这是必须的,不过,javascript不能读写本地数据吧?
2011-01-09 08:16
gu_tong2008
Rank: 1
等 级:新手上路
帖 子:250
专家分:7
注 册:2009-9-18
收藏
得分:0 
以下是引用gupiao175在2011-1-8 23:06:12的发言:

 
Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function
 
 
var xmlUrl = new ActiveXObject('Microsoft.XMLHTTP');
xmlUrl.Open('GET','a255.txt');
xmlUrl.Send();
document.write(bytes2BSTR(xmlUrl.ResponseBody));
setTimeout('alert(bytes2BSTR(xmlUrl.ResponseBody))',2000);
把a255.txt改为你要看的txt试下!
2楼的大虾,这段代码我也看过,那么我还想请教一下能否用这段代码实现定时读取例子中a255.txt文件呢?如每隔5秒读取a255.txt文件中的内容,
2011-01-10 09:50
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:20 
<script type="text/vbscript">
Public Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function
</script>
<script type="text/javascript">
var xmlUrl = new ActiveXObject('Microsoft.XMLHTTP');
function getTxt(){
xmlUrl.Open('GET','a255.txt');
xmlUrl.Send();
document.getElementById('txt').innerHTML=bytes2BSTR(xmlUrl.ResponseBody);
 dd=window.setTimeout('getTxt()',5000);//每搁5000,也就是5秒调用一次!(时间越少反映越快)在TXT里随时增加文本并保存,即可反映到网页里!
}
window.onload=function(){getTxt();}
</script>
<div id="txt"></div>

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2011-01-11 22:39
gu_tong2008
Rank: 1
等 级:新手上路
帖 子:250
专家分:7
注 册:2009-9-18
收藏
得分:0 
楼上的大虾,辛苦你了,晚上还加班帮我回帖子!
2011-01-13 10:00
快速回复:html能否读txt文本文件的数据?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020421 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved