有偿50元--字符转unicode（暂时也有人接了）

lilyhcn1

原来找到一个中文转unicode的，但发现这个代码转中文没问题，但转“回车符”，“双引号”等就有问题了。求大神帮忙解决一下。
比如附件中json，帮忙转成unicode我要写入文件。
Desktop.zip (49.18 KB, 下载次数: 23)

2023-1-8 17:22 上传

点击文件名下载附件

可能我说不太清楚，有兴趣的加我QQ聊吧，谢谢了。
暂时有人接了
2023-1-10更新

感谢楼上的各位老师的热心解答，求这个代码是excel外挂脚本的一部分，作用是先把excel中的数据完美转化为json数据，再调用其它的程序进行处理。
现在的问题就是excel数据转化的不完美，普通的字符可以转化，但代码类、复杂的文本就转化不了，无法转成正常的json文本了。

感觉还是讲不清楚，暂时也有人接了，大家暂时别看了，不想浪费大家时间。

1. '中文转unicode
   
2. Function c2u(t)
   
3. 
   
4.         For i = 1 To Len(t)
   
5.             S = AscW(Mid(t, i, 1))
   
6.             If S > 0 And S < 255 Then
   
7.                 c2u = c2u & Mid(t, i, 1)
   
8.             Else
   
9.                 c2u = c2u & "\u" & LCase(Hex(S))
   
10.             End If
    
11.         Next
    
12. 
    
13. End Function

复制代码

zpy2

如果 放到 http服 务 端，可以用xmlhttp responseText

vba 用
ado stream

https://club.excelhome.net/forum.php?mod=viewthread&tid=1638668&fromguid=hot&extra=&mobile=2&_dsign=f4adae33

lilyhcn1

zpy2 发表于 2023-1-8 20:01
如果 放到 http服 务 端，可以用xmlhttp responseText

vba 用

主要是想拿这个做excel对外的中介，暂时一定要用vba，后期才可能转成插件形式。

zpy2

lilyhcn1 发表于 2023-1-9 10:16
主要是想拿这个做excel对外的中介，暂时一定要用vba，后期才可能转成插件形式。

convert_utf_to_unicode.asp.zip (786 Bytes, 下载次数: 0)

2023-1-9 10:39 上传

点击文件名下载附件

我写了一个vbs的，vba用ado

调用一下下面二个函数应该可以的
ReadUTFText(strFile)     WriteGBKText(path,t)

smsn

你的意思是 把json内的中文字符改为unicode ，对吧？
这种吗？
中文转Unicode，转义要不要

{"total":2,"excelpath":"E:\\Seafile\\\u79c1\u4eba\u8d44\u6599\u5e93\\\u4e2a\u4eba\u7814\u7a76\\\u6279\u91cf\u53d1\u6d88\u606f\\17..\u7b80\u5355\u4ee3\u7801\u751f\u6210\u5668（\u7ec8）\\ahk\u4ee3\u7801\u751f\u6210\u5668","now_row":3,"now_col":8}

tanglf188

是对temp.json文件转换整个文件的编码还是在VBA里面一个变量转换编码？

lilyhcn1

smsn 发表于 2023-1-9 11:01
你的意思是 把json内的中文字符改为unicode ，对吧？
这种吗？
中文转Unicode，转义要不要

不只是中文还要有其它的符号，能转回来就行了

lilyhcn1

tanglf188 发表于 2023-1-9 11:11
是对temp.json文件转换整个文件的编码还是在VBA里面一个变量转换编码？

temp.json是vba生成的，我想生成unicode格式的文件。方便其它文件使用。

smsn

lilyhcn1 发表于 2023-1-9 12:04
temp.json是vba生成的，我想生成unicode格式的文件。方便其它文件使用。

文本输出为utf-8格式

tanglf188

把当前工作表另存为UniCode编码格式的文本文件。
Sub changecode()
    file = ActiveWorkbook.Path & "\temp.json"
    ActiveWorkbook.SaveAs fileName:=file, FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub