请教高人转换代码！！！

论坛管理员 · 发表于 2009-8-13 11:57:08

本帖最后由论坛管理员于 2009-8-13 20:50 编辑

<html>
<body>
<script type="text/javascript">
document.write(encodeURIComponent("你好"))
</script>
</body>
</html>

输出结果为：%E4%BD%A0%E5%A5%BD

请教高人弄个函数、UDF 出来！谢谢！

l4ever · 发表于 2009-8-13 14:58:05

这个是URL转码,php有个函数叫urlencode可以实现
AU3的还没有,不知道有什么规则

llm1978 · 发表于 2009-8-13 16:33:20

sanhen · 发表于 2009-8-13 17:15:48


MsgBox(0,0,_StringToUTF8("你好"))

Func _StringToUTF8($sString)

$buffer = StringToBinary($sString, 4)
$buffer = StringRegExpReplace($buffer ,"\w{2}","\0%")
$buffer =  StringTrimRight(StringReplace($buffer, "0x", ""),1)
Return $buffer

EndFunc

论坛管理员 · 发表于 2009-8-13 18:19:30

真正的管理员一出马，果然非同凡响！
就是多了点小尾巴，不知道是否版本问题？

%E4%BD%A0%E5%A5%BD
%E4%BD%A0%E5%A5%BD%E5%89%85%00
谢谢！

afan · 发表于 2009-8-13 18:53:06

我这正常~ 输出结果为：%E4%BD%A0%E5%A5%BD

llm1978 · 发表于 2009-8-15 16:00:30

无意中从老外的代码里面看到的

Func GetURI($url)
$uri = StringMid($url, 1, StringInStr($url, "://")) & "//"
$turl = StringMid($url, StringLen($uri) + 1)
If StringInStr($turl, "?") Then
      $temp = StringSplit($turl, "?")
      $turl = $temp[1]
      $temp = StringSplit($turl, "/")
      $uri = $uri & $temp[1] & "/"
      For $i = 2 To UBound($temp) - 1 Step 1
         If StringInStr($temp[$i], ".") Or Not StringLen($temp[$i]) Then ExitLoop
         $uri = $uri & $temp[$i] & "/"
      Next
      If Not InetGetSize(StringLeft($uri, StringLen($uri) - 1)) Then
         $uri = StringMid($url, 1, StringInStr($url, "://")) & "//"
         $temp = StringSplit($turl, "?")
         $turl = $temp[1]
         $temp = StringSplit($turl, "/")
         $uri = $uri & $temp[1] & "/"
         For $i = 2 To UBound($temp) - 2 Step 1
            If StringInStr($temp[$i], ".") Or Not StringLen($temp[$i]) Then ExitLoop
            $uri = $uri & $temp[$i] & "/"
         Next
      EndIf
Else
      $temp = StringSplit($turl, "/")
      $uri = $uri & $temp[1] & "/"
      For $i = 2 To UBound($temp) - 1 Step 1
         If StringInStr($temp[$i], ".") Or Not StringLen($temp[$i]) Then ExitLoop
         $uri = $uri & $temp[$i] & "/"
      Next
EndIf

Return $uri
EndFunc  ;==>GetURI

		自动登录	找回密码
密码			加入

请教高人转换代码！！！

评分