中国DOS联盟论坛

中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --

联盟域名:cndos.rths.ml  论坛域名:cndos.rths.ml/forum

DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

» 游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助

 

<   <<   [1] [2] [3]  >>
作者:
标题: 523066680编辑区 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 31 楼』:  


CODE:  [Copy to clipboard]
#include <BoysAndGirls.h>  /*人物性质*/
#include <Garden.h>   /*地点环境我想好了*/
#include <Action.h>    /*各种动作*/

int main(int time, char *BoysAndGirlsName[])
{
     New result;
     result=meet(boy("John"),girl("Alice"));
     printf("%s",result.body);   
     /*我YY打出一屏幕的字符,字符组成的是一对双胞胎 */
     /* return 2 , 如果输出的ML的字符动画,靠... */
     return result.babys;
}



[ Last edited by 523066680 on 2010-9-5 at 19:44 ]



综合型编程论坛

我的作品索引
  
2010-8-3 20:43
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 32 楼』:  



2i5HMABAA&&ABMMA9A&2hHhG39BBSrs29HM#B#BHA#M#B&A#GSX993X3G2:..
S5H#H 广州威立舜电子  XS239irisi5hAH##A#H#BM##ABB323333h&2:..
5GMAA =.=这是转换来的 S32irrSsXSXXX2&3AAMBA3H#MB#AX2X39395:..
53AHAHH#AMBM##BB#h2MhS2G9Srr5s99iX32Ss;r3AB#2iA#B##h2X33X2S,
9&BAHBM##B###MM#A3Mh5hA3555X9AHX5XXiSr,,,X##AiiHMH#B22XXX2i,
&HHABB###M##M###BM9XA&2SXGGB#Bh9hXSiS;...:&#A#23BBM#&22XG&3,
GH&G&MM###AM##AAM39Hh52&HB##&9GAA2iir... ,rMBAA3AM##Bh3hGAA:
GBA&&#MAAAAM#AAMGAA3SGMHA##9SAAhA5r;,.... ,5B#A9&M##HAhGh&A;
GB#MHHMAAA##AAHGBHAGM#AAHHi;XMS9hS:,.....  ,&BA#GH##AAABhAM;
GMAM#B#AAA#A#&AMM####HGAh;,rA5rAX,.. .,:;r;;XM#AA&M#A&HM&BAr
hMA#A#AA###H&#AAA###AS2i,.:X3,Xh, ,:s5Sir;::rH#A#GAABA#MBAAs
9B##AAAAMA&A#AAA##AB222sssrh:sG, ,;5i:.  .,,:3###A&BMBA#BAAi
9A##AAAMGA#AAAABHG;,:,,:rSSs:S, ,:;:,;h#A#Bhr2##MAABAA##H#A5
AAAM#BB##AAA#A#H2;:rrrr:::;;;,...,:;AAAAA,.#&XM#BAA####HHAAX.
#MMH#AA#AAABB#HX5AAAAAAB;;;::,....:;,hA2; .;;5AAB#ABMMA##AA9.
#AAAAAA#A###HhXXAMrBMAA, .::::,..     .. ,:,,;3AM#A#BB#M#AA&.
2AA#AAA#B#M#M3sriir;r;,.,,,,:::..            ,SAB###BBM&BAAA.
SGAAAAAAHM#MM9;;:,.   .,,,,,,::,....        . XABA##HBMGH#AA
25#AAAAAMBAM#Br::.    ...,,,,,:,..............A#BA##BM#&H#AM,
3XGAAAAAAMA#MA3;;,,,.....,,,,::,........,,,,.:A#BMA#B###M#A#.
h92AAAAAAA#AMHAi;::::,,,,,,,:;;r:;:.....,,,,.iA#MhH#####MMA#.
9hXXAA#AAAAA#&hir::::::::,,::;rss;:....,,,,,,HA#AAM99A#A##AH.
h&Xh#A#A#AAAAMBS;;:::::::::,,,:::,.  .,,:::.sAAB&MBhirr5MAA&
hG9AAAMM#AAAAAA#r:;;:::::::,:::,,,:iX,,:::,;AA#AHBHA9S:  rAH
&GhAAA#GMB&#AA#A#;,;;;;;;::rMHh99HM##:,::,rAAMMHHHH&i:. , :AM
HAAMAX#M9BHGAAA#AA5;:;;;;;;;iAAH2si5s..,,iAA##BAHAAG;  ,i,5#2
AHA5,rAABAMGAAAAAAAB2r;:;;;;,;ris,:i2i::&AA###HhM&9G;..r:r#2r
X2s:rHA#A#AB&A#AAAAAMBhi;;;;;:;riiS55AHG&B##B#&h#G3G2;;;;&2sX
;:;shABXHA#AHAA#AAM##AM#H3i;;;::,::;XMMA25i2##h#A&i2&;:;92ssA
;;iiiBBh&#A#GAH&M#BA#A23hGGh2ir;;;riSsri2XX2S29AAA;2&,:XA2hH2
;rirrABHH##AA&HAGA#GhHiiS552X33X222ir;;:29SX&2s2HBX&r,SMAGHA5
;;r;:G#AAMAAAA&H&AHH5HXsiiiiiiiiiis;;;rr5#A3S5hXi2Ai:XABA&&&X



[ Last edited by 523066680 on 2010-9-5 at 19:44 ]



综合型编程论坛

我的作品索引
  
2010-8-12 22:58
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 33 楼』:  [perl] 字符转 UTF-8 编码

偶然要用到,某个杂牌手机的T卡通讯录里面的字的储存使用UTF-8编码的
CODE:  [Copy to clipboard]
#!/usr/bin/perl
open READ,"<next.x";

$lv_[1]=00000000;
$lv_[2]=11000000;
$lv_[3]=11100000;
$lv_[4]=11110000;
$lv_[5]=11111000;
$lv_[6]=11111100;

use utf8;

$a="我";
printf "%s\n",&code2utf(ord $a);
print "END!";
<STDIN>;


sub code2utf {
my ($code,$bin,$level,$hex,$tmp,$result);
$code=$_[0];
$bin=sprintf "%b",$code;

$level=1;
if (length($bin)>7) {
  while (length($bin)>=6) {
     $level+=1;
     $bin=~s/.{6}$//;
     $hex=sprintf "%X",&bin2int(10 . $&);
     $result=$hex ."-". $result;
  }
}

$tmp=substr($lv_[$level],0,8-length($bin));
$hex=sprintf "%X",&bin2int($tmp . $bin);
$result=$hex ."-". $result;
$result=~s/-$//;  
$result;   #result - string
}

sub bin2int {
my ($a,$str,$all,$act);
$a=$_[0];
$str="";
$all=0;
$act=0;
do {
   $b=($a % 10) * (2**$act);  #** as ^ of the calc
   $all+=$b;
   $act+=1;
   $a=int ($a/10);
} until ($a==0);
int ($all);
}




综合型编程论坛

我的作品索引
  
2010-9-5 19:45
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
yaoyao1220
初级用户





积分 94
发帖 66
注册 2010-8-9
状态 离线
『第 34 楼』:  

看到脑袋晕了。。。

2010-11-2 15:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
cutebe
新手上路





积分 10
发帖 4
注册 2009-5-14
状态 离线
『第 35 楼』:  Re: 523066680编辑区



  Quote:
Originally posted by 523066680 at 2009-02-13  18:49:
CODE:  [Copy to clipboard]
@echo off &setlocal enabledelayedexpansion
set /p inp=" : "
call :funa na %inp%
call :funa nb %inp:* =%


set /a lpna=0,lpr=-1
:lpna
set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr
  :lpnb
  set /a lpnb+=1,lp+=1
  ::::::::::::::::::::::::::
    set /a cup%lp%+=na%lpna%*nb%lpnb%
     set /a tlpa=lp,tlpb=tlpa+1
     :cuplp
     set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10
     if !cup%tlpb%! gtr 9 (
        set /a tlpa+=1,tlpb=tlpa+1
        goto :cuplp
     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)

  ::::::::::::::::::::::::::
  if %lpnb% lss %nb% (goto :lpnb)
if %lpna% lss %na% (goto :lpna)

for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul
echo,
echo,wscript.echo %inp: =*%>x.vbs
cscript //nologo x.vbs
pause>nul &exit


:funa
set %1=%2
set funaa=0
:funaa
  set /a funaa+=1
  set %1%funaa%=!%1:~-%funaa%,1!
if not "!%1:~%funaa%!"=="" (goto :funaa)
set /a %1=funaa
版本2
CODE:  [Copy to clipboard]
@echo off &setlocal enabledelayedexpansion
set /p inp=" : "
call :naxnb %inp%
pause

:naxnb
set numa=%1
set numb=%2
set /a la=0,lpr=-1
:la
set /a la+=1,lb=0,lpr+=1,lp=lpr
  :lb
  set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1
  :::::::::::::::::::::::::
  set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1!
     :cuplp
     set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10
     if !cup%tlpb%! gtr 9 (
        set /a tlpa+=1,tlpb=tlpa+1
        goto :cuplp
     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)
  ::::::::::::::::::::::::::
  if not "!numb:~%lb%!"=="" (goto :lb)
if not "!numa:~%la%!"=="" (goto :la)
for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul

::::::::vbs验证一下:::::::::::
echo,
echo,wscript.echo %inp: =*%>x.vbs
cscript //nologo x.vbs
pause>nul &exit
[ Last edited by 523066680 on 2009-2-21 at 10:46 ]

命令行模式测试:
真的可以加吗?
怎么退出?靠!

2014-4-7 20:29
查看资料  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 36 楼』:  

咦还有人上来?



综合型编程论坛

我的作品索引
  
2015-6-13 14:42
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 37 楼』:  

哈哈,你不也还上来。




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2015-10-14 14:50
查看资料  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 38 楼』:  [Perl]批量下载高中物理必修选修电子课本(jpg

CODE:  [Copy to clipboard]
=info
    Edit: vicyang
    Mail: 523066680@163.com
    Date: 2016-06
=cut

use v5.16;
use utf8;
use Encode;
use LWP::UserAgent;
use LWP::Simple qw/getstore get/;
use IO::Handle;
STDOUT->autoflush(1);

our $website = "http://www.pep.com.cn/gzwl/jszx/tbjx/kb/dzkb/";
#our $website = "\x68\x74\x74\x70\x3A\x2F\x2F\x77\x77\x77\x2E\x70\x65\x70\x2E\x63\x6F\x6D\x2E\x63\x6E\x2F\x67\x7A\x77\x6C\x2F\x6A\x73\x7A\x78\x2F\x74\x62\x6A\x78\x2F\x6B\x62\x2F\x64\x7A\x6B\x62\x2F";

our $bookpage;
our $WORKDIR;
our $page1maps;
my  ($path, $begin, $end);

my @booklist = qw/
        bx1  bx2 xx11 xx12 xx21 xx22 xx23 xx31 xx32 xx33 xx34 xx35 /;


for my $book ( @booklist[0 .. $#booklist]  )
{
        print "Now is downloading: $book\n";
        $bookpage = $website. $book . "/";
        $WORKDIR  =  "D:\\Extra\\Book\\Physics\\" . $book;

        CreatePath($WORKDIR);

        ($path, $begin, $end) = get_pgnum_range( $bookpage );
        print "Path: $path, $begin to $end\n";

        #页面1 对应的 页码
        $page1maps = get_who_map_page1( $bookpage );

        get_picture( $bookpage, $path, $begin, $end );
}

system("pause");

sub get_pgnum_range
{
        my $bookpage = shift;
        my $all;
        $all = get($bookpage);   #使用lwp::simple 得到的是unicode,
                                 #使用lwp::UserAgent 得到的是GB2312
        my @pglist;
        my $path;

        $all =~s/.*封面//s;      #如果有封面,剔除

        #./201102/t20110217_1021412.htm
        for my $e ( split("\r?\n", $all)  )
        {
                if ($e=~/href="\.\/([^"]*_)(\d+).htm"/)
                {
                        $path = $1;
                        push @pglist, $2;
                }
        }

        @pglist = sort @pglist;
        return $path, @pglist[ 0, $#pglist ];
}

sub get_who_map_page1
{
        my $bookpage = shift;
        my $all = get($bookpage);

        $all=~s/\r?\n//g;
        if ( $all=~/\d+_(\d+)\.htm[^.]+第/ )
        {
                return $1;
        }
        else
        {
                die "first page code not found! ";
        }
}


sub get_picture
{
        my ($bookpage, $path, $begin, $end) = @_;

        our $page1maps;
        our $WORKDIR;
        my  $all;           #网页内容
        my  $subpage;       #子页面
        my  $pic;           #图片名
        my  $count = 0;     #页码计数
        my  $fname;         #文件名

        #该网页地址是逆序的,书本page+1,网址代码-1

        for (my $n = $end; $n >= $begin; $n-- )
        {
                $subpage = $bookpage . $path . $n . ".htm";

                $all = get( $subpage ) or next;
                if ( $all=~/IMG src="?\.\/([^".]*.jpg)"?/i )  #不一定有""符号
                {
                        $pic = $1;
                        $subpage =~s /[^\/]+$/$pic/;

                        if ( $n <= $page1maps )
                        {
                                $count++;
                                $fname = sprintf("%03d.jpg", $count);
                        }
                        else
                        {
                                $fname = $pic;
                        }

                        getstore($subpage, $WORKDIR."\\".$fname) or die "$!";
                        print "$pic\n";
                }
        }
}

sub CreatePath
{
    my $path = shift;
    my @arr=split(/[\\\/]/, $path);
    my $main;

    $main = shift @arr;  #以盘符开始

    for my $s (@arr)
    {
        $main .= "/" . $s;
        mkdir( $main ) if ( ! -d $main );
    }
}




综合型编程论坛

我的作品索引
  
2016-7-6 20:14
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
zzz19760225
超级版主




积分 3667
发帖 2015
注册 2016-2-1
状态 离线
『第 39 楼』:  

链接无效,占用了我一分,楼主还我。

   此帖被 +5 点积分      点击查看详情   
评分人:【&sid=i9tQ5E 523066680 分数: +5  时间:2016-8-31 20:41




1<词>,2[句],3/段\,4{节},5(章)。
2016-7-6 22:14
查看资料  发短消息 网志   编辑帖子  回复  引用回复
doslike
版主

系统收藏家


积分 326
发帖 285
注册 2010-2-22
来自 黑龙江省
状态 离线
『第 40 楼』:  



  Quote:
Originally posted by zzz19760225 at 2016-7-6 22:14:
链接无效,占用了我一分,楼主还我。

论坛得以保住 实属不易。
数据丢失在所难免。

2016-7-26 14:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 41 楼』:  

其实是可以访问的,把域名部分改成现在的

http://www.cn-dos.net

改为

http://cndos.fam.cx

   此帖被 +5 点积分      点击查看详情   
评分人:【&sid=i9tQ5E zzz19760225 分数: +5  时间:2016-9-28 13:20




综合型编程论坛

我的作品索引
  
2016-9-28 11:43
查看资料  发送邮件  访问主页  发短消息 网志  QQ   编辑帖子  回复  引用回复
zzz19760225
超级版主




积分 3667
发帖 2015
注册 2016-2-1
状态 离线
『第 42 楼』:  

以前是瞎子,没看到下面的编程语言,今天看到了,还你五分。



1<词>,2[句],3/段\,4{节},5(章)。
2016-9-28 13:19
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zzz19760225
超级版主




积分 3667
发帖 2015
注册 2016-2-1
状态 离线
『第 43 楼』:  

路过



1<词>,2[句],3/段\,4{节},5(章)。
2017-12-4 13:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
<   <<   [1] [2] [3]  >>
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系我们 - 中国DOS联盟 ]


Powered by Discuz! © 2001-2011