刚写了一个判断是否是有意义字符串的函数，分享一下

VBProFan

所谓有意义字符串，是指至少包含一个空格、回车、分页……（可以自定义）以外的字符。

原版：

1. Private Function IsEmptyStr(ByVal s As String) As Boolean
   
2.   s = Replace(s, vbCr, "")
   
3.   s = Replace(s, Chr(1), "")
   
4.   s = Replace(s, Chr(12), "")
   
5.   s = Replace(s, Chr(21), "")
   
6.   s = Replace(s, " ", "")
   
7.   IsEmptyStr = s = ""
   
8. End Function
   

复制代码

优点：代码容易想到和编写。
缺点：效率低，修改时麻烦。

改进版：

1. Private Function IsEmptyStr(ByVal s As String) As Boolean
   
2.   Dim i As Long
   
3.   Dim j As Byte
   
4.   Dim u As Byte
   
5.   Dim Ch As String * 1
   
6.   Dim bFound As Boolean
   
7.   Dim vInvalidChar As Variant
   
8.   
   
9.   vInvalidChar = Array(1, 7, 12, 13, 21, 32)
   
10.   u = UBound(vInvalidChar)
    
11.   IsEmptyStr = True
    
12.   
    
13.   For i = 1 To Len(s)
    
14.     bFound = False
    
15.     Ch = Mid$(s, i, 1)
    
16.     For j = 0 To u
    
17.       If Asc(Ch) = vInvalidChar(j) Then
    
18.         bFound = True
    
19.         Exit For
    
20.       End If
    
21.     Next j
    
22.     If Not bFound Then
    
23.       IsEmptyStr = False
    
24.       Exit For
    
25.     End If
    
26.   Next i
    
27. End Function

复制代码

玩了那么多年的编程，对ASCII的不可见字符（32以下的）只了解0（空字符）、8（退格）、10（换行）、13（回车），直到刚才研究了Word VBA，才发现原来其他的控制字符就是用于word这类的富文本格式，例如1（标题开始）、12（换页）。

startbin321

下面的速度也不怎样 最好用strconv(xxx,vbfromunicode)转化成byte 可省去很多不必要的字符串操作

VBProFan

startbin321 发表于 2015-3-18 17:51
下面的速度也不怎样 最好用strconv(xxx,vbfromunicode)转化成byte 可省去很多不必要的字符串操作

转换也需要时间啊，不过最影响效率的就是 Ch = Mid$(s, i, 1) 这句了

19900603

为什么不直接从strptr直接读内存呢？

as531659770

这个有什么用处吗