我想把字符串"I:\Pictures\temp\初中2005届"中的最后一项"初中2005届"提取出来

[swnuwangyun]

我想把字符串"I:\Pictures\temp\初中2005届"中的最后一项提取出来,请问高手改如何做呀

[changechange]

dim a as string
a=replace("I:\Pictures\temp\初中2005届","I:\Pictures\temp\","")

[liuyann]

如果名字长度一定则可直接取
mid("I:\Pictures\temp\初中2005届",20,4)

如果不定长则要instr先找出"届"字再取出前4个字符


Mid 函数


返回 Variant (String)，其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数：

部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。


说明

欲知 string 的字符数，可用 Len 函数。

注意 MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

InStr 函数


返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1, string2[, compare])

InStr 函数的语法具有下面的参数：

部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。


设置

compare 参数设置为：

常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。


返回值

如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0


说明

InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。

[danielrh]

应当使用Split(strA,"/")赋给一个数组B，然后使用ubound(B)取出最后一个元素，必要时使用instr函数