UC知道vb 保存文件有空行
来源：百度知道 编辑：UC知道 时间：2024/05/16 11:21:14
我编写了一个时间检测程序，就是说第一次打开后开始计时关闭程序后，保存今天打开的日期信息到opendate.cff，我用的打开时间的代码是：
Private Sub Timer1_Timer()
If s.Caption <> CStr(Time$) Then
s.Caption = Date$
t.Caption = Time$
End If
Timer1.Enabled = False
End Sub
其中s就是记录静止的打开日期的label。
问题是用以下代码对文件进行保存后文件总有空行，就象这样：
-------------文件开始
2008-08-30
-------------文件结束
保存代码为：
s.Caption = Replace(s.Caption, vbCrLf & vbCrLf, vbCrLf)
Open "Config\opendate.cff" For Output As #1
Print #1, s.Caption
Close #1
第二次打开时，我想让程序自动检测这个日期与当前打开日期是否相同，是则接着上次继续计时，否则重新开始计时。但就因为这个空行，导致程序总是判断为否，请问如何解决这个问题？
致lxz1969：按你说两种方法的改过后还是存在空行问题。
Private Sub Timer1_Timer()
If s.Caption <> CStr(Time$) Then
s.Caption = Date$
t.Caption = Time$
End If
Timer1.Enabled = False
End Sub
其中s就是记录静止的打开日期的label。
问题是用以下代码对文件进行保存后文件总有空行，就象这样：
-------------文件开始
2008-08-30
-------------文件结束
保存代码为：
s.Caption = Replace(s.Caption, vbCrLf & vbCrLf, vbCrLf)
Open "Config\opendate.cff" For Output As #1
Print #1, s.Caption
Close #1
第二次打开时，我想让程序自动检测这个日期与当前打开日期是否相同，是则接着上次继续计时，否则重新开始计时。但就因为这个空行，导致程序总是判断为否，请问如何解决这个问题？
致lxz1969：按你说两种方法的改过后还是存在空行问题。
s.Caption = Replace(s.Caption, vbCrLf & vbCrLf, vbCrLf) 这一行不要。再试试。如果还不行，就试试改为：
s.Caption = Replace(s.Caption, vbCrLf,"")
如果还不行，就试试改为：
s.Caption = Replace(s.Caption, vbCrLf,"")
Print #1, s.Caption也改为Print #1, s.Caption ;'后面加一分号
保存代码这样改即可：
Dim b() As Byte
s.Caption = Replace(s.Caption, vbCrLf & vbCrLf, vbCrLf)
b = StrConv(s.Caption, vbFromUnicode)
Open "Config\opendate.cff" For Binary As #1
Put #1, , b
Close #1
我的想法：
将文件读到 一个字符串 里，让后 使用 Instr（）函数 查找 在这个字符串 里 是否有 当前日期的字符串 比如：“2008-08-30 ”。