Question

我想知道谁可以从文件中检索日期。

这就是我打开文件的方式：

    Set fs=Server.CreateObject("Scripting.FileSystemObject")

    Set f=fs.OpenTextFile(Server.MapPath("checkno_2211.html"), 1)
'Need something here to find the first date MM/DD/YYYY in the file
    f.Close

    Set f=Nothing
    Set fs=Nothing

上面的代码将打开.html文件现在我想找到该文件中的第一个日期，但我不知道该怎么做。： - （

.html文件中会有多个日期，但我只需要抓住第一个。日期的html和格式如下：

<TD class="auto-style32" style="height: 31px">
Date:
 10/7/2011</TD>

.html文件的源代码是

        <HTML>
        <HEAD>
        <script SRC="include/general.js" language="javascript" type="text/javascript"></script>
        <style type="text/css">
        textarea { 
font-size: 14px;
font-weight: bold;
font-family: Arial;
}

.style1 {
    text-align: center;
}
.style2 {
    border-style: solid;
    border-width: 1px;
}
.style3 {
    color: #FFFFFF;
    background-color: #000000;
}
.style4 {
    background-color: #000000;
}
.style5 {
    color: #FFFFFF;
}
.style7 {
    vertical-align: text-bottom;
}
.style8 {
    font-family: Arial, Helvetica, sans-serif;
}
.style9 {
    background-color: #C0C0C0;
}
.style10 {
    vertical-align: middle;
}

        .auto-style30 {
            text-align: center;
            margin-left: 0px;
        }

        .auto-style32 {
            text-align: left;
            border-bottom-style: solid;
            border-bottom-width: 1px;
        }

        .auto-style35 {
            background-color: #000000;
        }
        .auto-style36 {
            border-top-style: solid;
            border-top-width: 1px;
        }

        </style>

<script language="javascript" type="text/javascript">
function GetURL_Alpha(){
document.getElementById("currentURL").value= location.href;
}
</script>

        <script SRC="include/general.js" language="javascript" type="text/javascript"></script>
        </HEAD>
        <BODY onload="printIt();GetURL_Alpha();" style="margin: 0 5">



<input name="currentURL" ID="currentURL" type="hidden" style="width: 1528px">

<CENTER>


<head>
<style type="text/css">
.auto-style36 {
    text-align: center;
}
</style>
</head>

    <TABLE border=0 style="width: 100%">
    <TR>
        <TD class="auto-style36">
        <font face="Century Gothic">
        <img src="logopro2.jpg"><BR>
            </font>
            <strong>
            <font face="Century Gothic" size="1">111 Test Main St Los Angeles, 
        CA 12345 </font></strong><font face="Century Gothic" size="1">
        <strong><BR>
            </strong>
            </font> <STRONG><FONT face="Century Gothic" size=1>PHONE: (888) 111-2222&nbsp;&nbsp;&nbsp;&nbsp;FAX: (877) 
        111-2233</FONT></STRONG>
        <br><br>
            </TD>
    </TR>
    </TABLE>
    </CENTER>
<table style="width: 100%">
<tr>
<td style="width: 408px"><font face="Arial">
<strong>
<h3 class="auto-style30" style="width: 492px">
FULL NAME<BR>
123 Test Ave<BR>
MIAMI, FL<BR>
</h3>
</strong>
</font>
&nbsp;</td>
<td>
</td>
<td>
&nbsp;</td>
</tr>
</table>

            <P align = center>
            <FONT face="Comic Sans MS" size=5><span class="style8">
<HR>
            <P align=center>
            <TABLE border=0 style="width: 100%" cellspacing="0">
                <tr>
            <FONT face="Comic Sans MS" size=5><span class="style8">
                <TD class="auto-style32" style="height: 31px">
                    Date:
                     10/7/2011</TD>
                <td style="height: 31px">Name:&nbsp;Someone</td>
                    <td class="style1" colspan="2" style="height: 31px">
            <FONT face="Comic Sans MS" size=5><span class="style8">
                    <strong>STATEMENT</strong></td>
                <TD colspan=3 align=right style="height: 31px">
                    Check #: 11008 
                </TD>
                    </span></font>
                </tr>
            <TR>
                <TD colspan=7 align=center class="auto-style35">
                    <span class="style5"></span>
                    <STRONG><FONT face="Arial" size=2 color="white">
                    <img src="more_images/ContainerRed.png" class="style10"> 
                    MORE INFORMATION</FONT></STRONG>                
                </TD>
            </TR>

一如既往谢谢你的帮助...

Answer 1

你可以尝试这样的事情 -

Dim ParseDate, NextLineIsDate 
NextLineIsDate = False
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
set fs = fso.OpenTextFile(Server.MapPath("Saved\checkno_2211.html"), 1, true) 
Do Until fs.AtEndOfStream 
    If NextLineIsDate Then
       ParseDate = Replace(Replace(fs.ReadLine," ",""),"</TD>","")
       Exit Do
    End If
    If Instr(fs.ReadLine,"Date:") > 0 Then NextLineIsDate = True
Loop 
Response.Write ParseDate 
fs.close: set fs = nothing

上面的代码应该将您要搜索的日期输出到屏幕。

这将有效，只需在文本文件的日期上方显示文本Date:即可。如果不是，你可能需要一些更复杂的东西，但如果没有看到你文件的所有内容就很难分辨。

经典Asp提取日期在文本文件中

1 个答案: