CrLf

写了个冒泡的
话说和不用 str2hex 的结果没区别嘛...
不知道这样是不是按 Local 顺序排列的

arr = Array("ACE_OVER", "AC-012", "-1","@fas" ,"520", "淡淡的忧伤", "098", "小小")

For i=0 To UBound(arr)
	arr(i) = str2hex(arr(i))
Next

For i=1 To UBound(arr)
	For j=i To 1 Step -1
		If CStr(arr(j))<CStr(arr(j-1)) Then
			tmp = arr(j)
			arr(j) = arr(j-1)
			arr(j-1) = tmp
		End If
	Next
Next

For i=0 To UBound(arr)
	WScript.Echo (arr(i))
	WScript.Echo hex2str(arr(i))
Next

Function str2hex(str)
	Dim i,char,arr()
	ReDim arr(Len(str))
	For i=1 To Len(str)
		char = Mid(str,i,1)
		If Asc(char)<0 Then
			arr(i-1) = char
		Else
			arr(i-1) = "\x" & Right("0" & Hex(Asc(char)),2)
		End If
	Next
	
	str2hex = Join(arr,"")	
End Function

Function hex2str(hexstr)
	Dim i
	For i=0 To 127
		If i <> 92 Then
			hexstr = Replace(hexstr,"\x" & Right("0" & Hex(i),2),Chr(i))
		End If
	Next
	
	hex2str = Replace(hexstr,"\x5c","\")
End Function
复制代码

CrLf

如果不涉及字节操作，还是 js 好用啊

CrLf

回复 5# yu2n


    科学计数法不靠谱吧，受精度限制，只有头几个字是准的，后面就只保留位数了，给个反例：

arr = Array("ACE_OVER" & String(17, "_") & "AAA", "ACE_OVER" & String(20, "_"),"ACE_OVER" & String(17, "_") & "AAA")
复制代码