求助strtobcd函数！！

hhlcjcj

比如str＝“3456889”；将其转换为压缩bcd码！！

hubimaso

1. DWORD StrToBcd(char* pchStr,DWORD dwStrLen,BYTE* pbyBcd,PDWORD pdwBcdLen)
   
2. {
   
3.         DWORD                        i = 0;
   
4.         BYTE*                        pbyNew = 0;
   
5.         DWORD                        dwNewLen = 0;
   
6.         DWORD                        dwRet = 0;
   
7. 
   
8.         if(        pchStr == 0 ||
   
9.                 pdwBcdLen == 0 ||
   
10.                 dwStrLen == 0)
    
11.         {
    
12.                 dwRet = ERROR_INVALID_PARAM;
    
13.                 goto Leave_AscToBcd;
    
14.         }
    
15.        
    
16.         dwNewLen = (dwStrLen>>1) + 1;
    
17.         pbyNew = new BYTE[dwNewLen];
    
18.         if(pbyNew == 0)
    
19.         {
    
20.                 dwRet =  ERROR_NEW_FAILED;
    
21.                 goto Leave_AscToBcd;
    
22.         }
    
23.         memset(pbyNew,0,dwNewLen);
    
24.         dwNewLen = 0;
    
25.         for(i = 0;i < dwStrLen;)
    
26.         {
    
27.                 if(*pchStr == 0x20)
    
28.                 {
    
29.                         i++;
    
30.                         pchStr ++;
    
31.                         continue;
    
32.                 }
    
33. 
    
34.                 if( *pchStr > '9' ||
    
35.                         *pchStr < '0' ||
    
36.                         *(pchStr+1) > '9' ||
    
37.                         *(pchStr+1) < '0')
    
38.                 {
    
39.                         dwRet = ERROR_PARAM_NO_REGULAR;
    
40.                         goto Leave_AscToBcd;
    
41.                 }
    
42.                
    
43.                 pbyNew[dwNewLen++] = (((BYTE)(*pchStr - '0'))<<4) | ((*(pchStr+1) - '0')&0x0F);
    
44.                 i += 2;
    
45.                 pchStr += 2;
    
46.         }
    
47. 
    
48.         if(pbyBcd == 0)
    
49.         {
    
50.                 *pdwBcdLen = dwNewLen;
    
51.                 dwRet = ERROR_OK;
    
52.                 goto Leave_AscToBcd;
    
53.         }
    
54.         if(*pdwBcdLen < dwNewLen)
    
55.         {
    
56.                 dwRet = ERROR_BUFFER_SMALL;
    
57.                 goto Leave_AscToBcd;
    
58.         }
    
59.         memcpy(pbyBcd,pbyNew,dwNewLen);
    
60.         *pdwBcdLen = dwNewLen;
    
61. 
    
62.         dwRet = ERROR_OK;
    
63. Leave_AscToBcd:
    
64.         if(pbyNew != 0)
    
65.         {
    
66.                 delete []pbyNew;
    
67.                 pbyNew = 0;
    
68.         }
    
69.         return dwRet;
    
70. }

复制代码