vb 问题 ，谁会、

sub deltab(str1 as string ) 'str1是原始文本
dim str2 as string,str3 as string
str2=""
str3=""
for i =1 to strlen(str)
str3=mid(str1,i,1)
if (char(str3)<>9) then 'tab的ascii代码是9
str2=str2 & str3 '这里表示只把布什tab的文字留下来。
end if
next
text1.text=str2 '删改后的文本放在文本框里。
end sub