如何读取文本文件中的一段字符和某个值？

一个文本文件(.htm)内容为
<GPNS_FOR=1>
<table>
  <tr>
    <td>    </td>
  </tr>
</table>
<GPNS_NEXT>1、要读取GPNS_FOR=1的1给一个变量
2、要读取<GPNS_FOR=1><GPNS_NEXT>之间的内容给一个变量

解决方案 »

  1.   

    TEXT,VALUE : STRING ;
    I ;INTEGER ;
    TEXT := '<GPNS_FOR=1><table><tr><td></td>
      </tr>
    </table>
    <GPNS_NEXT>' I := POS(TEXT,'<GPNS_FOR')
    VALUE := COPY(TEXT,I,1)
      

  2.   

    <GPNS_FOR=1>
    <table>
      <tr>
        <td>    </td>
      </tr>
    </table>
    <GPNS_NEXT>只是.htm文件中的一部分~还有其他的诸如<html><body></body></html>之类其他的标签
      

  3.   

    如果要去处理就得自己写各种函数了，分别取
    <GPNS_NEXT><html><body></body></html>但觉得这样做，有点傻！
      

  4.   

    不是<GPNS_NEXT><html><body></body></html>这种样子~是<html><body>
    <GPNS_FOR=1>
    <table>
      <tr>
        <td>    </td>
      </tr>
    </table>
    <GPNS_NEXT>
    </body></html>
    这种样子