Global Const $key[27]=['吖','八','擦','耷','俄','发','噶','哈','丌','丌','卡','拉','马','拿','哦','趴','七','然','撒','他','挖','挖','挖','西','丫','匝','匝']
Global $str='测试中文拼音首字母',$L
For $i = 1 To StringLen($str)
Switch Dec(StringTrimLeft(StringToBinary(StringMid($str,$i,1)),2));把输入的文字转换为ANSI 编码,在把ANSI 编码转换成十进制
Case 32 To 127;;;输入的是英文字母或数字就显示这个?
$L&=StringMid($str,$i,1)
Case 33095 To 62289;;;输入的是汉字就运行这个?
$L&=Chr(97+_C(StringMid($str,$i,1),0,26))
EndSwitch
Next
MsgBox(0,'',$L)
Func _C($s,$f,$e) ;改进的中值法
Local $mid=Int(($e-$f)/2)+$f
If $mid=$f Then Return $f
If StringCompare($s,$key[$mid])=0 Then
Return $mid
ElseIf StringCompare($s,$key[$mid])>0 Then
Return _C($s,$mid,$e)
ElseIf StringCompare($s,$key[$mid])<0 Then
Return _C($s,$f,$mid)
EndIf
EndFunc
上面的自定义函数 _c() 他调用的数组key[]到底是怎么工作的?key[]里面的东西代表什么啊?