Vle-searchのソースを表示

{{BCAD_LISP}}
; 構文
: (vle-search ''item''  ''lst''  ''asIdx'') 


; 機能
: リスト ''lst'' から ''item'' の位置または位置以降のリストを返す関数。


; 引数
:* item : 検索するオブジェクト
:* lst : item を検索するリスト
:* asIdx : インデックスで返すかどうかのフラグ。 nil=リスト、nil以外=インデックスで返す。


; 戻り値
: ''asIdx'' が NIL 以外の場合は ''lst'' における ''item'' のインデックス位置。* 最初の項目は 0
: ''asIdx'' が NIL の場合は  ''item'' で始まるリスト、''item'' が ''lst'' に含まれていなければ NIL を返す。



;サンプル
<pre class="brush:autolisp;">
; asIdx が nil の場合は member 関数と同じ。
(vle-search 11 '(1 2 3 11 22 33) nil)
'(11 22 33)

(member 11 '(1 2 3 11 22 33))
'(11 22 33)

; asIdx が nil 以外の場合は vl-position 関数と同じ。
(vle-search 11 '(1 2 3 11 22 33) T)
3

(vl-position 11 '(1 2 3 11 22 33))
3

; 最初に見つかったitem の位置を返す
(vle-search 11 '(1 2 3 11 22 33 11 11 44) T)
3


(vle-search "お" '( "おい" "あ" "い" "う" "え" "オ" "お" "か") T)
6

; 半角カナも区別できる（ユニコードベースなので当然といえば当然だけど。）
(vle-search "オ" '( "おい" "あ" "い" "う" "え" "ｵ" "オ" "お" "か") nil)
("オ" "お" "か")

(vle-search "ｵ" '( "おい" "あ" "い" "う" "え" "ｵ" "オ" "お" "か") nil)
("ｵ" "オ" "お" "か")

</pre> 



-----
関連事項
* [[VLE-関数]]
* [[member]]
* [[vl-position]]


[[Category:AutoLISP]]
[[Category:BricsCADのLISP]]