string - 替换字符串两个不同的部分

Question

我正在从一系列文件名中提取一列数据。我所有的文件名都是以下形式的字符串：

Temporary PSD Report 'Month' 2011.xls

我Replace用来从每个月中提取月份，目前我分两个阶段进行操作，但似乎有点笨拙。AND有没有办法在同一个字符串中使用某种类型的多个替换？

    Dim strfilename As String
    Dim mnth As String
    Dim mnthshrt As String

    mnth = Replace(strfilename, "Temporary PSD Report ", "")
    mnthshrt = Replace(mnth, " 2011.xls", "")

我尝试使用&并AND引用要删除的两个部分，但它对原始字符串没有影响或产生错误。

Answer 1

您还可以在每个空格字符处拆分字符串并取第 4 个单词（索引从 0 开始）：

s = "Temporary PSD Report 'Month' 2011.xls"
mth = Split(s, " ")(3)