VBA 未定义的字符串结构答案

【问题标题】：VBA undefined string structureVBA 未定义的字符串结构
【发布时间】：2018-06-06 04:44:36
【问题描述】：

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

我的代码是控制 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 分钟后停止了它。

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

【问题讨论】：

总是有助于发布您现有的代码...
我知道，对不起，我认为我解释它的方式就足够了，因为问题不是基于太多编码，而是缺乏对 VBA 函数的了解，因为导入是唯一有效的失踪是一种找到你不知道全名的东西的方法。
在我们不知道代码的结构时，调整一行现有代码比尝试提出建议要容易得多。发布您的代码还可以让这里的人们了解他们应该在什么级别上做出回应。

标签： string vba delimiter

【解决方案1】：

AFAIK 您可以在 VBA 中使用两种方法来迭代文件：

Dir 函数，或
FileSystemObject object 和Scripting Runtime library 中的File object。¹

如果您使用的是 FileSystemObject，那么您将遍历每个文件并验证文件名，使用以下任一方法\ng：

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

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

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

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

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

^{1.仅在 Windows 上，因为 Macintosh 上的 Office 不支持使用 ActiveX/COM 自动化。

2. 仅在 Windows 上。在 Macintosh 上，? 和 * 是有效的文件名字符，因此不能用于通配符。}

【讨论】：

啊，好吧，所以我可以使用“*”并定义2个等于*的假变量，然后搜索fake_fake_Y_Z.txt？哪里假= *
@Grahagblah 我猜你可以搜索字符串表达式"*_" + Y + "_" + Z + ".txt"，其中Y 和Z 包含来自表单字段的值。但是没有看到一些代码，很难确定。
我会试试这个，看看它是否有效。感谢您的帮助，并对问题的性质表示抱歉。
只是解释@Zev 的评论：您可以编译搜索模式并测试Windows Explorer 是否仅列出所需的文件。一旦你有了正确的格式，你就可以继续编程了。我更喜欢 Dir 到 FileSystemObject 和 RegEx （因为它们更复杂），请参见此处的示例：stackoverflow.com/questions/50275517/…
@AcsErno 可以按照您的建议进行操作，但我评论的意思只是这种字符串格式可以与 VBA 的 Like 运算符一起使用，也可以传递给 Dir 函数.

【解决方案2】：

看起来您可以使用正则表达式。只需谷歌 RegEx VBA 并熟悉这个概念。有了它，您可以为任何常规模式创建查找查询。

在这里你可以看到StackOverflow的一些例子

【讨论】：