Parsing 解析空间和返回_Parsing_Vbscript

Parsing 解析空间和返回

parsing vbscript

Parsing 解析空间和返回,parsing,vbscript,Parsing,Vbscript,我已经获得了下面的代码来读取指定文件夹中*.txt文件的文件名和内容。我当前的问题是，它似乎将返回解释为读取内容中的空格，而不是插入返回。我还希望能够解析txt文件中的制表符，并将其替换为多个空格，以模拟“制表符”。我怎样才能做到这一点 <Html> <Head> <Title>Installer</Title> <Script Language="VBScript" Type="Text/VBScript"> '--

我已经获得了下面的代码来读取指定文件夹中*.txt文件的文件名和内容。我当前的问题是，它似乎将返回解释为读取内容中的空格，而不是插入返回。我还希望能够解析txt文件中的制表符，并将其替换为多个空格，以模拟“制表符”。我怎样才能做到这一点

<Html>
<Head>

    <Title>Installer</Title>

<Script Language="VBScript" Type="Text/VBScript">

'--  Resize & move app to center

       Sub SetWindow( WidthX,HeightY )
          Self.ResizeTo WidthX, HeightY
          Self.MoveTo (screen.Width - WidthX)/2, (screen.Height - HeightY)/2
       End Sub

'--  Call Window resize Sub
       SetWindow 800, 600

</Script>

<Hta:Application    Id="Installer"  ApplicationName="Installer"     Version="0.1"

    SingleInstance="Yes"
          Icon="image/appIcon.ico" 
          Caption="No"
          Border="None"
          InnerBorder="No"
          ContextMenu="No"
          SysMenu="Yes"
          Scroll="No"
          Selection="No"

/>
</Head>
<Body>

<Script Language="VBScript" Type="Text/VBScript">

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

Files = objStartFolder & objFile.name
Set objReadFile = objFSO.OpenTextFile(Files, 1)

    document.write Left(objFile.name, Len(objFile.name)-4) & "<br>"

    document.write objReadFile.ReadAll & "<br><br>"
objReadFile.Close

else
    document.write ="File was empty"

End If
Next

</Script>

</Body>
</Html>


安装工
“--调整应用程序大小并将其移动到中心
副设置窗口（宽度x，高度）
自重定宽X，高
Self.MoveTo（screen.Width-WidthX）/2，（screen.Height-HeightY）/2
端接头
“--调用窗口调整子对象
设置窗口800600
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
objStartFolder=“Notes\”
设置objFolder=objFSO.GetFolder（objStartFolder）
设置colFiles=objFolder.Files
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
Files=objStartFolder&objFile.name
设置objReadFile=objFSO.OpenTextFile（文件，1）
document.write Left（objFile.name，Len（objFile.name）-4）和“
”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

document.write objReadFile.ReadAll&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

objReadFile.Close
其他的
document.write=“文件为空”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

如果结束
下一个

HTML不会以您期望的方式处理行末尾的CRLF

您可以使用

标记替换所有线端

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & objReadFile.ReadAll & "</pre><br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write Replace（objReadFile.ReadAll，vbCRLF，“
”&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

或者，您可以将文件内容放在

标记中

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write”“&objReadFile.ReadAll&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

也许第二个选项更适合您的问题，因为您还想用空格替换制表符

document.write”“&replace（objReadFile.ReadAll，vbTab，”）&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

HTML不会以您期望的方式处理行末尾的CRLF

您可以使用

标记替换所有线端

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & objReadFile.ReadAll & "</pre><br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write Replace（objReadFile.ReadAll，vbCRLF，“
”&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

或者，您可以将文件内容放在

标记中

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write”“&objReadFile.ReadAll&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

也许第二个选项更适合您的问题，因为您还想用空格替换制表符

document.write”“&replace（objReadFile.ReadAll，vbTab，”）&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

HTML不会以您期望的方式处理行末尾的CRLF

您可以使用

标记替换所有线端

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & objReadFile.ReadAll & "</pre><br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write Replace（objReadFile.ReadAll，vbCRLF，“
”&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

或者，您可以将文件内容放在

标记中

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write”“&objReadFile.ReadAll&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

也许第二个选项更适合您的问题，因为您还想用空格替换制表符

document.write”“&replace（objReadFile.ReadAll，vbTab，”）&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

HTML不会以您期望的方式处理行末尾的CRLF

您可以使用

标记替换所有线端

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & objReadFile.ReadAll & "</pre><br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write Replace（objReadFile.ReadAll，vbCRLF，“
”&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

或者，您可以将文件内容放在

标记中

document.write Replace(objReadFile.ReadAll, vbCRLF, "<br>") & "<br><br>"

document.write "<pre>" & replace(objReadFile.ReadAll, vbTab, "  ") & "</pre><br><br>"

document.write”“&objReadFile.ReadAll&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

也许第二个选项更适合您的问题，因为您还想用空格替换制表符

document.write”“&replace（objReadFile.ReadAll，vbTab，”）&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

以下是经过修改的代码，以获得我想要的结果，适用于那些希望以普通代码格式获得结果的人：

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
objStartFolder=“Notes\”
设置objFolder=objFSO.GetFolder（objStartFolder）
设置colFiles=objFolder.Files
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
Files=objStartFolder&objFile.name
设置objReadFile=objFSO.OpenTextFile（文件，1）
strExt=Left（objFile.name，Len（objFile.name）-4）
strNote=Replace（objReadFile.ReadAll，vbCRLF，“
”）
objReadFile.Close
document.write strExt&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

document.write strNote&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

其他的
document.write=“文件为空”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

如果结束
下一个

以下是经过修改的代码，以获得我想要的结果，适用于那些希望以普通代码格式获得结果的人：

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
objStartFolder=“Notes\”
设置objFolder=objFSO.GetFolder（objStartFolder）
设置colFiles=objFolder.Files
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
Files=objStartFolder&objFile.name
设置objReadFile=objFSO.OpenTextFile（文件，1）
strExt=Left（objFile.name，Len（objFile.name）-4）
strNote=Replace（objReadFile.ReadAll，vbCRLF，“
”）
objReadFile.Close
document.write strExt&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

document.write strNote&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

其他的
document.write=“文件为空”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

如果结束
下一个

以下是经过修改的代码，以获得我想要的结果，适用于那些希望以普通代码格式获得结果的人：

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
objStartFolder=“Notes\”
设置objFolder=objFSO.GetFolder（objStartFolder）
设置colFiles=objFolder.Files
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
Files=objStartFolder&objFile.name
设置objReadFile=objFSO.OpenTextFile（文件，1）
strExt=Left（objFile.name，Len（objFile.name）-4）
strNote=Replace（objReadFile.ReadAll，vbCRLF，“
”）
objReadFile.Close
document.write strExt&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

document.write strNote&“

”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

其他的
document.write=“文件为空”
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then

        Files = objStartFolder & objFile.name
        Set objReadFile = objFSO.OpenTextFile(Files, 1)

        strExt = Left(objFile.name, Len(objFile.name)-4)
        strNote = Replace(objReadFile.ReadAll, vbCRLF, "<br>")

    objReadFile.Close

        document.write strExt & "<br><br>"
        document.write strNote & "<br><br>"

    else
    document.write ="File was empty"

    End If
Next

如果结束
下一个

以下是经过修改的代码，以获得我想要的结果，适用于那些希望以普通代码格式获得结果的人：

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
奥布斯塔