| $B$G$-$^$9!#(B
$B$?$@$7!"Hf3S$N%k!<%k$OJ8;z%3!<%I=g$G$O$J$/!"<-=q0z$-=g$H$J$j$^$9!#(B
$BBg>.Hf3S$r$9$k>l9g$OCm0U$,I,MW$G$9!#(B
$B<-=q0z$-=g$N%k!<%k$O0J2<$N$h$&$K$J$C$F$$$k$h$&$G$9!#(B
($B0J2<$O!"K\#Q!u#A<9I.$BNc$K<($9<0$O$9$Y$F??$G$9!#(B
(1-a)
$BJ8;z$B1Q;zF1;N$NHf3S$OBgJ8;z(B/$B>.J8;z!"A43Q(B/$BH>3Q$N6hJL$J$/!"1Q;z=g$KBg$-$$$HH=CG$5$l$k!#(B
$B$+$JF1;N$NHf3S$O!"$R$i$,$J(B/$B%+%?%+%J!"A43Q(B/$BH>3Q$N6hJL$J$/!"8^==2;=g$KBg$-$$$HH=CG$5$l$k!#ByE@!"H>ByE@$O$J$$$b$N$H8+$J$9!#(B
$BNc(B) "$B#a(B" < "$B%"(B"$B!JH>3Q%+%?%+%J!K(B
$BNc(B) "a" < "B"
$BNc(B) "$B%"%$(B"$B!JH>3Q%+%?%+%J!K(B > "$B%"%"(B"
$BNc(B) "$B%+%/(B" < "$B%+!+%1(B"$B!JH>3Q%+%?%+%J!K(B
$BNc(B) "$B#0(B" < "1"
(1-b)
$BJ8;z?t$N0c$&J8;zNsF1;N$NHf3S$G!"C;$$J}$NJ8;zNs$ND9$5$^$G$,(B (1-a$B$N%k!<%k$G(B) $B0lCW$7$F$$$k>l9g!"D9$$$[$&$,Bg$-$$$HH=CG$5$l$k!#(B
$B"((B $BD9$5$O%P%$%H?t$G$O$J$/J8;z?t$G%+%&%s%H$9$k!#(B
$BNc(B) "$B#A#B#C(B" < "abc1"
$B$3$3$^$G$G7hCe$,$D$+$J$+$C$?>l9g$K!"(2)
$B1Q;z$NF10lJ8;z$NBgJ8;z$H>.J8;z$NHf3S$G$O!"BgJ8;z$N$[$&$,Bg$-$$!#(B
$B$+$J$NF10lJ8;z$NHf3S$G$O!"$BByE@%J%7(B < $BByE@IU$-(B < $BH>ByE@IU$-(B
$BH>3Q%+%J(B < $BA43Q%+%?%+%J(B < $BA43Q$R$i$,$J(B
$B"((B $BByE@$NM-L5$N$[$&$,M%@h=g0L$,9b$$!#(B
$BNc(B) "ABC" > "abc"
$BNc(B) "$B%"%$(B"$B!JH>3Q%+%?%+%J!K(B < "$B%"%$(B"
$BNc(B) "$B%+%/(B" < "$B%+!+%/(B"$B!JH>3Q%+%?%+%J!K(B
$B$3$3$^$G$G(B2$B$D$NJ8;zNs$K0c$$$,8+$i$l$J$$>l9g!"(B2$B$D$NJ8;zNs$OF1$8$G$"$k$H$$$&7k2L$K$J$j$^$9!#(B
$BNc(B) "$B%P(B"=="$B%O!+(B"
$B4A;z$d5-9f$J$I8@5Z$7$F$$$J$$ItJ,$b$"$j$^$9!J0lIt!"Nc#2$b;2>H$/$@$5$$!K$,!"$3$3$G5s$2$F$$$/$H$-$j$,$J$$$N$G!"$4<+?H$G3N$+$a$F$_$^$7$g$&!#(B
$B!JNc#1!K(B
$B$B%U%!%$%k$N:G8e$KC#$9$k$^$G7+$jJV$7$^$9!#(B
gowordtop;
#x1 = x;
#y1 = y;
while( 1 ) {
wordright;
if( result == false ) {
break;
}
$str = gettext(#x1, #y1, x, y);
$s1 = leftstr($str, 1);
if( $s1 >= "A" && $s1 <= "Z" ) { // *1
message $str;
}
#x1 = x;
#y1 = y;
}
|
$B1QC18l$+$I$&$+$NH=CG$KJ8;zNs$NHf3S$r;HMQ$7$F$$$^$9(B (*1 $B$N9T(B)$B!#(B
("A"$B!A(B"Z"$B$G;O$^$kC18l$r1QC18l$G$"$k$HH=CG(B)
$B$3$N%^%/%m$O1QBgJ8;z$G;O$^$kC18l$N$_$rI=<($9$kL\E*$G:n@.$7$?$b$N$G$9$,!"A0=R$7$?%k!<%k$K$h$j1Q>.J8;z$G;O$^$kC18l$bI=<($7$F$7$^$$$^$9!#(B
$B@5$7$/1QBgJ8;z$G;O$^$kC18l$N$_$rI=<($9$k$K$O!"(B*1 $B$N9T$rif( ascii($s1) >= 'A' && ascii($s1) <= 'Z' ) { // *1
$BHf3SBP>]$rJ8;z(B($BNs(B)$B$N$^$^$G$O$J$/J8;z%3!<%I$KJQ49$7$FHf3S$7$^$9!#(B
$B"((B A$B$H(BZ$B$N0O$_$,%7%s%0%k%/%)!<%H$KJQ$o$C$F$$$k$3$H$KCm0U!#(B
$B!JNc#2!K(B
$BNc#1$NNc$r4^$a$F!"=(4]$NJ8;zNsHf3S!J(B<, ==, >$B$N1i;;;R$G9T$&$b$N!K$O(B Win32API $B$N(B lstrcmp() $B$r;H$C$F$$$k$N$G!"$=$NDL$j$N%k!<%k$K$J$C$F$$$^$9!#(B
$B$=$N$?$a!"Hf3S7k2L$,0J2<$N$h$&$J$A$g$C$H6E$C$?!)$b$N$K$J$j$^$9!#(B
"$B%Q(B"=="$B%O!+!+(B"
"$B-4(B"<"$B!g(B" //$B!J(BSHIFT-JIS, UNICODE$B%3!<%I=g$H5U!K(B
"$B!n(B"=="C$B!,(B"
"$B0l(B"=="$B0l!;!;!;!;(B"
"$B!}!+(B"=="$B!|(B"
"$B-j!3(B"=="$B-j-j(B"
"$B;3!6(B"=="$B;3;3!+(B"
$B87L)$K!JC1=c$K!KF1$8J8;zNs$+Hf3S$r9T$$$?$$>l9g$O!"0J2<$N$h$&$JJ}K!$,$"$j$^$9!#(B
$a = input ("$B#18D$a(B", "");
$b = input ("$B#28D$a(B", "");
// $B=(4]$NHf3S1i;;;R$K$h$kJ8;zNsHf3S(B (WIN32 API $B$N(Blstrcmp()$B$HF1$8(B)
if ($a == $b) {
message "$a == $b";
} else if ($a > $b) {
message "$a > $b";
} else {
message "$a < $b";
}
// $B87L)$JHf3SNc(B
if (($a == "") && ($b == "")) {
// $BNc30E*$K(B strstr("", "") == -1 $B$K$J$j$^$9!#(B
message "$a $B$H(B $b $B$O6&$K%L%k%9%H%j%s%0$G$9!#(B";
} else if ((strlen($a) == strlen($b)) && (strstr($a, $b) == 0)) {
message "$BK\Ev$K(B $a $B$H(B $b $B$OF1$8J8;zNs$G$9!#(B";
} else {
message "$a $B$H(B $b $B$O0c$&J8;zNs$G$9!#(B";
}
endmacro;
|
$B87L)$J!JC1=c$J!KBg>.4X78$rCN$j$?$$>l9g$O!"(Bascii$B4X?t$r;H$C$F#1J8;z$:$DHf3S$9$kJ}K!$,$"$j$^$9!#(B
[$B2r@b(B]
Win32API $B$N(B lstrcmp() $B$K$D$$$F$N>\:Y$O0J2<$r;2>H$7$F$/$@$5$$!#(B
http://www.microsoft.com/JAPAN/developer/library/jpuipf/_win32_lstrcmp.htm
$B<-=q0z$-=g$N>\:Y$O!"#J#I#S$NF|K\8lJ8;zNs>H9g=gHV(B X4061-1996 $B$GDj5A$5$l$F$$$^$9!#(B
|
