Vb6.0写文本文件并写入十六进制数据

最新推荐文章于 2017-03-27 09:48:48 发布

風雲工作室

最新推荐文章于 2017-03-27 09:48:48 发布

阅读量4.2k

点赞数

分类专栏： vb 文章标签： vb integer string command hex kill

本文链接：https://blog.csdn.net/angxiao/article/details/7541406

版权

这篇博客介绍了如何使用VB6.0创建和操作文本文件，包括清除已存在的文件内容，追加文本数据，以及如何将十六进制数值转换为字符串并写入文件。示例代码展示了创建临时文件、写入数据和以十六进制格式写入数据的方法。

摘要由CSDN通过智能技术生成

‘创建文件

Public Sub CreateTempFile()
   If Dir("C:\TempFileLab.txt") <> "" Then
      Kill ("C:\TempFileLab.txt")   '删除
   Else
     Dim TempFileLab As Integer
     TempFileLab = FreeFile

      Open "C:\TempFileLab.txt" For Append As #TempFileLab ' 打开输出文件。
     Print #TempFileLab, "以下是温度异常记录：" ' 将文本数据写入文件。
     Close #TempFileLab
   End If
End Sub

’写入数据

Public Sub WriteTempFile(ByVal str As String)
     Dim TempFileLab As Integer
     TempFileLab = FreeFile
     Open "C:\TempFileLab.txt" For Append As #TempFileLab ' 打开输出文件。
     Print #TempFileLab, str ' 将文本数据写入文件。
     Close #TempFileLab
End Sub

‘十六进制写入文本文件

Private Sub Command2_Click()
    RxBuf(0) = &H48
    RxBuf(1) = &H34
    RxBuf(2) = &H23
    Dim str As String
    Dim i As Integer
    For i = 0 To UBound(RxBuf)
       str = str & " " & Hex(RxBuf(i))
    Next i
    WriteTempFile (Now() & "== " & str)
End Sub