select fl1,iif(empty(myhz(fl1)),space(50),myhz(fl1)) from tempa
FUNCTION MyHZ
PARAMETERS pcZd
lcString=''
FOR I=1 TO LEN(ALLTRIM(pcZd))
IF ISLEADBYTE(SUBSTR(ALLTRIM(pcZd),I,1))
lcString=lcString+SUBSTR(ALLTRIM(pcZd),I,2)
I=I+1
ENDIF
ENDFOR
RETURN lcString
ENDFUNC
假设表为TT,字段为BH
SELECT *,rr1(bh) FROM tt
FUNCTION rr1
PARAMETERS rr
gg=""
df = Len(Trim(RR))
rr2=rr
For i = 1 To df
If (Asc(subs(rr, i, 2)) < 0 Or Asc(subs(rr, i, 2)) > 255) Then
hb1 = subs(rr, 1, 2)
gg = gg + subs(rr, i, 1)
EndIf
NEXT
RETURN gg
ENDFUNC