Question

我必须使用Word VBA更改ini文件中的部分。

我知道如何更改键的值，但任何人都可以告诉我如何更改某个部分的值（第一部分=唯一部分）？在下面的示例中，我喜欢在NewName中更改OldName。

[办公室]
OFFICE1 = OLDNAME

[OLDNAME]
键1 =值
键2 =值等

谢谢，
KEM

Answer 1

您可以使用此代码替换任何文本文件中的文本

Public Sub Test()

    ReplaceInTXT "C:\folder\file.ini", "[OldName]", "[NewName]"

End Sub

Public Sub ReplaceInTXT(sFileName As String, sFind As String, sReplace As String)

    Dim Content As String
    Dim hFile As Long

    hFile = FreeFile
    Open sFileName For Input As #hFile
    Content = Input$(LOF(hFile), hFile)
    Close #hFile

    Content = Replace(Content, sFind, sReplace)

    Open sFileName For Output As #1
    Print #1, Content
    Close #1

End Sub

请务必先备份。我不想弄乱文件

如何使用Word VBA更改INI文件中的节文本

1 个答案: