Question

我有一个带有文本框“姓氏”，“名字”，“日期”的用户窗体。我也有一个带有C：\ FileLoc \ Doe，John 060919.pdf的PDF表单（日期写为MMDDYY。）应该将两者进行比较。

我已经搜索过，但至今找不到任何有帮助的东西。

我希望将文本框中的拼写与文件名进行比较，并提供某种错误通知。

例如，如果在用户窗体“姓氏”文本框中编写了“ Doo”，我想将其与“ Doe”进行比较，并弹出错误消息。（与“名字”和“日期”相同...但是日期将输入为6/9/19并与060919进行比较。）

编辑：

我相信我已经解决了。请让我知道是否有更好的方法。

首先，我找到并加载了文件名（我只能找到一个使用循环的示例，尽管我不需要将其循环，也无法找到/弄清楚如何只提取一个文件名文件名）

    Private Sub cmdGetFilename_Click()

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Reports")
i = 1
For Each objFile In objFolder.Files
[EW2] = objFile.Name
Next objFile
End Sub

接下来，它将文本框中的内容与包含文件名的单元格中的预期内容进行比较。（我将其调整为需要拼写比较的每个文本框）

    Private Sub txtLast_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim LastSpace As String
Dim LastComm As String

LastSpace = txtLast.Value + " "
LsatComm = txtLast.Value + ","

If InStr(1, [EW2].Value, LastSpace) > 0 Then
ElseIf InStr(1, [EW2].Value, LsatComm) > 0 Then
Else
MsgBox "Bad Spelling"
Cancel = True
txtLast.SetFocus
End If
End Sub

如何比较用户名文本框和文件名？

0 个答案: