请大神帮忙，想把这个csv文件里面的乱码正常显示成汉字，用Adodb.Stream的方法

alex_xu2019 · 发表于 2019-6-20 22:38

请大神帮忙，想把这个csv文件里面的乱码正常显示成汉字，用Adodb.Stream的方法，在本论坛和网上找了资料，研究了好长时间了，都没有解决，估计还是不太理解。。特求大神帮忙。。万分感谢。

内容如下，详见附件。
  2019-04-29|"1009095-73"|"瀹夊簡甯?|"涓叴"|"瀹ゅ唴"|"楂樻牎"|"鍐滄潙"|"ANQ-妗愬煄甯堣寖鏍戞儬妤兼墿瀹笷棰戞-FZL-94"|0|0|116.93763|31.05223|"no"|"楂樻牎"|"38400"|"458"|107574|107264|2|2|5|64|1331|29157|64674|12031|1|1|-79.3105|441|441|0.0041|0.0041|-89.8413|1|"1009095-60:0.1197;"|1|"1009095-60:0.0849;"|107330|2708|0.0252|22.6389|12.1133746378353|138|107450|50.3234|0.0013
  2019-04-29|"81394-80"|"铓屽煚甯?|"鍗庝负"|"瀹ゅ唴"|"楂樻牎"|""|"BEB-铓屽煚瀹夊窘绉戞妧瀛﹂櫌寰烽Θ鑻?#妤?E)-FHL-75"|0|0|117.422394|32.888483|"yes"|"楂樻牎"|"39148"|"221"|37315|37315|40|28|85|306|980|8643|24330|2943|0.9989|0.9992|-80.152|29|29|0.0008|0.0008|-101.9655|0|""|0|""|0|0|0|0|0|0|0|0|0
  2019-04-29|"528805-130"|"婊佸窞甯?|"鍗庝负"|"瀹ゅ"|"鍩庡尯閬撹矾"|"鍩庡尯"|"CUZ-婊佸窞瑗勬渤璺笌瀹濆北璺氦鍙?MHL-53"|38.51|10|118.31249|32.34331|"no"|""|"38400"|"92"|145046|143619|1883|1488|3441|10790|13617|51148|58217|4918|0.9869|0.9896|-86.6722|2276|2276|0.0161|0.0161|-94.5237|3|"999861-1:0.0586;70537-66:0.0322;528805-129:0.0309;"|4|"999861-1:0.0834;70537-66:0.0663;528805-128:0.042;547491-128:0.0324;"|86721|182|0.0021|29.3586|18.8585982612218|165|86721|48.8965|0.0019

xyxcc177 · 发表于 2019-6-21 08:37

附件呢？？

alex_xu2019 · 发表于 2019-6-21 12:07

昨天附件死活传不上去，所以在正文贴了下。现在传上了。

duquancai · 发表于 2019-6-21 19:48

有空看看，手机上网ing

duquancai · 发表于 2019-6-21 19:56

本帖最后由 duquancai 于 2019-6-21 20:02 编辑

alex_xu2019 发表于 2019-6-21 12:07
昨天附件死活传不上去，所以在正文贴了下。现在传上了。

无解。。。。。。。。。。。。。。。。。。。。。。。。

xyxcc177 · 发表于 2019-6-23 16:17

这是处理结果，好像你的文件有损坏

alex_xu2019 · 发表于 2019-6-23 22:22

@xyxcc177 能指教下VBA代码是怎么实现的不？

xyxcc177 · 发表于 2019-6-24 10:49

本帖最后由 xyxcc177 于 2019-6-24 10:50 编辑

alex_xu2019 发表于 2019-6-23 22:22
@xyxcc177 能指教下VBA代码是怎么实现的不？

Sub test()
Dim f As String
f = ThisWorkbook.Path & "\test.csv"
Dim txt As String
txt = UTF8ToGB2312(f)
MsgBox txt
End Sub
Public Function UTF8ToGB2312(ByVal filename As String) As String
Dim chs() As Byte, i As Integer, k As Integer
Dim adoStream As Object
Open filename For Binary As #1
For i = 0 To LOF(1) - 1
k = k + 1
ReDim Preserve chs(1 To k) As Byte
Get #1, , chs(k)
Next i
Close #1
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 1
adoStream.Open
adoStream.Write chs
adoStream.Position = 0
adoStream.Type = 2
UTF8ToGB2312= adoStream.ReadText()
adoStream.Close
End Function

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请大神帮忙，想把这个csv文件里面的乱码正常显示成汉字，用Adodb.Stream的方法

最新热点 /1