如何删除一字符串中的不可显示字符

Question

如何判断一个字符串中是否存在控制字符,并将这些控制字符从字符串中删除?

Answer 1

Option Explicit
    Dim sj As String
    Dim i As IntegerPrivate Sub Command1_Click()
    Dim sj1 As String
    For i = 1 To Len(sj)
        If Asc(Mid(sj, i, 1)) <= 32 Or Asc(Mid(sj, i, 1)) = 128 Then
            sj1 = sj1
        Else
            sj1 = sj1 & Mid(sj, i, 1)
        End If
    Next
    Text2 = sj1
End SubPrivate Sub Form_Load()
    For i = 1 To 127
        sj = sj & Chr(i)
    Next
    Text1 = sj
End Sub

Answer 2

'用Split过滤:dim str as string,S as string,S1 as string
'dim Arr() as string
dim i as integer
str="sdfgs sdfgsfg  efg df gaf gef ge fgeg "
'Arr=split(str," ")
for i=0 to lend(str)'ubound(Arr)
    S1=mid(str,i+1 1)     
    if S1<>"" then S=S & S1'Arr(i)
next
debug.print S'S即为删除了控制字符后的字符串