时间戳

首页 > 解决方案 > VBA 未定义的字符串结构

string - VBA 未定义的字符串结构

问题描述

我正在尝试在我的代码中编写一个函数，该函数允许我根据其名称搜索特定文件。该功能正在运行，但现在名称的结构发生了变化，这给我带来了麻烦。

我的代码采用控制 word 文档的宏的形式。该文档从另一个程序中获取信息，并将其放入 Word 文档的表单域中。然后，我的代码获取表单域的“值”，并使用它们在特定文件夹中搜索 .txt，其名称与表单域中存储的值相匹配。

现在 .txt 的名称已更改，名称将包含一些我无法通过 word 文档访问的额外信息。

示例：W_X_Y_Z.txt 其中 Y 和 Z 在文档的表单域中可用并且可以访问，但我不知道 W 和 X。

需要解决：所以我需要做的是找出一种方法来忽略 W 和 X 并仅基于 Y 和 Z 进行搜索。

想法：我的一个想法是搜索具有诸如 ??_??_Y_Z.txt 之类的结构的文件，但我不确定这将如何像“??”那样工作。包含数字（如果它在字符串中并且执行“??”）意味着只有 2 个未知字符或任何数量？如果只有两个有没有办法定义一个未知的字符串，其中的字符都是未知的，并且字符的数量是未知的？

第二个想法是在上使用分隔符_并以某种方式弄清楚我如何告诉宏如何忽略第二个之后的所有内容_。

欢迎我提出任何想法或建议的调查。

谢谢你。

我现在将尝试添加一些代码，但请记住，我继承了本文档中的很多代码，因此我不知道每个细节的确切含义，这就是我避免输入代码的原因。

截至目前的代码：

ActiveDocument.FormFields("Remissnummer").Select
Remiss = Selection.Text
Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.FormFields("Personid").Select
strTmpPersonnr = Selection.Text
intNumCharsPersNr = Len(strTmpPersonnr)
Selection.Collapse Direction:=wdCollapseStart

strFileName = strTmpPersonnr
p_strFileReportPath = "G:\HMC\Fysiologiska kliniken\Eko\Export\"
strImportFile = p_strFileReportPath & "*" & strFileName & "_" & Remiss & strFileExt

If Len(Dir$(strImportFile)) = 0 Then
MsgBox "Error"
Else
'starts importing values from the file

当文件名具有已知结构时，此方法有效，即只有 Y_Z.txt 现在虽然结构已经改变，正如我上面解释的那样，两个新变量是未知的，可以是从字母到数字的任何东西。

我试过：

Ignore = "*"

strImportFile = p_strFileReportPath & Ignore & "_" & Ignore & "_" & strFileName & "_" & Remiss & strFileExt

但它只是冻结了，当你进入任务管理器时，你会看到越来越多的内存被分配给 word……我在 10 分钟后停止了它。

所以我猜我不能用“*”来解释文件名的未知部分，但我现在有点迷路了。

标签： stringvbadelimiter

解决方案

AFAIK 有两种方法可以在 VBA 中使用来遍历文件：

如果您使用的是FileSystemObject，则使用以下任何方法遍历每个文件并验证文件名：

  • VBA 字符串函数，例如Instr和Left
  • VBA Like运算符，与模式匹配字符串进行比较
  • 常用表达

如果你使用Dir （每次调用Dir不带参数获取下一个文件名），那么除了前面的方法，你可以将文件名模式传递给函数2，它只会返回匹配模式的结果。

无论您使用Like运算符还是将模式传递给Dir函数，?模式中都匹配任何单个字符，而*匹配任意数量的字符：

  • "ab?d"匹配"abcd", "abgd"，但不匹配"abcgd"
  • "ab*d"匹配"abcd", "abgd", 和"abcgd"

有关在 VBA 中使用正则表达式的更多信息，请参见此处。

1. 仅在 Windows 上，因为 Macintosh 上的 Office 不支持使用 ActiveX / COM 自动化。
2. 仅在 Windows 上。在 Macintosh 上，?和*是有效的文件名字符，因此不能用于通配符。

推荐阅读