[已解决]批处理如何把(当前路径)字符转为Unicode编码？

aries215

想把 %~dp0 转为 \u0043\u003a\u005c 这类形式。
要求纯批处理，简单通用。不要Powershell。
非常感谢！

aries215

JS可以直接获得，VBS可用Hex(AscW(strings))获得，怎么写成简单直接的批处理命令呢？

aries215

怎么把下方vbs代码，改成批处理命令，支持变量输入输出呢？

1. s = "𪚥"
   
2. WScript.Echo Hex(ToCodePoint(s))
   
3. 
   
4. 'return code point of a character
   
5. Function ToCodePoint(s)
   
6.     Dim uni, uni2
   
7.     uni = CLng("&H" & Hex(AscW(s)))
   
8.     If (uni >= &HD800&) And (uni <= &HDBFF&) Then
   
9.         uni2 = Mid(s, 2, 1)
   
10.         If uni2 = "" Then
    
11.             Err.Raise 8732, "ToCodePoint", _
    
12.             "Invalid  surrogate pair"
    
13.         End If
    
14.         uni2 = CLng("&H" & Hex(AscW(uni2)))
    
15.         uni = &H10000 + (((uni - &HD800&) * 2 ^ 10) Or (uni2 - &HDC00&))
    
16.     End If
    
17.     ToCodePoint = uni
    
18. End Function
    

复制代码

aries215

JS的命令似乎更简单，怎么用WScript于批处理呢？

1. function reconvert(str){
   
2.                 str = str.replace(/(\\u)(\w{1,4})/gi,function($0){
   
3.                         return (String.fromCharCode(parseInt((escape($0).replace(/(%5Cu)(\w{1,4})/g,"$2")),16)));
   
4.                 });
   

复制代码

yhcfsr

看到楼主说不要powershell我就放心了,所以我特意写了一段powershell代码.
食用方法:保存为bat执行.

1. @echo off
   
2. powershell -NoProfile -NoLogo -command "& {$str='%~dp0';$str;$str=$str.ToCharArray();$result=@(foreach($char in $str){"\u{0:x4}" -f [int]$char});$result -join '';}"
   
3. pause

复制代码

测试结果:

1. C:\Users\CF\Desktop\
   
2. \u0043\u003a\u005c\u0055\u0073\u0065\u0072\u0073\u005c\u0043\u0046\u005c\u0044\u0065\u0073\u006b\u0074\u006f\u0070\u005c

复制代码

aries215

回复 5# yhcfsr
你家住哪的？我去拜年，保证不踢你

aries215

我要看看高手怎么写代码

523066680

回复 7# aries215

    高手都潜水。浮在水面的路过

yhcfsr

别折腾了.

1. @set @n=0/*&@echo off
   
2. echo;%~dp0|cscript -nologo -e:jscript "%~f0"
   
3. pause&exit /b */
   
4. 
   
5. var line=WSH.StdIn.ReadLine();
   
6. var len=line.length;
   
7. var result='';
   
8. for(i=0;i<len;i++)
   
9. {
   
10.         var code=('000'+(line.charCodeAt(i)).toString(16)).slice(-4);       
    
11.         result+='\\u'+code;
    
12. }
    
13. WSH.Echo(result)

复制代码

aries215

回复 9# yhcfsr
第二行修改成这样，批处理就可以用了：

1. for /f %%a in ('echo;%~dp0^|cscript -nologo -e:jscript "%~f0"') do (
   
2.     echo %%a
   
3. )

复制代码