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
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