Classic Asp Extract Date в текстовом файле

Я хотел бы знать, кто может получить дату из файла.Classic Asp Extract Date в текстовом файле

Это, как я открываю файл:

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>

Как всегда, Спасибо за любую помощь ...

источник

2011-10-06 compcobalt

Вы могли бы попробовать что-то вроде этого -

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: отображается непосредственно над датами в вашем текстовом файле. Если это не так, вам может понадобиться нечто более сложное, но это трудно сказать, не видя всего содержимого вашего файла.

источник

2011-10-06 16:26:31 ipr101

Я добавил исходный код .html (см. Выше), если вы можете взглянуть на него. Огромное спасибо!! – compcobalt

Я изменил ваш код: set fs = fso.OpenTextFile (имя файла, ForReading, true), чтобы установить fs = fso.OpenTextFile (Server.MapPath («Saved \ checkno_2211.html»), 1) , но это дает мне ошибку то я удаляю ForReading, тогда это не дает мне ошибку, но тогда страница пуста. :-( – compcobalt

Я протестировал код, используя содержимое вашего текстового файла, и немного его обновил. То, что написано выше, работает для меня. Надеюсь, это поможет! – ipr101

ответ

Смежные вопросы