iori2882 发表于 2013-11-11 09:04:16

M大的读取中文第一个首字母,自定义函数什么意思啊?

Global Const $key=['吖','八','擦','耷','俄','发','噶','哈','丌','丌','卡','拉','马','拿','哦','趴','七','然','撒','他','挖','挖','挖','西','丫','匝','匝']
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[]里面的东西代表什么啊?

snailyyy 发表于 2013-11-11 13:12:55

可以搜索下 信息交换用汉字编码字符集

iori2882 发表于 2013-11-12 09:50:55

回复 2# snailyyy
还是不能理解

snailyyy 发表于 2013-11-12 12:16:33

回复 3# iori2882


    个人理解 具体原理还是M大来解释 我自己去查了下 大概是以下原理
信息交换用汉字编码字符集 里面包含了几千个中国字的ANSI编码 字是按照一定顺序排列的
先获取我们输入的字的ANSI编码 然后和信息交换用汉字编码字符集中的字比对
比如$str='测试中文拼音首字母'中的测 测的ANSI编码在 '擦' 之后在 '耷'之前 所以这个字的首字母则为 '擦' 的首字母 C
页: [1]
查看完整版本: M大的读取中文第一个首字母,自定义函数什么意思啊?