Acet-str-find

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月5日 (火) 07:49時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-str-find ''searchFor'' ''inString'' [ ''caseInsensitive'' [ ''wildcardMatch'' ]]) ; 機能 : 文字列 inString 内から文字列 searchFor 位置のインデックスを返す。 : caseInsensitive が指定され、かつ NIL でない場合、検索は大文字小文字を区別しない; : wildcardMatchが指定され、NILでない場合、検索は正規表現モードで実行される。 ; 引数 :* searchFor … 検索…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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



関連事項