デリゲードはそれ以上、意味ツリーに分解できないとき、解析終了と見なして真を返します。文章内に参照オブジェクトを見つけたときはデータベース参照オブジェクト1)を埋め込みます。 Public Delegate Function Disassemble(ByVal p As Phrase) As Boolean Public DisassembleFuncArray(32) As Disassemble Public Sub New() Me.tblName = "syntaxProduction" Me.szDataKeyFieldName = "nProductionID" Me.szDataTextFieldName = "szCaption" Me.ObjectTitle = "文法" Me.DisassembleFuncArray(0) = AddressOf NoDisassemble Me.DisassembleFuncArray(1) = AddressOf NoDisassemble Me.DisassembleFuncArray(2) = AddressOf NoDisassemble Me.DisassembleFuncArray(3) = AddressOf NoDisassemble Me.DisassembleFuncArray(4) = AddressOf Kakko Me.DisassembleFuncArray(5) = AddressOf SetRef Me.DisassembleFuncArray(6) = AddressOf SetKeyword Me.DisassembleFuncArray(7) = AddressOf Protocol '句→句＋プロトコル指定ＵＲＩ＋句 Me.DisassembleFuncArray(8) = AddressOf Sep '句→句＋区切り文字＋句 Me.DisassembleFuncArray(9) = AddressOf Wo '句→名詞句＋を＋動詞句 Me.DisassembleFuncArray(10) = AddressOf Num '句→名詞句＋数値句＋動詞句 Me.DisassembleFuncArray(11) = AddressOf Katakana '句→名詞句＋カタカナ句＋動詞句 Me.DisassembleFuncArray(12) = AddressOf NoDisassemble '予備 Me.DisassembleFuncArray(13) = AddressOf NoDisassemble '予備 Me.DisassembleFuncArray(14) = AddressOf NoDisassemble '予備 Me.DisassembleFuncArray(15) = AddressOf NoDisassemble '予備 Me.DisassembleFuncArray(16) = AddressOf LookUpKeyword '句→辞書にある語 Me.DisassembleFuncArray(17) = AddressOf LookUpLeftKeyword '句→辞書にある語＋句 Me.DisassembleFuncArray(18) = AddressOf LookUpLeftParticle '句→辞書にある語＋句 End Subデータベース参照オブジェクト,データベースラッピングオブジェクト仁科 辰夫, サイバーキャンパス「鷹山, 講義ノート, (2008).(1) データベース参照オブジェクト,データベースラッピングオブジェクト仁科 辰夫, サイバーキャンパス「鷹山, 講義ノート, (2008).
🏠
🏠
