你可以 复制到word里 Ctrl＋F查找和替换 点替换 高级 可以去掉
过滤掉\n\r就可以了
str =replace(str,chr(13),"碰判手")str =replace(str,"冲歼","")f.writeline str
