.版本 2
.子程序 取字体, 文本型, , 取出第一个中文字体名称
.局部变量 字体名, 字节集, , "0"
.局部变量 i, 整数型
字体_枚举W (字体名)
.计次循环首 (取数组成员数 (字体名), i)
PG_系统_日志 (“找到字体:” + 编码_Unicode到Ansi (字体名 ) + “ ” + 字节集_字节集转文本 (字体名 ))
.' 如果真 (取字节集中间 (字体名 , 2, 1) ≠ { 0 })
' 调试输出 (编码_Unicode到Ansi (字体名 ), 字体名 )
' 返回 (编码_Unicode到Ansi (字体名 ))
.如果真结束
.计次循环尾 ()
返回 (“”)
下面是日志文件中的结果,都是错误的。
找到字体: {}
找到字体:? {144,1,0,0}
找到字体: {}
找到字体:s Serif {115,0,32,0,83,0,101,0,114,0,105,0,102,0,0,0}
找到字体:l Fonts {108,0,32,0,70,0,111,0,110,0,116,0,115,0,0,0}
找到字体:ial {105,0,97,0,108,0,0,0}
找到字体:Batang {66,0,97,0,116,0,97,0,110,0,103,0,0,0}
找到字体:??@Batang {3,2,1,18,64,0,66,0,97,0,116,0,97,0,110,0,103,0,0,0}
找到字体: {}
找到字体:? {144,1,0,0}
找到字体: {}
找到字体:uh {117,0,104,0,0,0}
找到字体:suhChe {115,0,117,0,104,0,67,0,104,0,101,0,0,0}
找到字体:ungsuhChe {117,0,110,0,103,0,115,0,117,0,104,0,67,0,104,0,101,0,0,0}
找到字体:Courier New {67,0,111,0,117,0,114,0,105,0,101,0,114,0,32,0,78,0,101,0,119,0,0,0}
找到字体:??DaunPenh {3,2,1,2,68,0,97,0,117,0,110,0,80,0,101,0,110,0,104,0,0,0}
找到字体: {}
找到字体:? {144,1,0,0}
找到字体: {}
找到字体:i {105,0,0,0}
找到字体: {}
找到字体:lim {108,0,105,0,109,0,0,0}
找到字体:@gulim {64,0,71,0,117,0,108,0,105,0,109,0,0,0}
找到字体:??GulimChe {3,2,1,49,71,0,117,0,108,0,105,0,109,0,67,0,104,0,101,0,0,0}
|