删除字符串中的空格

 

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