txt文本读取和写入

gamer1314

1. Function 文本读写(文本路径, Optional 文本内容 = "", Optional 编码_utf8_ansi_utf8bom = "ansi", Optional 指针位置 = 0)
   
2.     'txt的读取和写入,文本内容为空的时候是读取,不为空是写入
   
3.     If 文本内容 = "" Then 模式 = "读取" Else 模式 = "写入"
   
4.     If 模式 = "读取" And Dir(文本路径) = "" Then Exit Function
   
5.     If 模式 = "写入" And Dir(文本路径) <> "" Then Kill 文本路径
   
6.     '编码格式预处理
   
7.     Select Case LCase(编码_utf8_ansi_utf8bom)
   
8.         Case "utf8", "utf-8"
   
9.             编码格式 = "utf-8"
   
10.             指针位置 = 0
    
11.         Case "ansi", "gbk", "gb2312"
    
12.             编码格式 = "GB2312"
    
13.         Case "utf8bom", "utf8 bom", "utf-8bom", "utf-8 bom"
    
14.             编码格式 = "utf-8"
    
15.             指针位置 = 3
    
16.         Case Else
    
17.             编码格式 = 编码_utf8_ansi_utf8bom
    
18.     End Select
    
19.   
    
20.     Dim stm: Set stm = CreateObject("adodb.stream")
    
21.     stm.Type = 2         '以文本模式读取
    
22.     stm.mode = 3
    
23.     stm.Charset = 编码格式
    
24.     stm.Open
    
25.    
    
26.     Select Case 模式
    
27.         Case "读取"
    
28.             stm.LoadFromFile 文本路径
    
29.             文本读写 = stm.ReadText
    
30.                      
    
31.         Case "写入"
    
32.             Select Case 编码格式 & 指针位置
    
33.             
    
34.                 Case "utf-80"
    
35.                
    
36.                     stm.WriteText (文本内容)
    
37.                     stm.Position = 3
    
38.                     Dim stm2: Set stm2 = CreateObject("adodb.stream")
    
39.                     With stm2
    
40.                         .mode = 3
    
41.                         .Type = 1
    
42.                         .Open
    
43.                     End With
    
44.                     stm.CopyTo (stm2)
    
45.                     stm2.SaveToFile 文本路径, 2
    
46.                     Set stm2 = Nothing
    
47.                     
    
48.                 Case Else
    
49.                
    
50.                     stm.WriteText (文本内容)
    
51.                     stm.Position = 指针位置
    
52.                     stm.SaveToFile 文本路径, 2
    
53. 
    
54.             End Select
    
55.    
    
56.     End Select
    
57.     stm.Flush
    
58.     stm.Close
    
59.     Set stm = Nothing
    
60. End Function

复制代码

'测试

1. Sub test323()
   
2.     文本读写 "C:\test_utf8.txt", "test测试", "utf8"
   
3.     Debug.Print "utf8方式读取utf8数据:" & 文本读写("C:\test_utf8.txt", , "utf8")
   
4.     Debug.Print "utf8bom方式读取utf8数据:" & 文本读写("C:\test_utf8.txt", , "utf8bom")
   
5.     Debug.Print "ansi方式读取utf8数据:" & 文本读写("C:\test_utf8.txt", , "ansi")
   
6.    
   
7.     文本读写 "C:\test_utf8bom.txt", "test测试", "utf8bom"
   
8.     Debug.Print "utf8方式读取utf8bom数据:" & 文本读写("C:\test_utf8bom.txt", , "utf8")
   
9.     Debug.Print "utf8bom方式读取utf8bom数据:" & 文本读写("C:\test_utf8bom.txt", , "utf8bom")
   
10.     Debug.Print "ansi方式读取utf8bom数据:" & 文本读写("C:\test_utf8bom.txt", , "ansi")
    
11.    
    
12.     文本读写 "C:\test_ansi.txt", "test测试", "ansi"
    
13.     Debug.Print "utf8方式读取ansi数据:" & 文本读写("C:\test_ansi.txt", , "utf8")
    
14.     Debug.Print "utf8bom方式读取ansi数据:" & 文本读写("C:\test_ansi.txt", , "utf8bom")
    
15.     Debug.Print "ansi方式读取ansi数据:" & 文本读写("C:\test_ansi.txt", , "ansi")
    
16.    
    
17. End Sub

复制代码

'输出结果

utf8方式读取utf8数据:test测试
utf8bom方式读取utf8数据:test测试
ansi方式读取utf8数据:test娴嬭瘯
utf8方式读取utf8bom数据:test测试
utf8bom方式读取utf8bom数据:test测试
ansi方式读取utf8bom数据:锘縯est娴嬭瘯
utf8方式读取ansi数据:test????
utf8bom方式读取ansi数据:test????
ansi方式读取ansi数据:test测试

morpheus126

原来utf8bom和utf8读取会有区别的呀。。。还真不知道
谢谢分享

gamer1314

morpheus126 发表于 2024-5-8 12:40
原来utf8bom和utf8读取会有区别的呀。。。还真不知道
谢谢分享

两个文件读出来的数据一样.没有区别.