不用数据库如何保存数据

[taihangxhj]

每隔半小时接收一个数，并把这些数全部保存在文本文档或WORD里，不用数据库能实现吗？如何实现?

[hufm2009]

把数直接存入文件中，不就是保存了吗？

[taihangxhj]

刚接触VB，用的什么? print?
我用PRINT，文本里老是只有一个数据，不断更新，怎么把每次都接到的数都保存下来？

[fzx4936]

用append

[fage168]

VB打开文件的时候有几种方式，有只读、写、追加、二进制等几种方式，你如果是用“写的”方式，那就清空原来的内容并写入新内容，建议你用楼上“追加”的语法。

[fxgang]

使用：Xml吧
'读XML
Public Function getXmlValue(ByVal XmlFile As String, ByVal AppKey As String, ByRef AppValue As String) As Boolean
On Error GoTo ErrHandle
Dim objXml As New DOMDocument
Dim objNode As IXMLDOMNode
Call objXml.Load(XmlFile)
Set objNode = objXml.selectSingleNode(AppKey)
If objNode Is Nothing Then
AppValue = DefNull
Else
AppValue = objNode.nodeTypedValue
End If
Set objNode = Nothing
Set objXml = Nothing
getXmlValue = True
Exit Function
ErrHandle:
getXmlValue = False
End Function

'写XML
Public Function setXmlValue(ByVal XmlFile As String, ByVal AppKey As String, ByVal AppValue As String) As Boolean
On Error GoTo ErrHandle
Dim objXml As New DOMDocument
Dim objNode As IXMLDOMNode
Call objXml.Load(XmlFile)
Set objNode = objXml.selectSingleNode(AppKey)
If objNode Is Nothing Then
Set objNode = Nothing
Set objXml = Nothing
setXmlValue = False
Exit Function
Else
objNode.nodeTypedValue = AppValue
Call objXml.Save(XmlFile)
End If
Set objNode = Nothing
Set objXml = Nothing
setXmlValue = True
Exit Function
ErrHandle:
setXmlValue = False
End Function

[angelia_0412]

还是写文本比较快捷，word速度慢

Public Function WriteLog(LogMessage As String)
Dim m_filename As String

    m_filename = App.Path & "\TEST.log"
    Open m_filename For Append Access Write As #1
    Print #1, LogMessage
    Close #1
End Function

[a_aaaa8888]

Public Function WriteLog(LogMessage As String)
Dim b_filename As String

    b_filename = App.Path & "\TEST.log"
    Open b_filename For Append Access Write As #1
    Print #1, LogMessage
    Close #1
End Function

[angelia_0412]

[Quote=引用 7 楼 a_aaaa8888 的回复:]
VB code
Public Function WriteLog(LogMessage As String)
Dim b_filename As String

b_filename = App.Path & "\TEST.log"
Open b_filename For Append Access Write As #1
Print #1, LogMessage
Close #1
End Function
[/Quote]

无语。。。

[rmini]

值得学习，用力顶