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

lilyhcn1

tanglf188 发表于 2023-1-9 14:10
把当前工作表另存为UniCode编码格式的文本文件。
Sub changecode()
    file = ActiveWorkbook.Path & "\ ...

试了一下你的代码，无法转成unicode的。

lilyhcn1

smsn 发表于 2023-1-9 12:44
文本输出为utf-8格式

不要转成utf-8的，我只想要一个函数。

wodewan

猜一个

smsn

能重新描述一下，你想达到什么吗？不太理解
符号不只 回车符 双引号 （仅仅中文标点吧 ）？
英文的双引号应该不需要转为unicode ？

准提部林

將excel中文字另存為Unicode格式文字檔(不同語言版本開啟不產生亂碼)
可試 OpenTextFile
相關寫法, 搜一下找找

lilyhcn1

smsn 发表于 2023-1-9 21:20
能重新描述一下，你想达到什么吗？不太理解
符号不只 回车符 双引号 （仅仅中文标点吧 ）？
英文的双引 ...

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

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

tanglf188

lilyhcn1 发表于 2023-1-9 19:18
试了一下你的代码，无法转成unicode的。

不需要转换了，temp.json文件就是UniCode编码的，你打开temp.json文件再另存就能看到了。

smsn

lilyhcn1 发表于 2023-1-10 08:52
感谢楼上的各位老师的热心解答，求这个代码是excel外挂脚本的一部分，作用是先把excel中的数据完美转化为 ...

好的，明白。
以防有人可能有人会找到这贴，说下以下内容。
json 标准在这里有规定 http://www.json.org.cn/ ，字符怎么转都有标准。
http://www.rfc-editor.org/rfc/pdfrfc/rfc4627.txt.pdf

一些控制符和下图这几个有特殊要求。
例如 回车换行用的是 \r \n 不是直接unicode，还要加转义符号。





字符转化程序：

1. Public Function toUnicode(str As String) As String 'JSON format
   
2.     Dim x As Long
   
3.     Dim uStr As String
   
4.     Dim uChrCode As Integer
   
5.     For x = 1 To Len(str)
   
6.         uChrCode = AscW(Mid(str, x, 1))  'or Asc
   
7.         Select Case uChrCode
   
8.             Case 8:   ' backspace
   
9.                 uStr = uStr & "\b"
   
10.             Case 9: ' tab
    
11.                 uStr = uStr & "\t"
    
12.             Case 10:  ' line feed
    
13.                 uStr = uStr & "\n"
    
14.             Case 12:  ' formfeed
    
15.                 uStr = uStr & "\f"
    
16.             Case 13: ' carriage return
    
17.                 uStr = uStr & "\r"
    
18.             Case 34: ' quote
    
19.                 uStr = uStr & """"
    
20.             Case 39:  ' apostrophe
    
21.                 uStr = uStr & "\'"
    
22.             Case 92: ' backslash
    
23.                 uStr = uStr & "\"
    
24.             Case 123, 125:  ' "{" and "}"
    
25.                 uStr = uStr & ("\u" & Right("0000" & Hex(uChrCode), 4))
    
26.             Case Is < 32, Is > 127: ' non-ascii characters
    
27.                 uStr = uStr & ("\u" & Right("0000" & Hex(uChrCode), 4))
    
28.             Case Else
    
29.                 uStr = uStr & ChrW$(uChrCode)
    
30.         End Select
    
31.     Next
    
32.     toUnicode = uStr
    
33. End Function

复制代码