中文字符乱码！如何转换？

mol1981

各位老师好：
问题：
通过某软件非VBA，抓了一堆数据，结果中文字符乱码，其它字符显示正常,能否通过某种方法，把这些乱码字符，转换一下，先谢谢了

环境：excel2007
下面是需要转换的附件
ws.rar (8.37 KB, 下载次数: 11)

2022-11-30 21:00 上传

点击文件名下载附件

smsn

打开word-文件-打开
选择编码  unicode   utf-8 即可

wanghan519

首先，这个文档是utf-8编码的，被存成ascii所以乱码
可以在开头加上bom则显示正常

1. sed "$(printf '1s/^/\357\273\277/')" ws.txt

复制代码

如果用iconv -f utf-8 -t gbk则有部分字符无法转换成gbk需要加上-c参数

1. iconv -f utf-8 -t gbk -c

复制代码

wanghan519

又试了试，即使utf-8编码也有很多乱码，尤其是这里缺少引号，无法解析json。。。

zpy2

wanghan519 发表于 2022-12-1 06:04
首先，这个文档是utf-8编码的，被存成ascii所以乱码
可以在开头加上bom则显示正常

sed "$(printf '1s/^/\357\273\277/')" ws.txt

这个$
？
1？
这个1是啥？
s
替换
^开头

为bom
\357\273\277

？

wanghan519

zpy2 发表于 2022-12-1 11:49
sed "$(printf '1s/^/\357\273\277/')" ws.txt

这个$

"$()"，是在字符串里直接使用命令输出的内容，只是为了打印出bom那三个特殊字符，有的版本sed不用这么麻烦直接就能输出

1，是只对第一行执行后面的替换命令

就是为了给开头加上bom，肯定有其他方式，但sed加上-i参数直接修改速度好像比较快

tspliu

这种转码的百度很好找，不过最好还是写入TXT的时候指定好编码。

mol1981

tspliu 发表于 2022-12-1 12:14
这种转码的百度很好找，不过最好还是写入TXT的时候指定好编码。

Public Sub test2()
    str1 = ""
    For a = 1 To 187
        If a < 187 Then
        str1 = str1 & Mid(Sheet1.Cells(a, 1), 2) & ","
        Else: str1 = str1 & Mid(Sheet1.Cells(a, 1), 2)
        End If
    Next
    Dim ws As Object
    Dim ex As Object
    Set ws = CreateObject("wscript.shell")
    Set ex = ws.Exec("cmd /c ws.exe -n -1 -B 1048576 wss://vts.igiseis.com/pingtai/position?cookieId=d9375042-e71a-4998-8635-76c5636ba610")
    ex.StdIn.Write "{'action':'sim_company_car_list','phone':'" & str1 & "','companyId':'518622737851658240'}" & vbCrLf
    str2 = ""
    Do Until ex.Stdout.atendofstream
    str2 = str2 & ex.Stdout.Readline
    Loop
    Open ThisWorkbook.Path & "\ws.txt" For Output As #1
         Print #1, str2
    Close #1
    MsgBox str2
End Sub
这样的代码如何在输出保存的时候，最好是直接转换str2 为UTF8编码，不知道这样可以吗？

tspliu

。。。。。。。。。。。。。。。。。。。。。。。
百度搜索Function BytesToBstr(strBody, CodeBase)