汉字转拼音

---

• change by xuhu 2021.03.15

---

SET CENTURY ON

SET DEFAULT TO

CLOSE all
Clear
USE ptype

• 商品名称
  DO while .not.eof()
  REPLACE fullname WITH strtran(ALLTRIM(fullname),"（","(")
  REPLACE fullname WITH strtran(ALLTRIM(fullname),"）",")")
  REPLACE usercode with upper(MYhzsx(fullname))
  Skip
  ENDDO

USE BTYPE

• 往来单位
  DO WHILE .NOT. EOF()
  REPLACE usercode WITH upper(MYhzsx(fullname))
  *REPLACE usercode WITH upper(namepy)
  Skip
  ENDDO
  SELECT BTYPE.name, BTYPE.fullname, BTYPE.level, BTYPE.sonnum,;
  BTYPE.usercode;
  FROM BTYPE;
• WHERE (BTYPE.LEVEL > 1);
  ORDER BY BTYPE.usercode

SELECT * FROM ptype;
*WHERE (ptype.LEVEL > 1);
ORDER BY ptype.usercode
USE
CLOSE all
CLOSE DATABASE

*CLOSE DATABASES ALL
CLOSE DATABASES ALL

---

*过程名称:hzpy
*过程功能:汉字转拼音首字
*调用方法:?hzpy(‘汉字拼音’) 结果:HZPY
******************************************************PROCEDURE hzpy

---

*过程名称:hzpy
*过程功能:汉字转拼音首字
*调用方法:?hzpy(‘汉字拼音’) 结果:HZPY
******************************************************PROCEDURE hzpy
! PARAMETER MYhzsx(HZstr)
! LOCAL PYstr,i,j,C,hz

function MYhzsx(HZstr)
LOCAL PYstr,i,j,C,hz
PYstr=’’
IF TYPE(“PYCode”)=“U”
PUBLIC PBSTR

• PYCode=“吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗”
• PYCode=“吖八差咑妸发旮铪讥讥咔垃妈拿讴趴七呥仨他哇哇哇夕丫匝咗”
  PYCode=“吖八擦咑屙发旮铪讥讥咔垃妈拿讴趴七呥仨他哇哇哇夕丫匝咗”
  ENDIF
  FOR i=1 to len(HZstr)
  IF ASC(SUBSTR(HZstr,i,1))>160
  hz=SUBSTR(HZstr,i,2)
  C=‘Z’
  FOR j=1 TO 26
  IF SUBSTRC(hz,1,1)<SUBSTRC(PYCode,j,1)
  C=CHR(95+j)
  EXIT
  ENDIF
  ENDFOR
  if asc(hz) = 45988 &&汉字’长’的发音是CHANG
  C=‘C’
  endif
  PYstr=PYstr+upper©
  i=i+1
  ELSE
  PYstr=PYstr+upper(SUBSTR(HZstr,i,1))
  ENDIF
  ENDFOR
  RETURN PYstr
  ENDPROC