China DOS Union

#include <BoysAndGirls.h>  /*Character nature*/

#include <Garden.h>   /*I've thought about the location environment*/

#include <Action.h>    /*All kinds of actions*/



int main(int time, char *BoysAndGirlsName) 

{

     New result;

     result=meet(boy("John"),girl("Alice"));

     printf("%s",result.body);   

     /*IYY types out a screen full of characters, and the characters form a pair of twins */

     /* return 2, if the output ML character animation, rely on... */

     return result.babys;

}

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

2i5HMABAA&&ABMMA9A&2hHhG39BBSrs29HM#B#BHA#M#B&A#GSX993X3G2:..
S5H#H Guangzhou Weilishun Electronics XS239irisi5hAH##A#H#BM##ABB323333h&2:..
5GMAA =.= This is converted 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 ]

Accidentally needed, the characters in the T-card address book of a certain brand of mobile phone use UTF-8 encoding for storage

#!/usr/bin/perl

open READ,"<next.x";



$lv_=00000000;

$lv_=11000000;

$lv_=11100000;

$lv_=11110000;

$lv_=11111000;

$lv_=11111100;



use utf8;



$a="我";

printf "%s\n",&code2utf(ord $a);

print "END!";

<STDIN>;





sub code2utf {

 my ($code,$bin,$level,$hex,$tmp,$result);

 $code=$_;

 $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_,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=$_;

 $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);

}

Seeing this makes my head spin...

Originally posted by 523066680 at 2009-02-13 18:49:

@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

Version 2

@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 verification:::::::::::

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 ]

Command line mode test:
Can it really add?
How to exit? Damn!

Hey, there are still people coming up?

Hehe, you also came online.

```
=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)
{
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";

# Page 1 corresponding page number
$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); # What is obtained using lwp::simple is unicode,
# What is obtained using lwp::UserAgent is GB2312
my @pglist;
my $path;

$all =~ s/.*封面//s; # If there is a cover, remove it

#./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;
}

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; # Web page content
my $subpage; # Sub-page
my $pic; # Picture name
my $count = 0; # Page number count
my $fname; # File name

# This web page address is in reverse order, book page +1, website code -1

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

$all = get($subpage) or next;
if ($all =~ /IMG src="?\.\/(*.jpg)"?/i) # There may not be "" symbols
{
$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; # Start with the drive letter

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


```

The link is invalid, it took one point from me, the thread starter give it back to me.

Originally posted by zzz19760225 at 2016-7-6 22:14:
The link is invalid, it took me a minute, the owner returns it to me.

It is not easy to keep the forum.
Data loss is inevitable.

Actually, it can be accessed. Change the domain part to the current one:

http://www.cn-dos.net

Change to

http://www.cn-dos.net

I was blind before and didn't see the programming languages below. I see them today, and here's five points for you.

Just passing through