删除字符串中的空格

 

string  ls_string,ls_string_before,ls_string_after
integer li_tab,li_blank,li_blank_dbcs

ls_string  =  trim(sle_1.text)

// PB在处理TAB字符不分全角和半角,只用POS就可以,不用POSW
li_tab  =  Pos(ls_string,  " ~t " )
DO WHILE li_tab  >   0
 ls_string_before  =  Mid(ls_string, 1 ,li_tab  -   1 )
 ls_string_after  =  Mid(ls_string,li_tab  +   1 )
 ls_string  =  ls_string_before  +  ls_string_after
 SetNull(li_tab)
 li_tab  =  Pos(ls_string,  " ~t " )
LOOP
// 删除半角空格
li_blank  =  pos(ls_string , '   ' )
DO WHILE li_blank  >   0
 ls_string_before  =  Mid(ls_string, 1 ,li_blank  -   1 )
 ls_string_after  =  Mid(ls_string,li_blank  +   1 )
 ls_string  =  ls_string_before  +  ls_string_after
 SetNull(li_blank)
 li_blank  =  pos(ls_string , '   ' )
LOOP
// 删除全角空格
li_blank_dbcs  =  PosW(ls_string, ' 　 ' )
DO WHILE li_blank_dbcs  >   0
 ls_string_before  =  MidW(ls_string, 1 ,li_blank_dbcs  -   1 )
 ls_string_after  =  MidW(ls_string,li_blank_dbcs  +   1 )
 ls_string  =  ls_string_before  +  ls_string_after
 SetNull(li_blank_dbcs)
 li_blank_dbcs  =  PosW(ls_string, ' 　 ' )
LOOP