12
3456789
10111213141516
17181920212223
24252627282930
<< September 2017 >>
最近の
もらったコメント
もらったトラックバック
昔の
リンク
カテゴリー
親切な検索機能
カウンター
メールアドレス
yasuo●ofg.jp
ここの↑●は@にすればいいです。
プロフィール

OFG@日本國

情報科講師をしたりシステムエンジニアやWebデザイナーをしたりNPOスタッフや議員秘書をしたりして、今では中学校技術科教師のOFGのブログである。あまり読む価値はない。
<< グランディスオオクワガタ | main | 衆議院議員総選挙・最高裁判所裁判官国民審査 >>
IDentification
 本日から高等部は2学期の授業開始。私の授業は月曜からなので、今日は大阪で仕事ですが。なんか、夏休みボケで自分のIDを忘れた生徒が多数発生したもよう。生徒証番号の後から5桁のうちの前4桁をとって、頭に「kg」を付加するだけなのに…。

●Excelなら
="kg"&LEFT(RIGHT("abcd0123456789",5),4)

●Visual Basicなら
Dim code1, code2 As String
code1 = "abcd0123456789"
code2 = "kg" & Left(Right(code1, 5), 4)
MsgBox (code2)

●C言語なら
#include <stdio.h>
#include <string.h>
main()
{
 char code1[100];
 char code2[7];
 int a,b,c;
 strcpy(code1, "abcd0123456789");
 a = strlen(code1);
 code2[0] = 'k';
 code2[1] = 'g';
 for (b = 2 ; b < 6 ; b++) {
  c = a + b - 7;
  code2[b] = code1[c];
 }
 code2[6] = '¥0';
 printf("%s¥n",code2);
} 

こんな感じ。たぶん動く。
| comments(3) | trackbacks(0) |
TTSneo
番号は abcd0123456789
IDは 「kg」&左(右(番号、5)、4)
IDを表示

・・・VB製だからほとんど変わらん・・・
Delphiもやってみようと思ったらインストールしてなかった。
| 他人の他人は他人です | 2005/09/10 11:30 AM |
R-Scriptではこうなりますわね。

<code>
(定義部略)

%%

Editbox( "id", "kg"+left$( right$( "abcd0123456789", 5 ), 4 ), EDIT_READONLY )
exit
</code>
| S.A Studio | 2005/09/10 12:41 PM |
どこでそんなの覚えたかは知らぬが…こうやっていろんな言語の違いを見るのも結構面白い。
| 大藤 | 2005/09/17 11:20 PM |









http://blog.ofg.jp/trackback/326921