文件二进制流

最新推荐文章于 2024-10-03 22:06:42 发布

half000

最新推荐文章于 2024-10-03 22:06:42 发布

阅读量237

点赞数

分类专栏： VB 文章标签： string byte command 测试 c

本文链接：https://blog.csdn.net/half000/article/details/2830965

版权

VB 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

流对象方法
Private Sub Command1_Click()
WriteToTextFile "c:/unicode.txt", Text1.Text, "unicode"
End Sub

Sub WriteToTextFile(FileUrl, ByVal Str, CharSet)
Set stm = CreateObject("adodb.stream")
stm.Type = 2
stm.mode = 3
stm.CharSet = CharSet
stm.open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Sub

普通的二进制写文件方法
Private   Sub   WriteUnicodeFile(ByVal   StringLines   As   String,   _
                                                            ByVal   FileName   As   String,   _
                                                            Optional   ByVal   boolInsertBOM   As   Boolean   =   True)
          Dim   Bytes()   As   Byte
          Dim   UnicodeBOM(1)   As   Byte

          Bytes   =   StrConv(StrConv(StringLines,   vbFromUnicode),   vbUnicode)
          Open   FileName   For   Binary   As   #1
                If   True   =   boolInsertBOM   Then
                        if lof(1)=0 then
                      UnicodeBOM(0)   =   &HFF&
                      UnicodeBOM(1)   =   &HFE&
                      Put   #1,   ,   UnicodeBOM
                End   If
                Put   #1, lof(1)+1 ,   Bytes
                end if
          Close   #1

End   Sub


Private   Sub   Form_Load()
        Dim   s   As   String
        s   =   "简单Unicode文件输入测试"
        Call   WriteUnicodeFile(s,   "c:/unicodetest.txt",   True)
End   Sub