Acet-str-find

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-str-find searchFor inString [ caseInsensitive [ wildcardMatch ]])


機能
文字列 inString 内から文字列 searchFor 位置のインデックスを返す。
caseInsensitive が指定され、かつ NIL でない場合、検索は大文字小文字を区別しない;
wildcardMatchが指定され、NILでない場合、検索は正規表現モードで実行される。


引数
  • searchFor … 検索する文字
  • inString … 評価する文字列
  • CaseSensitive … 大文字と小文字を区別するかどうかを指定する整数。T=大文字と小文字を区別する。nil= 大文字と小文字を区別しない。初期値は nil。
  • wildcardMatch … nil でない場合は、ワイルドカードで検索される。


戻り値
見つかった位置の文字位置。最初の文字は 1。見つからない場合は nil。


サンプル
(setq text "This is a Pen. This is a Apple. Un! penpainappleapplepen.")
(setq pos1 (acet-str-find "apple" text))
44

(setq text "This is a Pen. This is a Apple. Un! penpainappleapplepen.")
(setq pos1 (acet-str-find "apple" text T))
26

(setq text "This is a Pen. This is a Apple. Un! penpainappleapplepen.")
(setq pos1 (acet-str-find "*app" text T))
nil ; ワイルドカードは認識されない。

(setq pos1 (acet-str-find "*app" text T T))
1 ; ワイルドカードが認識されて最初から引っかかる。


(setq text "日本国際技術アカデミー")
(setq pos1 (acet-str-find "アカデミー" text ))
7

(setq pos1 (acet-str-find "アカデミー" text ))
nil

(setq pos1 (acet-str-find "アカデミー,アカデミー" text T T))
7 ; ワイルドカードが認識されて引っかかる。



関連事項