字符串UTF-8编码互转

尘缘一生

希望你写个LISP程序例子，就是，支持，简体，繁体，英文，还有其他编码的。一直疑惑，uif-8编码是不是支持不同地区呢？如果是，那么，简体写的lisp，如何都转换为 UTF-8？

tryhi

尘缘一生 发表于 2024-7-6 20:17
希望你写个LISP程序例子，就是，支持，简体，繁体，英文，还有其他编码的。一直疑惑，uif-8编码是不是支持 ...

简繁跟UTF-8没有一点关系，所以你这个问题问得很奇怪，例子不是写得很清楚吗？

烟盒迷唇

dcl1214 发表于 2024-7-6 15:57
非常不错，我之前研究sqlite的exe的时候，lisp调用官方的exe，返回来的是UTF-8字串，我一直没搞定，看了你 ...

怎么调用呢

flowerson

海大师，有什么办法能转GKB吗？

你有种再说一遍

尘缘一生 发表于 2024-7-6 20:17
希望你写个LISP程序例子，就是，支持，简体，繁体，英文，还有其他编码的。一直疑惑，uif-8编码是不是支持 ...

你要知道utf8无敌就行了,繁体地区big5码也需要转为utf8让全球看到,大陆地区简体GB2312或者GB18030也转为utf8,文件也小巧了.
但是注意GB18030编码范围其实大过utf8的

tryhi

flowerson 发表于 2024-7-9 16:46
海大师，有什么办法能转GKB吗？

同样的办法就可以,charset参数可以用unicode;utf-8;ascii;gb2312;big5;gbk

flowerson

tryhi 发表于 2024-7-9 17:43
同样的办法就可以,charset参数可以用unicode;utf-8;ascii;gb2312;big5;gbk

(defun try-str2gbk (str / file_list fileget stream)
  (if (setq stream (vlax-create-object "Adodb.Stream"))
    (progn
      (vlax-put-property stream 'Type 2) ; 1二进制读取 2文本模式读取
      (vlax-put-property stream 'Mode 3) ; 1-读,2-写,3-读写
      (vlax-put-property stream 'Charset "GBK") ; 设置编码为GBK
      (vlax-invoke stream 'Open)
      (vlax-invoke stream 'WriteText str)
      (vlax-put-property stream 'Position 0) ; 将位置重置为起始位置
      (vlax-put-property stream 'Type 1) ; 1二进制读取 2文本模式读取
      (setq FileGet(Vlax-Invoke-Method stream 'Read nil))
      (setq File_list (vlax-safearray->list (vlax-variant-value FileGet)))
      (vlax-release-object stream)
      (cdddr File_list);去除BOM
    )
    (princ"\n无法创建'Adodb.Stream'对象")
  )
)

测试：(try-str2gbk "编码") ;-->(235) 不对的，知道哪里没有改对呢？

tryhi

flowerson 发表于 2024-7-9 19:06
(defun try-str2gbk (str / file_list fileget stream)
  (if (setq stream (vlax-create-object "Adodb ...

GBK没有BOM这3个字节

flowerson

tryhi 发表于 2024-7-9 20:58
GBK没有BOM这3个字节

感谢，海大师。我一行行试，能理解你说的了。“GBK没有BOM这3个字节” 但是这些知识是怎样积累到的呢？

tryhi

flowerson 发表于 2024-7-10 11:01
感谢，海大师。我一行行试，能理解你说的了。“GBK没有BOM这3个字节” 但是这些知识是怎样积累到的 ...

其实是因为我在写UTF-8的时候发现总是多出来3个字节，那么百度UTF-8后发现那叫BOM，那去掉3个字节就解决，那其他编码不存在这个问题，就不需要去了

那么你在改GBK的时候同样道理，你直接套用我的函数就会发现总是少了3个字节，代码总共才十来行，那大概看一下就会发现最后一句cdddr，你删了去掉不就解决了，这是逻辑思考问题，不是知识积累