关于txt中的符号和字母的去除

来源：百度知道 编辑：UC知道 时间：2024/07/02 01:01:25
今天从论坛复制了一篇文章下来，却发现上面除了文字以外还有很多这样[~aRA'qJ{V的东西
想用vb将txt中的这些字母和符号去除．但是折腾了半天也不行．
怎么从txt里将文字提取出来但是却不提取那些字母和符号哪？

我想要完整的编程，并且告诉我每一步的意义．
谢谢．．．

Private Sub Command1_Click()
Dim a,b,c,i
b=Text1.Text
For i=1 To len(text1.Text) '如果文本〉65535字（英汉均可）则在VB6中会出错，VB2005没事。
a=Asc(left(b,1)) '将文字转换为ASCII码。
If a<0 Then c=c & left(b,1) '如果a〉0则说明不是汉字，也不是全角字符。
If a=13 Then c=c & left(b,1) '如果a=13，则说明是回车
b=Right(b,len(b)-1)
Next
Text2.Text=c
End sub

窗体上Text1为待转文本，Text2为转后文本。