Southern Pacificの郵便番号検索

検索する町名を漢字で入力してください。(番地や丁目の前の地名です。) プログラム1を見る

 

こちらは住所の一部で検索します。 (例 磯子区久木の磯子) 総なめ検索ですので遅いです。プログラム2を見る

 

データベース、インデックス、総なめ検索でのレコード内容の変更、テーブルを使った表示に近いうちに直します。 ご自由にリンクしてください。

他の郵便番号サーチエンジンと比較してください。 ほかを見る

ARAGOIの体験デモをご覧になれます。04-11



やく120,000レコード、dbfが15Mバイト、ndxが3Mバイトくらいのデータベースです。

プログラム1

HTMLの部分です。

<form action="/cgi-bin/aragoi.exe?zip.prg" method="post" name="address">
<p><input type="text" size="20" name="address"> <input type="submit" name="b1" value="検索開始 "></p>
</form>

ARAGOIのプログラム

seekstring =getform("address")
output('Content-type text/html ')
head2='<html>'
output(head2,1) &&here we need carriage return
output("",1) &&here we need brank line for IIS
head3='<head><title>郵便検索</title></head>'
output(head3)
output('<body>')
output("検索結果は次のとおりです"+"<BR><BR>")
howmany=0
use newzip inde city3
set exact off
seek(seekstring)
do while city3 = seekstring
howmany = howmany +1
output(zip+space(2)+address+"<BR>")
skip
enddo
output(str(howmany)+"件ありました"+"<BR>")
output('<p><a href="../default.htm">ARAGO HOME </a>に戻る</p>')
ENDHTML="</body></html>"
OUTPUT(ENDHTML)

プログラム2

HTMLの部分です。

<form action="/cgi-bin/aragoi.exe?zip2.prg" method="post" name="adrstr">
<p><input type="text" size="20" name="adrstr"> <input type="submit" name="b1" value="検索開始"></p>
</form>

ARAGOIのプログラム

seekstring =getform("adrstr")

output('Content-type text/html ')
head2='<html>'
output(head2,1) &&here we need carriage return
output("",1) &&here we need brank line for IIS
head3='<head><title>
郵便検索</title></head>'
output(head3)
output('<body>')
*outpur("seekstring")
output("
検索結果は次のとおりです"+"<BR><BR>")
howmany=0
use newzip

do while .not. eof()

if seekstring $ address
howmany = howmany +1
output(zip+space(2)+address+"<BR>")

endif
skip
enddo
output(str(howmany)+"
件ありました"+"<BR>")
output('<p><a href="../default.htm">ARAGO HOME </a>
に戻る</p>')
ENDHTML="</body></html>"
OUTPUT(ENDHTML)

日本国内総代理店 Kapal Japan Inc.