标题:Put每次写入文件时为什么会多出12字节?急呀
只看楼主
cjjwjf
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-4-22
结帖率:0
已结贴  问题点数:20 回复次数:2 
Put每次写入文件时为什么会多出12字节?急呀
Put每次写入文件时为什么会多出12字节?急呀

用WINSOCK.GetData接收到的数据,在写入文件时每次都会多写入12字节,求大侠解答!
2015-04-22 01:39
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
得分:20 
是“ ”字符(空格)么?
是的话加上一个代码:
(你的存储变量)=Replace((你的存储变量)," ","")

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-04-22 22:26
yunjie167
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-6-23
得分:0 
您的问题我今天也遇到了,在百度上查到解决方法.
Option Explicit
Dim ReceiveBuffer() As Byte
Private Sub Command1_Click()
    ReDim ReceiveBuffer(2) As Byte
    ReceiveBuffer(0) = &H31
    ReceiveBuffer(1) = &H32
    ReceiveBuffer(2) = &H33
    Call SaveFile
End Sub

Private Sub SaveFile()
    Dim FileId As Integer     
    Dim StrFileName As String
    Dim i As Integer
    Dim str$
   
    str = Format$(Now, "yyyy-mm-dd_hh_mm_ss")
   
    StrFileName = App.path + "\" + str + ".bin"
    FileId = FreeFile()  
   
    Open StrFileName For Binary As #FileId         
   
    Put #FileId, , ReceiveBuffer()
   
    Close #FileId
End Sub
2015-06-23 19:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-444356-1-1.html




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

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