[已解决]分开TreeView控件Node.FullPath

kuatux

请高手帮忙!
怎么样将Node.FullPath分开写入单元格中?
比如:小学\1年级\1班\王为 写成如下:
   a1             b1            c1               d1
小学      1年级     1班       王为
我的Node.FullPath 最多需要4个单元格,最少1个.
不需要列出所有.
谢谢!

[ 本帖最后由 kuatux 于 2009-5-19 23:28 编辑 ]

fdd

split 好像可以吧？

kuatux

哈哈,佩服!
但我太本了,..
    sh1.[a2] = Split(Node.FullPath, "\", 1)
    sh1.[b2] = Split(Node.FullPath, "\", 2)
    sh1.[c2] = Split(Node.FullPath, "\", 3)
    sh1.[d2] = Split(Node.FullPath, "\", 4)
    sh1.[e2] = Split(Node.FullPath, "\", 5)
数字表达式不对.

kuatux

pat = Node.FullPath
    arrSplit = Split(pat, "\")
    sh1.[a2].Resize(1, 5) = arrSplit
这样也不行,麻烦救命!

kuatux

Dim str$
    Dim arr

    str = Node.FullPath
    arr = Split(str, "\")
   
    sh1.[a2] = arr(0)
    sh1.[b2] = arr(1)
    sh1.[c2] = arr(2)
    sh1.[d2] = arr(3)
    sh1.[e2] = arr(4)
能不能简化?

fdd

pat = Node.FullPath
    arrSplit = Split(pat, "\")
    n=ubound(arr)+1
    sh1.[a2].Resize(1, n) = arrSplit

kuatux

非常感谢您的帮助!
喜欢您的头像,好可爱. 还有那一句,哈哈.