Intereting Posts
Ubuntu: как установить flex для создания postgres? Не удается получить доступ к http: // localhost: 80 на сервере apache Является ли эпоха установившегося момента относительно времени начала операционной системы? или самому процессу? Ошибка при использовании oracle.dataaccess.dll Как идентифицировать процессы хранения фонового хранилища Windows 10, которые имеют не отображаемые windows, программно видимые и минимизируемые? Как работает sig_atomic_t? Найти количество файлов в каталоге Два или более проектов Django в одной капле с помощью субдомена Почему этот код не работает равномерно в браузерах? Лучший способ получить информацию о базе данных в программе (windows и mac) Вставьте запись в HKCU для каждой учетной записи пользователя на ПК Композитор игнорирует $ COMPOSER_HOME Пакетный скрипт Windows для распаковки файлов в каталоге Как определить функцию в одном модуле ядра Linux и использовать ее в другом? «Import babel.dates» получает разрешение на отказ

Как удалить строку из файла .ini с помощью скрипта VBS

Я пытаюсь написать VBS Script для удаления строки из .ini-файла. Однако, когда я запускаю его, новый файл (а также резервная копия) создается и переименовывается, но строка, которую я хочу удалить, все еще существует? Как я могу это исправить?

Вот мой код:

Const ForReading = 1 Const ForWriting = 2 Const OpenAsASCII = 0 Const CreateIfNotExist = True Set objFSO = CreateObject("Scripting.FileSystemObject") Const OverwriteExisting = True 'Making a backup of the file objFSO.CopyFile "C:\notes.ini" , "C:\notesBACKUP.ini" 'Setting input of file strInput = "C:\notes.ini" Set objInput = objFSO.OpenTextFile(strInput, ForReading) 'Setting temp output for new file with omitted line strOutput = "C:\notes2.ini" Set objOutput = objFSO.OpenTextFile(strOutput, _ ForWriting, CreateIfNotExist, OpenAsASCII) Do Until objInput.AtEndOfStream strLine = objInput.ReadLine 'Line with EXTMGR to be replaced when copying to new file If (InStr(LCase(strLine), "EXTMGR") > 0) Then 'New line replacing old one strLine = "#Deleted" End If objOutput.WriteLine strLine Loop objInput.Close objOutput.Close 'Deleting the original file objFSO.DeleteFile(strInput) 'Renaming the new file (with line removed) to the original filename objFSO.MoveFile "C:\notes2.ini" , "C:\notes.ini" 

Вы выполняете преобразование LCASE строки, а затем ищете строку во ВСЕХ CAPS.

Изменить код на:
If (InStr(strLine, "EXTMGR_ADDINS") > 0)