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

2016-01-29 14:28 4 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";

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

延伸阅读
标签: 办公软件
工作中,经常会遇到需要用Excel处理的数据是存放在非Excel格式文件(比如文本文件等)中的情况,这时如果用手工方式来采集这些数据的话,实际费时又费力的。实际上,我们可以利用Excel软件的外部数据输入导入功能来迅速导入这些数据,从而极大的提高我们的工作效率。 下面我们以文本文件为例来介绍如何使用Excel的数据导入功能。假设...
标签: 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...
标签: PHP
  首先是保证文本文件可读写,在文件准备写入之前,我们所要做的是处理好用户留言! 这项工作可以在提交表格前进行,我们将得到的数据各项用特定的符号分开,比如说用&号,值得说明的是如果提交的数据中如果也包含有特定字符,那我们只好将他转化成其他形式,这一点各位自有办法; 如是我们得到数据形如: $str=”aaaaa&bbbbb&...
在一些语言教学软件中,经常使用文本显示和声音同步播放,我们可以用DEL PHI实现之。 一、材料的制作 首先,我们选择几篇文章,这里我们选择马丁路德金、林肯和里根的演说,每一篇文章分为若干句,在制作声音文件时,记下每个句子的开始时间和结束时间,然后将其记到一个数据表中,这个表有如下字段:NO、TEXT、STARTTIME,分别表...
标签: PHP
  做网站要做的有一定的规模,动态的新闻发布是必不可少的。实现的方法有很多,这里建议用文本文件来生成,又快又简单省事。好吧,让我们立即着手工作吧。 首先,我们假设已经有一个文件夹名为 "news",在"c://news"下,用来存储新闻的文本。并且我们假设这些文本的名字就是所要发布的新闻的标题。 1,首先,我们限...

经验教程

93

收藏

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