pb波浪线是一个特殊字符，为了避免提取数据时波浪线引起异常，在保存数据时将波浪线去掉，去掉方法是定位输入的内容中是否包含波浪线如下：
将波浪线替换成空
li_pos = pos(str,"~~")
DO WHILE li_pos > 0 str= Replace(str,li_pos ,2,"") li_pos = pos(str,"~~") LOOP
