请问如何用VBScript撰写二进位档的读写
时间：2011-05-13
来源：互联网
前辈您好
目前我用VBA可读写二进位档案，但不知如何将此内容改写成VBSCRIPT程式，然后加入HTML程式里，烦请指教，谢谢
VBA程式如下：
Sub ReadWrite()
Dim FileName1 As String, FileName2 As String
Dim a As Byte, i As Integer
FileName1 = "C:\1.exe"
FileName2 = "C:\2.txt"
Open FileName1 For Binary As #1
Open FileName2 For Binary As #2
For i = 1 To LOF(1)
Get #1, i, a
Put #2, i, i
Next
Close #1
Close #2
End Sub
目前我用VBA可读写二进位档案，但不知如何将此内容改写成VBSCRIPT程式，然后加入HTML程式里，烦请指教，谢谢
VBA程式如下：
Sub ReadWrite()
Dim FileName1 As String, FileName2 As String
Dim a As Byte, i As Integer
FileName1 = "C:\1.exe"
FileName2 = "C:\2.txt"
Open FileName1 For Binary As #1
Open FileName2 For Binary As #2
For i = 1 To LOF(1)
Get #1, i, a
Put #2, i, i
Next
Close #1
Close #2
End Sub
作者: kite6302 发布时间: 2011-05-13
因我不懂VBSCRIPT，尽然天真的以为这样写就可以说，结果失败，恳请专家帮忙解惑，谢谢。
<html>
<head><title>Test</title>
</head>
<body>
<font size=6 color=green>
<center> Binary File Read/Write Test Program</center><hr><br>
</font>
<script language="VBScript">
Dim FileName1 As String, FileName2 As String
Dim a As Byte, i As Integer
FileName1 = "C:\1.exe"
FileName2 = "C:\2.txt"
Open FileName1 For Binary As #1
Open FileName2 For Binary As #2
For i = 1 To LOF(1)
Get #1, i, a
Put #2, i, i
Next
Close #1
Close #2
</script>
</body>
</html>
<html>
<head><title>Test</title>
</head>
<body>
<font size=6 color=green>
<center> Binary File Read/Write Test Program</center><hr><br>
</font>
<script language="VBScript">
Dim FileName1 As String, FileName2 As String
Dim a As Byte, i As Integer
FileName1 = "C:\1.exe"
FileName2 = "C:\2.txt"
Open FileName1 For Binary As #1
Open FileName2 For Binary As #2
For i = 1 To LOF(1)
Get #1, i, a
Put #2, i, i
Next
Close #1
Close #2
</script>
</body>
</html>
作者: kite6302 发布时间: 2011-05-13
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
