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)

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

1 个答案: