怎么样在excel中批量把汉字姓名转换为区位码？

2025-03-28 00:48:09

推荐回答（2个）

回答1：

不知道这阿行!~

每年一度的全国普通高等学校招生报名过程中，考生都要填写报名信息卡，全体同学很紧张地查阅自己姓名中每个汉字对应的国际区位码，往往填卡时间都很紧，全班同学都抢一本区位码手册。笔者编写了一个VFP小程序，利用学校的学生信息数据库表G97.DBF，新增加区位码字段(字符型，16位)，运行该程序即刻看到新增加区位码字段已经填好了，再将学号、姓名、区位码三个字段一起打印出来，用起来十分方便。

每个汉字编码方案对应有一个汉字转换程序，把它们转换成统一的机内码(即ASC码)，将接收来的两个字节(国标码)在最高位加“1”，即得到内码。

国际区位码＋2020H=国标码，国标码＋8080H=内码，所以，国际区位码=内码－A0A0H。

每个汉字由两个字节构成，国际区位码的区码可以通过函数substr( )取汉字的前一字节(即前半个汉字)的ASC码减去160(A0H)得到，位码可以通过取汉字的后一字节的ASC码减去160(A0H)得到，如：“重”字区位码为1702，“重”字前后字节的ASC码分别为177和162，区码为 177－160=17，位码为 162－160=2。

程序由两层循环构成，外层循环从G97.DBF文件中逐条取记录，并用replace with替换命令填写“区位码”字段，内层循环逐字求出“姓名”字段的区位码，由if － endif判断语句去除“姓名”字段中的单字节字符。该程序由VFP6.0编制，做适当修改可以变为FoxBASE＋程序。

＊转换区位码程序清单

＊创建并定义单文档窗口wn1，作为信息提示界面

define window win1 from 1,1 to 30,90 font ′楷体′,14;

style ′B′title ′信息窗口′ panel close nofloat grow nominimize zoom color b/gr＋

＊显示自定义窗口wn1

show window win1

＊激活自定义窗口wn1

activate window win1

＊打开数据库...并在窗口wn1中给出提示

if!DBUSED(〃G97〃)

set talk off

@4,4 say〃Now, the G97.DBF is being changed! 〃

@8,5 say〃Changed〃

@8,14 say〃.....〃

USE 〃D:\FOX\G97.DBF〃

＆＆数据库名及位置可自己调整

ENDIF

＊统计当前数据库表中记录总数

n=reccount()

i=1 ＆＆变量i是表记录循环的循环变量

do while i〈=n

@8,22 say i

qwma=〃〃

＆＆记录i的〃姓名〃字段的区位码变量qwma初始化

go i

xm=TRIM(姓名)

＆＆去掉〃姓名〃字段的尾部空格

sL=len(xm) ＆＆计算〃姓名〃字段的长度

j=1

do while j〈=sL

＊连续取单字节子串b1,b2

b1=substr(xm,j,1)

b2=substr(xm,j＋1,1)

＊取子串b1,b2的机内码(即ASC码)

num1=asc(b1)

num2=asc(b2)

＊判断是否为全角字符(汉字)，是则计算出区码qum和位码weim

if (num1〉160) and (num2〉160) and (j〈sL)

qum=num1－160

weim=num2－160

＊将区位码存入变量qwma，对qum〈10(weim〈10)情况

＊数字前添0，如〃8〃变为〃08〃

do case

case(qum〉9) and (weim〉9)

qwma=qwma＋〃〃＋str(qum,2)＋str(weim,2)

case(qum〉9) and (weim〈=9)

qwma=qwma＋〃〃＋str(qum,2)＋〃0〃＋str(weim,1)

case(qum〈=9) and (weim〉9)

qwma=qwma＋〃〃＋〃0〃＋str(qum,1)＋str(weim,2)

case (qum〈=9) and (weim〈=9)

qwma=qwma＋〃〃＋〃0〃＋str(qum,1)＋〃0〃＋str(weim,1)

endcase

j=j＋1 ＆＆字节循环变量增1

endif

j=j＋1 ＆＆字节循环变量增1

enddo

replace 区位码 with qwma

＆＆将该记录〃区位码〃字段替换为区位码qwma

i=i＋1＆＆下一记录

enddo

wait〃按任意键...下一步浏览或修改数据〃 window at 30,10 timeout 15

zoom window win1 max ＆＆使窗口wn1最大化

browse ＆＆查看数据库表

release window win1

use

return

回答2：

=TEXT(INT(CODE(A1)/256-160)*100+MOD(CODE(A1),256)-160,"0000")
打开excel新建一个空白表格。
在a1中输入你要转换的汉字，在b2单元格中输入这个公式。
问题解决给分。

最新问答

珍品紫云烟多少钱一包？

从良凤江去邕宁区蒲津路91号的公交线路

在农村信用社办的卡能在POS机上刷吗？邮政卡能在POS机上刷吗？

浓缩全能硝酸钙是不是给苹果补钙的?

我刚买了一部苹果7手机，到苹果8出来的时候我想用7来以旧换新，值多少钱？

台湾地区的接报警电话号码是什么？

根据上皮的分布和特点阐述上皮组织的结构和功能

我是一名打工的，在工地上上班.在去年上班三个多月.到现在一分钱没拿到.找老板要不到.找劳务也要不到...,

四川省巴中市南江县长赤镇派出所电话

在比例尺是1：20000的地图上，量得甲、乙两地的距离是8厘米，那么甲、乙两地的实际距离是（