小编Jig*_*tel的帖子

我试图将 word 文件中的 ascii 字符替换为其受尊重的十六进制值，但问题是只有存在的大写字符被正确的值替换，小写字符被大写实体替换。

我试过这个，

Dim var As String
            Dim char1 As String = "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ " & vbCrLf
            Dim values As Char() = objDoc.Range.Text
            For Each letter As Char In values
                If char1.Contains(letter) Then
                Else
                    var = Convert.ToString(Convert.ToInt32(letter), 16)
                    If var.Length = 1 Then
                        Dim FindObject2 As Word.Find = objDoc.Content.Find
                        With FindObject2
                            .ClearFormatting()
                            .Text = letter
                            .Replacement.ClearFormatting()
                            .Replacement.Text = "&#x000" & StrConv(var, VbStrConv.None) & ";"
                            .Execute(Replace:=Word.WdReplace.wdReplaceAll)
                        End With
                    ElseIf var.Length = 2 Then
                        Dim FindObject2 As Word.Find = objDoc.Content.Find …

我正在尝试在单个路径下的多个目录中搜索扩展名为“ .xml”和“ .pdf”的文件。

但这里的问题是目录由许多子目录组成，我必须读取由单个路径下的“ .xml”和“ .pdf”文件组成的子目录，如果子目录中缺少任何一个文件代码应该能够获得该特定的主目录名称。

请任何人帮我解决这个问题

任何帮助将不胜感激