使用 VBA 将包含引号的字符串发送到文件

Question

我正在尝试使用 VBA 构建一个 .jet 文件，但是当我尝试追加时，会出现两个可能的问题。它要么包括所有双引号，包括您​​通常在 msgbox 中所做的双引号，要么如果我删除双双引号，则字符串将不起作用，因为引号的第一个实例终止了字符串。下面是我的代码示例（注意，主子中的注释/缩进区域是我尝试过但没有成功的各种可能性：

Sheets("Sheet1").Range("A1").Select
Dim MyStr As String
  'MyStr = "{" & Chr(34) & "myid" & Chr(34) & ":345," & Chr(34) & "content" & Chr(34) & ":["
  'MyStr = "{""myid"":345,""content"":["

  'appendToFile ("{""myid"":345,""content"":[")
  'appendToFile (MyStr)
End Sub


Sub appendToFile(MyStr As String)
Dim fileName As String
 fileName = "MyFile.jet"
Open Application.ActiveWorkbook.Path & "\" & fileName For Append As #1
    Write #1, MyStr
Close #1
End Sub

Answer 1

如果您想避免在.jet 中出现多余的引号，您可以使用append 语句而不是Write # 语句来append。

与Print # 语句不同，Write # 语句在写入文件时在项目和字符串周围的引号之间插入逗号。

例如这段代码：

Option Explicit
Sub ject()
Dim MyStr As String
  
  MyStr = "{" & Chr(34) & "myid" & Chr(34) & ":345," & Chr(34) & "content" & Chr(34) & ":["
  
  appendToFile (MyStr)
End Sub


Sub appendToFile(MyStr As String)
Dim fileName As String
 fileName = "MyFile.jet"
Open Application.ActiveWorkbook.path & "\" & fileName For Append As #1
    Print #1,
Close #1
End Sub

将导致：

{"myid":345,"content":[

使用文本编辑器打开 .jet 文件时。

这是你想要的吗？