|
ver1.0 でサポートしていた関数は ver2.0 でもキャストメンバ関数として組み込まれています。
ver1.0 のソースコードは初期化と呼び出しプレフィックスを変更する必要がありますが関数名やロジックの変更をせずにそのまま動作させることが可能です。
ver1.0 の検索サンプルを書き換えて具体的な方法を示します。但し、検索用のExcelファイルは
v2.0 のサンプルにある版を利用します。
(1) キャストにReadSheet Xtra を読み込んで rs と名前を付ける。
(2) initUbin ハンドラ
修正前 |
db1 = new (xtra "ReadSheet")
err = db1.open("@xls/郵便番号1.xls")
|
修正後 |
db1 = member("rs")
db1.openFile = "@郵便番号1.xls"
if db1.openStatus = #no_open then
...
end if
...
※ db2 〜 db8 の初期化は必要ないので削除 |
(3) searchZip5First ハンドラ
修正前 |
db = value("db"&dbcnt)
...
ret = db.searchFirst(3, 2, searchStr) |
修正後 |
db = db1
db.sheet(dbcnt)
...
ret = db.searchFirst(4, 1, searchStr) |
(4) offSearchPain ハンドラ
修正前 |
TotalLine = 0
TotalLine = TotalLine + db1.tate()
TotalLine = TotalLine + db2.tate()
TotalLine = TotalLine + db3.tate()
TotalLine = TotalLine + db4.tate()
TotalLine = TotalLine + db5.tate()
TotalLine = TotalLine + db6.tate()
TotalLine = TotalLine + db7.tate()
TotalLine = TotalLine + db8.tate() |
修正後 |
TotalLine = 0
db.sheet(1)
TotalLine = TotalLine + db.tate()
db.sheet(2)
TotalLine = TotalLine + db.tate()
db.sheet(3)
TotalLine = TotalLine + db.tate()
db.sheet(4)
TotalLine = TotalLine + db.tate()
db.sheet(5)
TotalLine = TotalLine + db.tate()
db.sheet(6)
TotalLine = TotalLine + db.tate()
db.sheet(7)
TotalLine = TotalLine + db.tate()
db.sheet(8)
TotalLine = TotalLine + db.tate() |
(5) searchZip7First ハンドラ
修正前 |
db = value("db"&dbcnt)
...
ret = db.searchFirst(4, 2, searchStr) |
修正後 |
db = db1
db.sheet(dbcnt)
...
ret = db.searchFirst(5, 1, searchStr) |
(6) searchProvinceFirst ハンドラ
修正前 |
db = value("db"&dbcnt)
...
ret = db.searchFirst(8, 2, searchStr) |
修正後 |
db = db1
db.sheet(dbcnt)
...
ret = db.searchFirst(3, 1, searchStr) |
(7) searchKanjiFirst ハンドラ
修正前 |
db = value("db"&dbcnt) |
修正後 |
db = db1
db.sheet(dbcnt) |
(8)searchKanaFirst1 ハンドラ
修正前 |
db = value("db"&dbcnt)
...
ret = db.searchFirst(6, 2, searchStr) |
修正後 |
db = db1
db.sheet(dbcnt)
...
ret = db.searchFirst(7, 1, searchStr) |
(9)searchKanaFirst2 ハンドラ
修正前 |
db = value("db"&dbcnt)
...
ret = db.searchFirst(7, 2, searchStr) |
修正後 |
db = db1
db.sheet(dbcnt)
...
ret = db.searchFirst(8, 1, searchStr) |
差し替えスクリプト
|