求助查错：批处理调用vbs将字符串转换成gb2312的URL编码

gm2wie

获取字符串的ANSI编码的批处理for语句错在哪里？
为何第6行中的echo显示结果为“Echo is off”呢，请高手赐教并指正，谢谢。
批处理代码：

1. ::获取字符串的ANSI编码
   
2. @echo off
   
3. set str=我们
   
4. cscript //nologo ansi.vbs %str%
   
5. for /f "tokens=1,* delims=:" %%i in ('" cscript //nologo ansi.vbs %str%" ') do set acode =%%i
   
6. Echo %acode%
   
7. pause

复制代码

VBS代码：

1. 
   
2. 'Date: 2010/6/18
   
3. 'Author: Demon
   
4. 'Website: http://demon.tw
   
5. 
   
6. Function urlencode(str)
   
7.         Dim i,c,s,length
   
8.         length = Len(str)
   
9.         For i = 1 To length
   
10.                 s = Mid(str,i,1)
    
11.                 c = Asc(Mid(str,i,1))
    
12.                 If ( c >= Asc("A") And c <= Asc("Z") ) Or _
    
13.                         ( c >= Asc("a") And c <= Asc("z") ) Or _
    
14.                         ( c >= Asc("0") And c <= Asc("9") ) Or _
    
15.                         ( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then
    
16.                         urlencode = urlencode & s
    
17.                 ElseIf c = Asc(" ") Then
    
18.                         urlencode = urlencode & "+"
    
19.                 Else
    
20.                         urlencode = urlencode & "%" & Left(Hex(c),2)
    
21.                         urlencode = urlencode & "%" & Right(Hex(c),2)                        
    
22.                 End If
    
23.         Next
    
24. End Function
    
25. set objArgs = wscript.Arguments
    
26. WScript.Echo urlencode(objArgs(0))

复制代码

CUer

1. echo,%acode%

复制代码

tmplinshi

::获取字符串的ANSI编码
@echo off
set str=我们
cscript //nologo ansi.vbs %str%
for /f "tokens=1,* delims=:" %%i in ('" cscript //nologo ansi.vbs %str%" ') do set acode =%%i
Echo %acode%
pause

改为 set acode=%%i

CUer

回复 3# tmplinshi


版主好眼力

gm2wie

谢谢指正，以后定当更加细致