computer 版 (精华区)

发信人: kammi (未), 信区: POPsoft
标  题: 长老必读
发信站: 听涛站 (Tue Mar  7 16:00:18 2000), 转信

自己总结的,想当长老的不可不看。
其实就是使用SuperPOST的技巧。
1.Word替换的技巧。
Word里面的替换是很有技巧的,特别是对于有些文章用硬回车分行
但每一行有特别长,这样的文章直接贴到bbs上会出现一行特别长
一行只有一两个字的情况。这种情况会可以使用word替换来重新分行。
步骤:(1)替换^p为#(2)替换#[][]为^p[][](这里用[]代表空格)
       这时就没有多余的回车了。
      (3)全选整个文章并拖动标尺,使每一行变短一些。
      (4)另存文章为带分行符的纯文本文件,就可以了。
2.Perl的前处理
可以将多个处理好的纯文本copy到一个文件里去。
(copy *.txt 1.doc)
但是有时每一篇文章的可能很大,如果行数太多,用SuperPost也很
不爽,还可能死掉,此时最好是将文章分为多个文件
变为***-1,***-2的形式发表。
下面这个Perl程序就可以完成这一功能
$fn="by.txt";
$n=100;
#=================================================================
#do not change the code below unless you know what you are doing.
#=================================================================
open(AAA,$fn);
open(BBB,">".$fn.".ok");
while(<AAA>)
{
    chop($_);
    if(/#s_p#/){
        $title=<AAA>;
        print $title;
        chop($title);
        $i=1;
        print BBB $_."\n";
        print BBB $title."-".$i."\n";
        $read=1;
    }else{
        print BBB $_."\n";
        $read=$read+1;
        }
    if($read==$n){
       $read=0;
       $i=$i+1;
       print BBB "#s_p#\n".$title."-".$i."\n";
    }
}
close(AAA);
close(BBB);
其中$n=100是表示每100行为一篇,最后一篇除外。
$fn="by.txt",是源文件名,处理完的文件为by.txt.ok

源文件的格式如下
#s_p#
<第一篇文章的标题和内容>
#s_p#
<第二篇文章的标题和内容> 
#s_p#
<....>

处理完了后是这样
#s_p#
<一 -1>
#s_p#
<一 -2>
#s_p#
<一 -3>
#s_p#
<二 -1>
#s_p#
<二 -2>
....
然后把第一个#s_p#去掉就可以开始post了。

--
※ 来源:.听涛站 cces.net.[FROM: 匿名天使的家]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:1.239毫秒