增加支持路径，欢迎批评

zhaoguo

mccad

StoDim函数为何不直接使用VB的split函数

efan2000

在ACAD2002中，可以直接使用Split来分隔字符。

1. 
   
2. Split函数
   
3.       
   
4. 
   
5. 描述
   
6. 
   
7. 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
   
8. 
   
9. 语法
   
10. 
    
11. Split(expression[, delimiter[, limit[, compare]]])
    
12. 
    
13. Split函数语法有如下命名参数：
    
14. 
    
15. 部分 描述
    
16. expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
    
17. delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
    
18. limit 可选的。要返回的子字符串数，–1表示返回所有的子字符串。
    
19. compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。
    
20. 
    
21. 
    
22. 
    
23. 设置值
    
24. 
    
25. compare参数的设置值如下：
    
26. 
    
27. 常数 值 描述
    
28. vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。
    
29. vbBinaryCompare 0 执行二进制比较。
    
30. vbTextCompare 1 执行文字比较。
    
31. vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
    

复制代码

zhaoguo

mccad

实用函数栏目也有一个适用于VB5的Split自定义函数：

2. Public Function Split(Str As String, Delim As String) As Variant
   
3. 
   
4.      Dim tokens() As String, pos As Long, i As Integer
   
5. 
   
6.     pos = InStr(1, Str, Delim, vbTextCompare)
   
7.     i = 0
   
8. 
   
9.     Do While pos > 0
   
10.       ReDim Preserve tokens(0 To i)
    
11.       tokens(i) = Mid$(Str, 1, pos - 1)
    
12.       If tokens(i) = Delim Then tokens(i) = ""
    
13.       Str = Mid$(Str, pos + Len(Delim))
    
14.       i = i + 1
    
15.       pos = InStr(1, Str, Delim, vbTextCompare)
    
16.     Loop
    
17. 
    
18.     If Len(Str) > 0 Then
    
19.       ReDim Preserve tokens(0 To i)
    
20.       tokens(i) = Str
    
21.     End If
    
22. 
    
23.     Split = tokens
    
24. 
    
25. End Function
    

Public Function Split(Str As String, Delim As String) As Variant<br /> <br />      Dim tokens() As String, pos As Long, i As Integer<br /> <br />     pos = InStr(1, Str, Delim, vbTextCompare)<br />     i = 0<br /> <br />     Do While pos > 0<br />       ReDim Preserve tokens(0 To i)<br />       tokens(i) = Mid$(Str, 1, pos - 1)<br />       If tokens(i) = Delim Then tokens(i) = ""<br />       Str = Mid$(Str, pos + Len(Delim))<br />       i = i + 1<br />       pos = InStr(1, Str, Delim, vbTextCompare)<br />     Loop<br /> <br />     If Len(Str) > 0 Then<br />       ReDim Preserve tokens(0 To i)<br />       tokens(i) = Str<br />     End If<br /> <br />     Split = tokens<br /> <br /> End Function <br />

zhaoguo

myfreemind

是啊,SPLIT函数很方便的!用于多文件选择的时候特别好用!

zhaoguo