社区 › VB › 增加支持路径，欢迎批评

zhaoguo 发表于 2003-9-5 20:58:00

增加支持路径，欢迎批评

mccad 发表于 2003-9-5 21:03:00

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

efan2000 发表于 2003-9-5 21:04:00

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

mccad 发表于 2003-9-5 21:22:00

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

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

myfreemind 发表于 2003-9-5 23:39:00

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

查看完整版本: 增加支持路径，欢迎批评