回复 8楼 吹水佬
没明白,版主是怎么显示出来的?
以下是引用wxzd123在2023-7-27 19:28:48的发言:
没明白,版主是怎么显示出来的?
没明白,版主是怎么显示出来的?
在用 Windows 10 专业版 22H2 自带的字库就有这个字,但是非标准编码的自造字。
? qwmb(16) *? qwmb(93) FUNCTION qwmb(qh) && 区号(1..94) IF !BETWEEN(qh,1,94) RETURN "" ENDIF qwm = qh * 0x100 + 0xA0A0 ret = "*** 标准编码 ***" + 0h0D0A FOR i=1 TO 0xFF ret = ret + RIGHT(BINTOC(qwm+i,"4s"),4) IF i%10==0 ret = ret + 0h0D0A ENDIF IF i==94 ret = ret + 0h0D0A0D0A + "*** 非标准编码 ***" + 0h0D0A ENDIF ENDFOR RETURN ret ENDFUNC