如何自动判断文件是否uif-8或ansi编码格式并转化不出现乱码

yzyyyyyyy

易查分网，导出的电子表格为uiF-8文件，电子表格直接打开显示为乱码，转化为ans编码i格式后，可正常打开。每次均需先用记事本打开，另存为txt文件，选择编码格式为ansi，保存后，再用电子表格打开。
如何自动选择文件，判断文件是否为uIF-8,若是自动转化为ansi，若为ansi则不必转化。
例子中，基本信息是uif-8文件，基本信息1是转化后的ansi文件 如何自动判断文件是否uif-8或ansi编码格式并转化不出现乱码.rar (16.12 KB, 下载次数: 15)

2019-11-18 08:38 上传

点击文件名下载附件

wj2368

。。。。。。。。。。。。。。。

lsdongjh

1. Sub Test()
   
2.     Debug.Print AnyCodeToAnsi("F:\Temp\如何自动判断文件是否uif-8或ansi编码格式并转化不出现乱码\基本信息.csv")
   
3. End Sub
   
4. 
   
5. 
   
6. Function AnyCodeToAnsi(strFilePath As String)
   
7.     Dim ObjStream As Object, strType As String
   
8.     Dim btyBom As Variant, strNewFilePath As String
   
9.     Dim strOldCode As String, strNewCode As String
   
10.     Dim strContent As String
    
11.    
    
12.     Set ObjStream = CreateObject("adodb.stream")
    
13.     With ObjStream
    
14.         .Type = 1
    
15.         .Mode = 3
    
16.         .Open
    
17.         .Position = 0
    
18.         .LoadFromFile strFilePath
    
19.         btyBom = .read(2)
    
20.     End With
    
21.    
    
22.     strType = Hex(btyBom(0)) & Hex(btyBom(1))
    
23.     Select Case strType
    
24.         Case "FFFE"
    
25.             strOldCode = "Unicode"
    
26.         Case "FEFF"
    
27.             strOldCode = "Unicode big endian"
    
28.         Case "EFBB"
    
29.             strOldCode = "UTF-8"
    
30.         Case Else 'ANSI
    
31.             strOldCode = "GB2312" '汉字
    
32.     End Select
    
33. 
    
34.     If strOldCode = "GB2312" Then
    
35.         MsgBox "文件格式为ANSI,不需要转换!"
    
36.         Exit Function
    
37.     End If
    
38. 
    
39.     strNewCode = "GB2312"
    
40.     btyBom = Split(strFilePath, ".")
    
41.     strNewFilePath = btyBom(0) & "-Gb2312." & btyBom(1)
    
42.    
    
43.    
    
44.    
    
45.     With ObjStream
    
46.         .Position = 0
    
47.         .Type = 2
    
48.         .Charset = strOldCode
    
49.         strContent = .ReadText
    
50.    
    
51.         .Position = 0
    
52.         .SetEOS
    
53.         .Type = 2
    
54.         .Charset = strNewCode
    
55.         .WriteText strContent
    
56.         .SaveToFile strNewFilePath, 2
    
57.     End With
    
58.    
    
59.     ObjStream.Close
    
60.     Set ObjStream = Nothing
    
61. 
    
62. End Function

复制代码

lsdongjh

1. Sub Test()
   
2.     Dim arrFiles As Variant, strFileName As String
   
3.     Dim lngID As Long
   
4.    
   
5.     arrFiles = Application.GetOpenFilename(filefilter:="导入文件(*.csv;*.txt),*.csv;*.txt", MultiSelect:=True)
   
6.     If IsArray(arrFiles) Then
   
7.         For lngID = LBound(arrFiles) To UBound(arrFiles)
   
8.             strFileName = arrFiles(lngID)
   
9.             AnyCodeToAnsi strFileName
   
10.         Next
    
11.     End If
    
12. End Sub
    
13. 
    
14. 
    
15. Function AnyCodeToAnsi(strFilePath As String)
    
16.     Dim ObjStream As Object, strType As String
    
17.     Dim btyBom As Variant, strNewFilePath As String
    
18.     Dim strOldCode As String, strNewCode As String
    
19.     Dim strContent As String
    
20.    
    
21.     Set ObjStream = CreateObject("adodb.stream")
    
22.     With ObjStream
    
23.         .Type = 1
    
24.         .Mode = 3
    
25.         .Open
    
26.         .Position = 0
    
27.         .LoadFromFile strFilePath
    
28.         btyBom = .read(2)
    
29.     End With
    
30.    
    
31.     strType = Hex(btyBom(0)) & Hex(btyBom(1))
    
32.     Select Case strType
    
33.         Case "FFFE"
    
34.             strOldCode = "Unicode"
    
35.         Case "FEFF"
    
36.             strOldCode = "Unicode big endian"
    
37.         Case "EFBB"
    
38.             strOldCode = "UTF-8"
    
39.         Case Else 'ANSI
    
40.             strOldCode = "GB2312" '汉字
    
41.     End Select
    
42. 
    
43.     If strOldCode = "GB2312" Then
    
44.        ' MsgBox "文件格式为ANSI,不需要转换!"
    
45.         Exit Function
    
46.     End If
    
47. 
    
48.     strNewCode = "GB2312"
    
49.     btyBom = Split(strFilePath, ".")
    
50.     strNewFilePath = btyBom(0) & Int(Rnd(1) * 1000) & "-Gb2312." & btyBom(1)
    
51.    
    
52.    
    
53.    
    
54.     With ObjStream
    
55.         .Position = 0
    
56.         .Type = 2
    
57.         .Charset = strOldCode
    
58.         strContent = .ReadText
    
59.    
    
60.         .Position = 0
    
61.         .SetEOS
    
62.         .Type = 2
    
63.         .Charset = strNewCode
    
64.         .WriteText strContent
    
65.         .SaveToFile strNewFilePath, 2
    
66.     End With
    
67.    
    
68.     ObjStream.Close
    
69.     Set ObjStream = Nothing
    
70. 
    
71. End Function
    

复制代码

yzyyyyyyy

lsdongjh 发表于 2019-11-20 14:56

感谢大师热心帮助，已实现打开uIF-8文件,自动转化为ansi文件，能否选择多个不确定是何编码，不再另存文件，直接导入工作表 如何选择多个csv文件并直接导入工作表中.rar (17.25 KB, 下载次数: 1)

2021-11-18 09:38 上传

点击文件名下载附件