Question

我正在尝试将此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

修改

使用双引号有效，但网页窗口中的输出现在如下所示：

"" "
10% Through the current test:

" "
Invoices 1/20 (processing)

" "
POs 0/20 (waiting)

"

在HTML文件中它看起来像这样：

"<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>"

所以我仍然要处理问题2 ....

* 编辑编辑！固定*

我用双引号修复了问题1（感谢你们）并自己修复了问题2。而不是使用写我使用打印。 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

Answer 1

要在VB中转义引号，请执行""，请尝试"<meta http-equiv=""refresh"" content=""1"" />"

Answer 2

在编写之前修改函数以用字符串中的双引号替换任何引号。

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

这样的事情。应该工作。玩多少Chr（34）＆amp; chr（34）＆amp;如果两个不起作用，则为（34）。

您必须修改现有代码，无法绕过它，但这是最简单的方法。

VB6将字符串保存到文件而不使用---＆gt; “

2 个答案: