您的位置：程序门 -> vb -> vba

截字符串

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

截字符串[已结贴,结贴人:keyi_655]

发表于：2007-01-11 17:50:28 楼主

假如这样一个字符串：str = e:/a/zzz/b/b/b.xls
我要截取从zzz开始一直到最后的部分；
但是str 这个字符串是变化的，其中只有zzz固定，其它的部分均不固定的，我要怎么写呢。

发表于：2007-01-11 17:55:541楼得分:0

补充一下：“其中只有zzz固定”是指str中肯定包含zzz,其它的都不一定包含

发表于：2007-01-11 18:31:122楼得分:0

这样设想一下：
第一，先用函数得到str中zzz的位置，
第二，从zzz的起始开始截取自zzz往后的字符串

发表于：2007-01-12 11:11:233楼得分:0

但是instr（)函数只能得到单个字符的位置，我的这个zzz不是单个字符，有什么可用的函数吗

发表于：2007-01-12 11:52:504楼得分:20

private sub command1_click（)

dim i as long
dim strfind as string
dim strdata as string

strfind = "zzz "
strdata = "e:/a/zzz/b/b/b.xls "

i = instr（1, strdata, strfind, vbtextcompare)

if i > 0 then
debug.print mid（strdata, i + len（strfind))
end if

end sub

private sub command2_click（)

dim v as variant
dim strfind as string
dim strdata as string

strfind = "zzz "
strdata = "e:/a/zzz/b/b/b.xls "

v = split（strdata, strfind)

if ubound（v) = 1 then
debug.print v（1)
end if

end sub

其中，第二种方法要求字符串中只能出现一次分隔字符。

发表于：2007-01-12 11:56:065楼得分:0

好的，谢谢哦

发表于：2007-10-17 11:10:456楼得分:0

留个脚印~~~

下一篇：另存时，如何让文件名为变量？
上一篇：vba中怎么用变量i来定制变量xxi

其他资讯