VB.Net 搜索文本并替换为文件内容

Question

这是对我发布的帖子的后续问题。 Append one file into another file

我需要在主文档中搜索实体"&CH1.sgm" 到"&CH33.sgm"， 标记它们在主文档中的位置，并将实体调用替换为“fnFiles”中的匹配文件"Chapter1.sgm"。如果有帮助，我可以将文件名和实体更改为任何内容。

我的代码复制文件的文本并将其附加到 master_document.sgm 的底部。但现在我需要它更智能。在主文档中搜索实体标记，然后将该实体标记替换为该文件内容匹配。文件编号和实体编号匹配。例如（&CH1; 和 Bld1_Ch1.sgm）

Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    Dim searchDir As String = txtSGMFile.Text 'Input field from form
    Dim masterFile = "Bld1_Master_Document.sgm"
    Dim existingFileMaster = Path.Combine(searchDir, masterFile)

    'Read all lines of the Master Document
    Dim strMasterDoc = File.ReadAllText(existingFileMaster) '// add each line as String Array.

    '?search strMasterDoc for entities &Ch1.sgm
    '?replace entity name "&Ch1.sgm" with content of file "Bld1_Ch1.sgm" this content if found below
    '? do I use a book mark? Replace function?


    'Get all the sgm files in the directory specified
    Dim fndFiles = Directory.GetFiles(searchDir, "*.sgm")
    'Set up the regular expression you will make as the condition for the file
    Dim rx = New Regex(".*_Ch\d\.sgm")
    Dim ch1 = New Regex(".*_Ch[1]\.sgm")
    'Use path.combine for concatenatin directory together

    'Loop through each file found by the REGEX
    For Each fileNo In fndFiles
        If rx.IsMatch(fileNo) Then
            If ch1.IsMatch(fileNo) Then
                Dim result = Path.GetFileName(fileNo)
                'Use path.combine for concatenatin directory together
                Dim fileToCopy = Path.Combine(searchDir, result)

                'This is the file we want to copy into MasterBuild but at specific location.
                'match &ch1.sgm inside strMasterDoc

                Dim fileContent = File.ReadAllText(fileToCopy)

                'Search master file for entity match then append all content of fileContent


                File.AppendAllText(existingFileMaster, fileContent)

                MessageBox.Show("File Copied")
            End If
        End If
    Next
    Close()
End Sub

Answer 1

如果我理解正确（大如果），您想将主文件中的缩写章节名称的文本替换为它在找到缩写的位置引用的文件的内容。

我做了一个类来处理细节。

Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    'Add a FolderBrowseDialog to your form designer
    FolderBrowserDialog1.ShowDialog()
    Dim searchDir As String = FolderBrowserDialog1.SelectedPath
    Dim existingFileMaster = Path.Combine(searchDir, "Bld1_Master_Document.sgm")
    Dim lstFileChanges = CreateList(searchDir)
    'The following method does NOT return an array of lines
    Dim strMasterDoc = File.ReadAllText(existingFileMaster)
    For Each fc In lstFileChanges
        strMasterDoc = strMasterDoc.Replace(fc.OldString, fc.NewString)
    Next
    File.WriteAllText(existingFileMaster, strMasterDoc)
End Sub

Private Function CreateList(selectedPath As String) As List(Of FileChanges)
    Dim lstFC As New List(Of FileChanges)
    For i = 1 To lstFC.Count
        Dim fc As New FileChanges
        fc.OldString = $"&CH{i}.sgm"
        fc.FileName = $"Chapter{i}.sgm"
        fc.NewString = File.ReadAllText(Path.Combine(selectedPath, fc.FileName))
        lstFC.Add(fc)
    Next
    Return lstFC
End Function

Public Class FileChanges
    Public Property OldString As String '&CH1.sgm 
    Public Property FileName As String 'Chapter1.sgm
    Public Property NewString As String 'Contents of Chapter1.sgm, the string to insert
End Class

测试.替换

Dim s As String = "The quick brown fox jumped over the lazy dogs."
s = s.Replace("fox", "foxes")
MessageBox.Show(s)