URL编码转换URLencode

tryhi

jun353835273 发表于 2025-12-26 11:04
"%u+4f60%u+597d%u+4e16%u+754c"
_$ B
"%u+4f60%u+597d%u+4e16%u+754c"

1. ;; 使用MyMemory API的完整代码
   
2. (defun getxml (url / xml http)
   
3.   (if (setq http (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))
   
4.     (progn
   
5.       (vlax-invoke-method http "open" "GET" url :vlax-false)
   
6.       (vlax-invoke-method http "send")
   
7.       (vlax-invoke-method http "WaitForResponse" 5)
   
8.       (setq xml (vlax-get-property http "ResponseText"))
   
9.       (vlax-release-object http)
   
10.       xml
    
11.     )
    
12.   )
    
13. )
    
14. (defun fy (word / url result start end str translated)
    
15.   ;; 构建请求URL
    
16.   (setq url (strcat
    
17.     "https://api.mymemory.translated.net/get"
    
18.     "?q=" (vl-string-translate " " "%20" word)
    
19.     "&langpair=en|zh"
    
20.     "&de=" "your-email@example.com"  ;; 可选，提高免费额度
    
21.   ))
    
22.   
    
23.   ;; 获取结果
    
24.   (setq result (getxml url))
    
25.   
    
26.   (if (and result (> (strlen result) 10))
    
27.     (progn
    
28.       ;; 查找翻译结果
    
29.       (setq start (vl-string-search "\"translatedText\":\"" result))
    
30.       (if start
    
31.         (progn
    
32.           (setq str (substr result (+ start 19)))
    
33.           (setq end1 (vl-string-search "\"" str))
    
34.           (if end1
    
35.             (progn
    
36.               (setq translated (substr str 1 end1))
    
37.               
    
38.               ;; 解码URL编码
    
39.               (setq translated (vl-string-translate "%20" " " translated))
    
40.               (setq translated (vl-string-translate "%25" "%" translated))
    
41.               (setq translated (vl-string-translate "%0A" "\n" translated))
    
42.               (setq translated (vl-string-translate "%0D" "\r" translated))
    
43.               
    
44.               ;; 解码JSON转义
    
45.               (setq translated (vl-string-translate "\\\"" "\"" translated))
    
46.               (setq translated (vl-string-translate "\\\\" "\\" translated))
    
47.               (setq translated (vl-string-translate "\\/" "/" translated))
    
48.               (setq translated (vl-string-translate "\\b" "\b" translated))
    
49.               (setq translated (vl-string-translate "\\f" "\f" translated))
    
50.               (setq translated (vl-string-translate "\\n" "\n" translated))
    
51.               (setq translated (vl-string-translate "\\r" "\r" translated))
    
52.               (setq translated (vl-string-translate "\\t" "\t" translated))
    
53.               
    
54.               ;; 清理空白字符
    
55.               (setq translated (vl-string-trim " \t\n\r" translated))
    
56.               
    
57.               ;; 如果结果包含 %% 且不是正常的百分号，可能是解析问题
    
58.               (if (and (vl-string-search "%%" translated)
    
59.                        (not (vl-string-search "%" word)))  ;; 原文本没有%
    
60.                 (progn
    
61.                   ;; 尝试修复可能的解析错误
    
62.                   (setq translated (vl-string-subst "%" "%%" translated))
    
63.                 )
    
64.               )
    
65.               
    
66.               translated
    
67.             )
    
68.             word  ;; 没有找到结束引号
    
69.           )
    
70.         )
    
71.         word  ;; 没有找到翻译文本
    
72.       )
    
73.     )
    
74.     word  ;; 结果无效
    
75.   )
    
76. )
    
77. 
    
78. 
    
79. ;; 主命令函数
    
80. (defun c:TTR (/ ss n e dt txt oldtxt newtxt)
    
81.   (setvar "cmdecho" 0)
    
82.   (princ "\n选择要翻译的文本对象: ")
    
83.   
    
84.   (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    
85.     (progn
    
86.       (setq n 0)
    
87.       (repeat (sslength ss)
    
88.         (setq e (ssname ss n)
    
89.               n (1+ n)
    
90.               dt (entget e)
    
91.               oldtxt (cdr (assoc 1 dt))
    
92.         )
    
93.         
    
94.         (princ (strcat "\n翻译: \"" oldtxt "\""))
    
95.         
    
96.         ;; 调用翻译函数
    
97.         (setq newtxt (fy oldtxt))
    
98.         
    
99.         (if (and newtxt (not (equal newtxt oldtxt)))
    
100.           (progn
     
101.             (entmod (subst (cons 1 newtxt) (assoc 1 dt) dt))
     
102.             (princ (strcat " -> \"" newtxt "\""))
     
103.           )
     
104.           (princ " [翻译失败或未改变]")
     
105.         )
     
106.       )
     
107.     )
     
108.   )
     
109.   (princ)
     
110. )
     
111. (defun T-string-subst (old new str / n)
     
112.   (setq n (- (strlen new)))
     
113.     (while (setq n (vl-string-search old str (min (+ n (strlen new)) (strlen str))))
     
114.       (setq str (vl-string-subst new old str n))
     
115.     )
     
116.   str
     
117. )
     
118. 
     
119. (defun Unicode (translated / a b)
     
120. 
     
121. ;(setq translated "\"u4f60\"u597d\"u4e16\"u754c")
     
122. (setq a (T-string-subst "\"u" "\\U+" translated))
     
123. (setq b(read (strcat "\""a"\"")))
     
124.         (vl-princ-to-string b)
     
125. )
     
126. 
     
127. ;; 测试命令
     
128. (defun c:TEST ()
     
129.   (princ (Unicode(fy "hello-world")))
     
130.   (princ)
     
131. )
     
132. 
     
133. (Unicode(fy "the sea"))
     

;; 使用MyMemory API的完整代码<br /> (defun getxml (url / xml http)<br />   (if (setq http (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))<br />     (progn<br />       (vlax-invoke-method http "open" "GET" url :vlax-false)<br />       (vlax-invoke-method http "send")<br />       (vlax-invoke-method http "WaitForResponse" 5)<br />       (setq xml (vlax-get-property http "ResponseText"))<br />       (vlax-release-object http)<br />       xml<br />     )<br />   )<br /> )<br /> (defun fy (word / url result start end str translated)<br />   ;; 构建请求URL<br />   (setq url (strcat <br />     "https://api.mymemory.translated.net/get"<br />     "?q=" (vl-string-translate " " "%20" word)<br />     "&langpair=en|zh"<br />     "&de=" "your-email@example.com"  ;; 可选，提高免费额度<br />   ))<br />   <br />   ;; 获取结果<br />   (setq result (getxml url))<br />   <br />   (if (and result (> (strlen result) 10))<br />     (progn<br />       ;; 查找翻译结果<br />       (setq start (vl-string-search "\"translatedText\":\"" result))<br />       (if start<br />         (progn<br />           (setq str (substr result (+ start 19)))<br />           (setq end1 (vl-string-search "\"" str))<br />           (if end1<br />             (progn<br />               (setq translated (substr str 1 end1))<br />               <br />               ;; 解码URL编码<br />               (setq translated (vl-string-translate "%20" " " translated))<br />               (setq translated (vl-string-translate "%25" "%" translated))<br />               (setq translated (vl-string-translate "%0A" "\n" translated))<br />               (setq translated (vl-string-translate "%0D" "\r" translated))<br />               <br />               ;; 解码JSON转义<br />               (setq translated (vl-string-translate "\\\"" "\"" translated))<br />               (setq translated (vl-string-translate "\\\\" "\\" translated))<br />               (setq translated (vl-string-translate "\\/" "/" translated))<br />               (setq translated (vl-string-translate "\\b" "\b" translated))<br />               (setq translated (vl-string-translate "\\f" "\f" translated))<br />               (setq translated (vl-string-translate "\\n" "\n" translated))<br />               (setq translated (vl-string-translate "\\r" "\r" translated))<br />               (setq translated (vl-string-translate "\\t" "\t" translated))<br />               <br />               ;; 清理空白字符<br />               (setq translated (vl-string-trim " \t\n\r" translated))<br />               <br />               ;; 如果结果包含 %% 且不是正常的百分号，可能是解析问题<br />               (if (and (vl-string-search "%%" translated)<br />                        (not (vl-string-search "%" word)))  ;; 原文本没有%<br />                 (progn<br />                   ;; 尝试修复可能的解析错误<br />                   (setq translated (vl-string-subst "%" "%%" translated))<br />                 )<br />               )<br />               <br />               translated<br />             )<br />             word  ;; 没有找到结束引号<br />           )<br />         )<br />         word  ;; 没有找到翻译文本<br />       )<br />     )<br />     word  ;; 结果无效<br />   )<br /> )<br /> <br /> <br /> ;; 主命令函数<br /> (defun c:TTR (/ ss n e dt txt oldtxt newtxt)<br />   (setvar "cmdecho" 0)<br />   (princ "\n选择要翻译的文本对象: ")<br />   <br />   (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))<br />     (progn<br />       (setq n 0)<br />       (repeat (sslength ss)<br />         (setq e (ssname ss n)<br />               n (1+ n)<br />               dt (entget e)<br />               oldtxt (cdr (assoc 1 dt))<br />         )<br />         <br />         (princ (strcat "\n翻译: \"" oldtxt "\""))<br />         <br />         ;; 调用翻译函数<br />         (setq newtxt (fy oldtxt))<br />         <br />         (if (and newtxt (not (equal newtxt oldtxt)))<br />           (progn<br />             (entmod (subst (cons 1 newtxt) (assoc 1 dt) dt))<br />             (princ (strcat " -> \"" newtxt "\""))<br />           )<br />           (princ " [翻译失败或未改变]")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun T-string-subst (old new str / n)<br />   (setq n (- (strlen new)))<br />     (while (setq n (vl-string-search old str (min (+ n (strlen new)) (strlen str))))<br />       (setq str (vl-string-subst new old str n))<br />     )<br />   str<br /> )<br /> <br /> (defun Unicode (translated / a b)<br /> <br /> ;(setq translated "\"u4f60\"u597d\"u4e16\"u754c")<br /> (setq a (T-string-subst "\"u" "\\U+" translated))<br /> (setq b(read (strcat "\""a"\"")))<br />         (vl-princ-to-string b)<br /> )<br /> <br /> ;; 测试命令<br /> (defun c:TEST ()<br />   (princ (Unicode(fy "hello-world")))<br />   (princ)<br /> )<br /> <br /> (Unicode(fy "the sea"))<br />