情報処理の魅力・威力(40)
dBASEVPLUSの威力・魅力
膨大な忠臣蔵データから討ち入り義士を検索
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
1 001 大石内蔵助 赤穂 * M 1659 1703 45
2 002 大石主税 赤穂 * M 1688 1703 16
8 008 神崎与五郎 相生 * M 1666 1703 32
9 009 大高源五 赤穂 * M 1672 1703 31
10 010 堀部安兵衛 新発田 * M 1670 1703 33
11 011 堀部弥兵衛 江戸 * M 1627 1703 76
12 012 間 喜兵衛 赤穂 * M 1635 1703 68
13 013 吉田忠左衛門 笠間 * M 1641 1703 63
参考資料(1)
 参考資料(1)は、忠臣蔵関係の人物713人から討ち入り義士を検索しました。

USE GISI INDEX MEIBO
LIST FOR GISI=*
参考資料(2)
 参考資料(2)は、参考資料(1)を実行するためのdBASEVPLUSのプログラムです。
(1)このプログラムは、分りやすくするために、大幅に省略しています。以下同じです。
(2)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(3)「LIST FOR GISI=*」とは、フィールド名のGISIに関して「*」のみをLIST(表示)するという意味です。

討ち入り義士で、しかも、赤穂生まれを検索
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
1 001 大石内蔵助 赤穂 * M 1659 1703 45
2 002 大石主税 赤穂 * M 1688 1703 16
9 009 大高源五 赤穂 * M 1672 1703 31
12 012 間 喜兵衛 赤穂 * M 1635 1703 68
参考資料(3)
 参考資料(3)は、忠臣蔵関係の人物713人から討ち入り義士で、しかも、赤穂生まれを検索しました。

USE GISI INDEX MEIBO
LIST FOR GISI=* .AND. FOR ADD="赤穂"
参考資料(4)
 参考資料(4)は、参考資料(3)を実行するためのdBASEVPLUSのプログラムです。
(1)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(2)「LIST FOR GISI=* .AND. FOR ADD="赤穂"」とは、フィールド名のGISIに関して「*」、
ADD=”赤穂”という2つの条件を満たした項目のみをLIST(表示)するという意味です。

60歳以上を検索し、名前・年齢などを表示・印刷
レコード CODE NAME ADD AGE
3 003 浅野長直 笠間 63
5 005 吉良上野介 江戸 62
7 007 大石りく 豊岡 68
11 011 堀部弥兵衛 江戸 76
12 012 間 喜兵衛 赤穂 68
13 013 吉田忠左衛門 笠間 63
713 713 脇坂淡路守 江戸 65
参考資料(5)
 参考資料(5)は、忠臣蔵713人から60歳以上を検索し、名前・年齢などを表示・印刷しました。

SET PRINT ON
USE GISI INDEX MEIBO
LIST CODE,NAME,ADD,AGE FOR AGE>”60”
参考資料(6)
 参考資料(6)は、参考資料(5)を実行するためのdBASEVPLUSのプログラムです。
(1)「SET PRINT ON」は、印刷することを意味します、
(2)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(3)「LIST CODE,NAME,ADD,AGE FOR AGE>60」とは、フィールド名のAGEに関して60以上のCODE,NAME,ADD,AGEのみをLIST(表示)するという意味です。

忠臣蔵713人から3番目を検索
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
3 003 浅野長直 笠間   M 1610 1672 63
参考資料(7)
 参考資料(7)は、忠臣蔵713人から3番目を検索しました。

USE GISI INDEX MEIBO
LIST RECORD 3
参考資料(8)
 参考資料(8)は、参考資料(7)を実行するためのdBASEVPLUSのプログラムです。
(1)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(3)「LIST RECORD 3」とは、レコード3番目に飛んで、その内容をLIST(表示)するという意味です。

忠臣蔵713人の3番目に飛び、そこから5人を検索
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
3 003 浅野長直 笠間   M 1610 1672 63
4 004 瑶泉院 江戸   W 1674 1714 41
5 005 吉良上野介 江戸   M 1641 1702 62
6 006 浅野長矩 江戸   M 1667 1701 35
7 007 大石りく 豊岡   W 1669 1736 68
参考資料(9)
 参考資料(9)は、忠臣蔵713人の3番目に飛び、そこから5人を検索しました。

USE GISI INDEX MEIBO
GOTO 3
LIST NEXT 5
参考資料(10)
 参考資料(10)は、参考資料(9)を実行するためのdBASEVPLUSのプログラムです。
(1)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(2)「GOTO 3」は、レコード3に飛ぶという意味です。
(3)「LIST NEXT 5」とは、レコード3番目に飛んで、そこから5人をLIST(表示)するという意味です。

7番目に飛び、そこから残り全てを検索
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
7 007 大石りく 豊岡   W 1669 1736 68
8 008 神崎与五郎 相生 * M 1666 1703 32
9 009 大高源五 赤穂 * M 1672 1703 31
10 010 堀部安兵衛 新発田 * M 1670 1703 33
11 011 堀部弥兵衛 江戸 * M 1627 1703 76
12 012 間 喜兵衛 赤穂 * M 1635 1703 68
13 013 吉田忠左衛門 笠間 * M 1641 1703 63
713 713 脇坂淡路守 江戸   M 1658 1722 65
参考資料(11)
 参考資料(11)は、忠臣蔵713人の7番目に飛び、そこから残り全てを検索しました。

USE GISI INDEX MEIBO
GOTO 7
LIST REST
参考資料(12)
 参考資料(12)は、参考資料(11)を実行するためのdBASEVPLUSのプログラムです。
(1)「USE GISI INDEX MEIBO」は、インデックス付きのGISI.DBFを使用するという意味です。
(2)「GOTO 7」は、レコード7に飛ぶという意味です。
(3)「LIST REST」とは、レコード7番目に飛び、そこからREST(残り)をLIST(表示)するという意味です。

人物忠臣蔵の基本データ
レコード CODE NAME ADD GISI M_W BIRTH DETH AGE
1 001 大石内蔵助 赤穂 * M 1659 1703 45
2 002 大石主税 赤穂 * M 1688 1703 16
3 003 浅野長直 笠間   M 1610 1672 63
4 004 瑶泉院 江戸   W 1674 1714 41
5 005 吉良上野介 江戸   M 1641 1702 62
6 006 浅野長矩 江戸   M 1667 1701 35
7 007 大石りく 豊岡   W 1669 1736 68
8 008 神崎与五郎 相生 * M 1666 1703 32
9 009 大高源五 赤穂 * M 1672 1703 31
10 010 堀部安兵衛 新発田 * M 1670 1703 33
11 011 堀部弥兵衛 江戸 * M 1627 1703 76
12 012 間 喜兵衛 赤穂 * M 1635 1703 68
13 013 吉田忠左衛門 笠間 * M 1641 1703 63
713 713 脇坂淡路守 江戸   M 1658 1722 65
参考資料(13)
 写真(13)は、人物忠臣蔵の基本データです。
(1)データに汎用性を持たせるには、非常に厳しい条件があります。
(2)非常に厳しい条件をクリアーしたデータは、誰が使っても、自由にコントロールできます。

dBASEVPLUSは最高!!、しかし、習得難度は最大