Найти и заменить кавычки в текстовом файле - PullRequest
Новая
       7

Найти и заменить кавычки в текстовом файле

0 голосов
/ 10 марта 2020

У меня есть база данных Access, которая извлекает информацию из разных источников и заполняет файл .TXT, который затем импортируется в другое приложение.

Моя проблема в том, что в моем файле .TXT есть кавычки, и мне нужно просто найти все это и заменить их ничем, используя VBA.

У меня есть следующий код для открытия файла и поиска и замены. 


Dim objFSO
Const ForReading = 1
Const ForWriting = 2
Dim objTS 'define a TextStream object
Dim strContents As String
Dim fileSpec As String

fileSpec = Forms![frm_MAIN_MENU]![txt_MAIN_ORDER_LOCATION].Value

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(fileSpec, ForReading)
strContents = objTS.ReadAll
strContents = Replace(strContents, "", "")
objTS.Close

Set objTS = objFSO.OpenTextFile(fileSpec, ForWriting)
objTS.Write strContents
objTS.Close
    End Sub

Однако кавычки в кавычках вызывают у меня головную боль.

1 Ответ

3 голосов
/ 10 марта 2020

Попробуйте заменить 

strContents = Replace(strContents, "", "")

на 

strContents = Replace(strContents, """", "")
...