编程论坛 → JavaScript论坛

html能否读txt文本文件的数据？

gu_tong2008 发布于 2011-01-08 17:14， 3286 次点击

请教大家一个问题，html能否读txt文本文件的数据？能否举个例子？

5 回复

#2

gupiao1752011-01-08 23:06

程序代码：

<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试下！

#3

lucky5635912011-01-09 08:16

这是必须的，不过，javascript不能读写本地数据吧?

#4

gu_tong20082011-01-10 09:50

以下是引用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文件中的内容，

#5

gupiao1752011-01-11 22:39

<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>

#6

gu_tong20082011-01-13 10:00

楼上的大虾，辛苦你了，晚上还加班帮我回帖子！

1