PB删除字符串中的空格
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