VB6将字符串保存到文件而不使用--->&引用；

我正在尝试将此HTML保存到HTML文件中。此代码有两个问题

1。它认为“刷新”部分不是字符串的一部分

我已经尝试了使用Chr（34）而不是“但是它仍然把我带到错误2”来修复这次购买

2.当我打开HTML文件时，它在所有文本周围都有引号，看起来像垃圾

我将如何着手修复这些错误？谢谢

  Dim nFileNum as Integer

    nFileNum = 4

    Open "WebWindow.html" For Output As #nFileNum 'Open the file to put information into

        Write #nFileNum, "<meta http-equiv="refresh" content="1" />" 'Refresh Script
        Write #nFileNum, "<P>10% Through the current test:</p>"
        Write #nFileNum, "<p>Invoices 1/20 (processing)</p>"
        Write #nFileNum, "<p>POs 0/20 (waiting)</p>"

    Close #nFileNum 'Close the File

在HTML文件中，它如下所示：

"" "
10% Through the current test:

" "
Invoices 1/20 (processing)

" "
POs 0/20 (waiting)

"

"<meta http-equiv=""refresh"" content=""1"" />"
"<P>10% Through the current test:</p>"
"<p>Invoices 1/20 (processing)</p>"
"<p>POs 0/20 (waiting)</p>"

“”
“
10%通过当前测试：
”
“发票1/20（处理）
”
“位置0/20（等待）
”

所以我还是要处理问题2

---

*编辑编辑！修复*

我用双引号修复了问题1（谢谢你们），我自己也修复了问题2。我用Print代替了Write。Print和Write的功能相同，但不会将引号和字符串一起放在文件中

我的新工作代码：

Function WebOutput()

Dim nFileNum As Integer
Dim Line2 As String

Line2 = "<P>10% Through the current test:</p>"

nFileNum = 4

Open "C:\TestPartner\Config\WebWindow.html" For Output As #nFileNum 'Open the file to put information into

    Print #nFileNum, "<meta http-equiv=""refresh"" content=""1"" />" 'Refresh Script
    Print #nFileNum, Line2
    Print #nFileNum, "<p>Invoices 1/20 (processing)</p>"
    Print #nFileNum, "<p>POs 0/20 (waiting)</p>"

Close #nFileNum 'Close the File

函数WebOutput（）
作为整数的Dim nFileNum
作为字符串的Dim Line2
Line2=“
10%通过当前测试：
”
nFileNum=4
打开“C:\TestPartner\Config\WebWindow.html”以输出为#nFileNum“打开要将信息放入的文件”
打印#nFileNum，“”'刷新脚本
打印#nFileNum，第2行
打印#nFileNum，“发票1/20（处理）
”
打印#nFileNum，“位置0/20（等待）
”
关闭#nFileNum“关闭文件”

若要在VB中转义引号，请执行

”

操作，因此请尝试在VB中转义引号。若要在VB中转义引号，请执行

”

操作，请在编写函数之前修改函数，将字符串中的任何引号替换为双引号

string = replace(string, Chr(34), Chr(34) & Chr(34))

类似的东西。应该可以工作。如果两个不起作用，可以考虑有多少个Chr（34）&Chr（34）&Chr（34）

---

您将不得不修改现有代码，无法绕开它，但这是最简单的方法。

在编写之前，请修改函数，将字符串中的任何引号替换为双引号

string = replace(string, Chr(34), Chr(34) & Chr(34))

类似的东西。应该可以工作。如果两个不起作用，可以考虑有多少个Chr（34）&Chr（34）&Chr（34）

---

您将不得不修改现有代码，无法绕开它，但这是最简单的方法。

将行更改为：

Write#nFileNum，“'Refresh Script

（在vb6中，您需要将引号加倍以转义）不是你的问题的答案，但是那些打开/写入/关闭的方法被认为是笨拙的，即使在使用VB 6时，你可能想考虑切换到在我的原始帖子上使用“查看编辑”……）我也喜欢使用打开/写入/关闭方法，并且在整个项目中使用它，所以我宁愿不改变。rite#nFileNum，“”刷新脚本（在vb6中，需要将引号加倍以转义）不是你的问题的答案，但是那些打开/写入/关闭的方法被认为是笨拙的，即使在使用VB 6时，你可能想考虑切换到在我的原始帖子上使用“查看编辑”……）我也喜欢使用打开/写入/关闭方法并在整个项目中使用它，所以我宁愿不改变。