用文本文件实现的动态实时发布新闻的程序

2016-01-29 14:28 7 1 收藏

用文本文件实现的动态实时发布新闻的程序,用文本文件实现的动态实时发布新闻的程序

【 tulaoshi.com - PHP 】

  动态实时发布新闻的程序,可以根据发布时间,自动地排列显示顺序。新闻文件为存储在指定目录的文本文件组成,当有新闻的时候,程序会自动地将其显示出来,并且排列在页面的最开始部分。
<html
<head
<titleNews</title
</head
<body bfcolor="#ffffff"
<h1News</h1
<div aligh="center"
<table border="0" cellspacing="5" cellpadding="10" width="90%" bgcolor="#e0e0e0"

<?php
    
  include('locationfilename.php');
    
  function createur1($text){
  //新闻的文本文件中这样插入你的链接
  //${http://mysite.ch}
  //或是${http://mysite.ch|My homepage in}
  //开始处理文本文件部分
    $s=$text;
    $a=strstr($s,'${');
    if ($a){
      $b=strstr($a,'}');
      if ($b){
        $la=strlen($a); $ls=strlen($s);
        $s=substr($s,0,$ls-$la);
        $a=substr($a,2);
        $lb=strlen($b); $la=strlen($a);
        $a=substr($a,0,$la-$lb); $b=substr($b,1);
        $ta=strstr($a,"|");
        if($ta){
          $la=strlen($a); $lt=strlen($ta);
          $linktext=substr($a,$la-$lt+1);
          $a=substr($a,0,$la-$lt);
        }
       else{
         $linktext=$a;
       }
      $s=$s."<a href="".$a.""".$linktext."</a".$b;
      }
    }
   
  return($s);
  }

  //在这里修改你的新闻文件存放目录
  //切记,新闻文件必须是文本文件
  $newspath="/home/htdocs/test/new/";
   
  //设置数组
  $newsfile=array();
   
  //设置目录把柄
  $hd=dir($newspath);
   
  //获取全部文件,并将其存放在数组中
  while($filename=$hd-read() ){
    $s=strtolower($filename);
    if (strstr($s,".txt")){
      //检测最新修改日期
      $lastchanged=filemtime($newspath.$filename);
      $newsfile[$filename]=$lastchanged;
    }
  }

  //文件排序
  arsort($newsfile);
  //输出文件
  for(reset($newsfile);  $key=key($newsfile);  next($newsfile)){
    $fa=file($newspath.$key);
    $n=count($fa);
    print "<tr<tdn";
    print "<b".date("d.m.Y - H:i:s",$newsfile[$key])."</b<brn";
    for($i=0; $i<$n; $i=$i+1){
      $s=chop($fa[$i]);
      $s=htmlspecialchars($s);
      $s=createur1($s);
      print $s."<brn";

来源:http://www.tulaoshi.com/n/20160129/1493387.html

延伸阅读
打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。同时期盼大家也来参与,借VB编程乐园这块宝地互相交流。如您有这份心,土人在这里先说声谢谢! 下面所举的例子均假设F盘下有一个名为d.txt的文本文件,若需要尝试这些例子请作...
标签: Web开发
script language=vbscript Function bytes2BSTR(vIn)     strReturn = ""     For i = 1 To LenB(vIn)         ThisCharCode = AscB(MidB(vIn,i,1))        ...
标签: 办公软件
工作中,经常会遇到需要用Excel处理的数据是存放在非Excel格式文件(比如文本文件等)中的情况,这时如果用手工方式来采集这些数据的话,实际费时又费力的。实际上,我们可以利用Excel软件的外部数据输入导入功能来迅速导入这些数据,从而极大的提高我们的工作效率。 下面我们以文本文件为例来介绍如何使用Excel的数据导入功能。假设...
在一些语言教学软件中,经常使用文本显示和声音同步播放,我们可以用DEL PHI实现之。 一、材料的制作 首先,我们选择几篇文章,这里我们选择马丁路德金、林肯和里根的演说,每一篇文章分为若干句,在制作声音文件时,记下每个句子的开始时间和结束时间,然后将其记到一个数据表中,这个表有如下字段:NO、TEXT、STARTTIME,分别表...
标签: Web开发
一个使用fso的class,前面的文章也有提到。这里有比较多的一些实例。 % Dim MyFileFolder Set MyFileFolder = New FileFolderCls ''Response.Write MyFileFolder.MoveAFile("f:\123\4561.exe","f:\123\4562.txt") ''Response.Write MyFileFolder.MoveAFolder("f:\456","f:\ditg\456") ''Response.Writ...

经验教程

868

收藏

25
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部