我正尝试在我的代码中编写一个函数,它允许我根据文件的名称搜索特定的文件。函数正常工作,但现在名称的结构发生了变化,这给我带来了麻烦。
我的代码是控制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分钟后停止了它。
所以我猜我不能用"*“来解释文件名中的未知部分,但我现在有点迷路了。
https://stackoverflow.com/questions/50712394
复制相似问题