output保存问题

weiyulin 2009-04-19 12:54:13

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Language" content="zh-cn" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>客户数据导出</title>
<style type="text/css">
.style1 {
text-align: center;
}
.style2 {
font-size: medium;
}
.style3 {
color: #0000FF;
letter-spacing: 6px;
}
.style4 {
background-color: #00FFFF;
}
</style>
</head>

<body style="margin: 0">

 
IT行业　前台管理系统 
客户数据导出
<table style="width: 70%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
[基本信息]
　序号：00001　　　　分组：　　　　姓名：　　　　性别：　　　　号码：
[联系信息]
　电话1：　　　　电话2：　　　　地址：
[配置信息]
　主板：　　　　　CPU：　　　　　显卡：　　　　　内存：　　　　　 
　硬盘：　　　　　网卡：　　　　　电源：　　　　　光驱： 
　机箱：　　　　　显示：　　　　　其它：
[ 备注 ]
　标志
[ 其它 ]
　添加日期：　nbsp; 　　　nbsp;修改日期：　　nbsp; 　　nbsp;导出日期：
</td>
</tr>
</table>

</body>

</html>

以上数据保存在 TexHtml.Text中
但是当调用代码:
Dim FileNu As Long

FileNu = FreeFile '获取可用的文件号

Open TextPath.Text For Binary As FileNu

Dim FileData() As Byte

FileData() = TexHtml.Text '文件路径
Put #FileNu, 1, FileData()

Close FileNu

打开这个html文件,浏览器没有任何显示,需要在工具栏中选择 [查看源文件] 后再点击文件保存,就可以正常显示

不解,是不是我代码出了问题,还是保存过程中有需要处理的特殊字符

...全文

137 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

weiyulin 2009-04-19

打赏
举报

感谢 lyserver 的帮助

请允许我明天结贴我想给贴子加分

因为像你这样帮忙的现在太少了

呵呵

再次感谢

weiyulin 2009-04-19

打赏
举报

在TextHtml中的内容,如果我直接打开记事本,粘贴进行保存成htm,可以正常显示

lyserver 2009-04-19

打赏
举报

把代码发过来吧.

weiyulin 2009-04-19

打赏
举报

如果可以,麻烦老师加我QQ 我把源文件传给你,您帮我改一下,谢谢您

QQ:100510037

如果您方便!

weiyulin 2009-04-19

打赏
举报

代码改为：

Dim FileNu As Long

FileNu = FreeFile '获取可用的文件号

Open TextPath.Text For Binary As FileNu

Dim FileData As String

FileData = TexHtml.Text
Put #FileNu, , FileData

Close FileNu

效果一样

lyserver 2009-04-19

打赏
举报

这一句Put #FileNu, 1, FileData 改为 Put #FileNu, , FileData

weiyulin 2009-04-19

打赏
举报

谢谢 lyserver 的回复

下面是我根据你的回复改的代码：

Dim FileNu As Long
FileNu = FreeFile '获取可用的文件号
Open TextPath.Text For Binary As FileNu

Dim FileData As String
FileData = TexHtml.Text
Put #FileNu, 1, FileData
Close FileNu

执行上面代码,打开这个htm文件,显示空白,就是是通过查看源文件→再进行保存也一样

继续请教

是不是我哪里出问题了

真的很急

lyserver 2009-04-19

打赏
举报

Dim FileData As String
FileData=TexHtml.Text

weiyulin 2009-04-19

打赏
举报

上面两位师傅的方法不行

SYSSZ 的显示乱码
lyserver 我照你的方法试了下
提示不能给数组赋值,在FileData() = TexHtml.Text这行出错

lyserver 2009-04-19

打赏
举报

[Quote=引用楼主 weiyulin 的帖子:]
Dim FileNu As Long

FileNu = FreeFile '获取可用的文件号

Open TextPath.Text For Binary As FileNu

Dim FileData() As Byte

FileData() = TexHtml.Text '文件路径
Put #FileNu, 1, FileData()

Close FileNu
[/Quote]
上述红色的代码有误，应改为Dim FileData As String就可以了。

SYSSZ 2009-04-19

打赏
举报

Private Sub Form_Load()

 Dim FileNu As Long

  FileNu = FreeFile '获取可用的文件号

  Open App.Path & "\TexHtml.Text" For Binary As #FileNu

  Dim FileData() As Byte

  ReDim FileData(LOF(FileNu))

  Get #FileNu, , FileData()

   Close #FileNu

    FileNu = FreeFile '获取可用的文件号

    Open App.Path & "\TexHtml.htm" For Binary As #FileNu

Put #FileNu, 1, FileData()

Close #FileNu

End Sub