在文本文件中查找和替换引号

Question

我有一个 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

但是，引号里面的引号让我很头疼。

Answer 1

尝试替换

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

和

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

在文本文件中查找和替换引号

Find and replace quotation marks in a text file

ms-access

vba

replace

find-replace