由网友(仅此、而已)分享简介：我遍历输入文件，并使用readline的命令来读取每一行，检​​查它的不同的标准，那么我想使基于结果的变化。这是一个非常简单的版本，我想要做的：I'm looping through an input file and using the readline command to read each line, che...

我遍历输入文件，并使用readline的命令来读取每一行，检​​查它的不同的标准，那么我想使基于结果的变化。这是一个非常简单的版本，我想要做的：

I'm looping through an input file and using the readline command to read each line, check it for various criteria, then I want to make changes based on the result. Here is a very simple version of what I'm trying to do:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileLoc, 1)

Do While Not objFile.AtEndOfStream
     strLineRead = objFile.readline
     if strLineRead Like "*text to change*" Then
          'Some code to change the line
     end if
Loop

我一直在做的是保存整个文件名为strFileText字符串，然后用替换函数的字符串改变的版本中更换strLineRead。事情是这样的：

What I've been doing is saving the entire file to a string called strFileText, and then using a Replace function to replace the strLineRead within that string with the changed version. Something like this:

strFileText = Replace(strFileText, strLineRead, strNewLine)

，然后写整个字符串到一个新的文本文件。

and then write that entire string to a new text file.

现在的问题是，有时候我可能有一条线在那里的全部文本为NC，然后做一个查找/替换为NC整个文件上的变化不仅仅是一行。

The problem is, sometimes I might have a line where it's entire text is "NC", and then doing a find/replace on the entire file for "NC" changes more than just the one line.

那么，有没有在FileSystemObject的一个命令，而在一定的线，可以直接修改该文件？我想有点像的WriteLine命令。

So is there a command in the FileSystemObject, while on a certain line, to be able to alter the file directly? I'm thinking something like a "writeline" command.

推荐答案

有这些私人潜艇放在你的文件和一个事件，给他们打电话。第一次调用REPLACE_TEXT并要求填充它。见我的示例code。

Have these private subs somewhere in your file and on an event, call them. First call replace_text and fill it with the requirements. See my sample code.

    Private Sub Command3_Click()

    Dim sFileName As String
    Dim fileSys As Variant

    ' Edit as needed
    sFileName = Me.FileList.Value

    Set fileSys = CreateObject("Scripting.FileSystemObject")

    Replace_Text sFileName, "bad text", "good text", fileSys
    End Sub
    Private Sub Replace_Text(targetFile As String, targetText As String, replaceText As String, fileSys As Variant)
    If Right(targetFile, 3) = "filepath extension you want (example: xml or doc etc.)" Then
        Update_File targetFile, targetText, replaceText, fileSys
    Else
        MsgBox "You did not select the right file. Please try again."
    End If
    End Sub
    Private Sub Update_File(fileToUpdate As String, targetText As String, replaceText As String, fileSys As Variant)

    Dim tempName As String
    Dim tempFile As Variant
    Dim file As Variant
    Dim currentLine As String
    Dim newLine As String


        'creates a temp file and outputs the original files contents but with the replacements
        tempName = fileToUpdate & ".tmp"
        Set tempFile = fileSys.CreateTextFile(tempName, True)

        'open the original file and for each line replace any matching text
        Set file = fileSys.OpenTextFile(fileToUpdate)
        Do Until file.AtEndOfStream
            currentLine = file.ReadLine
            newLine = Replace(currentLine, targetText, replaceText)
            'write to the new line containing replacements to the temp file
            tempFile.WriteLine newLine
        Loop
        file.Close

        tempFile.Close

        'delete the original file and replace with the temporary file
        fileSys.DeleteFile fileToUpdate, True
        fileSys.MoveFile tempName, fileToUpdate
    End Sub