文字列が格納されたシンボルに対しての置換は、どう書くのでしょうか。
具体的に説明しますと、
(setq foo "h_o_g_e")
で定義されるシンボル foo に、JavaScriptでいうところの
foo.replace(/_/g, '.');
を適用させたいんですが、elispではこれをどう書けばいいのでしょうか、という質問です。
よろしくお願いします。
No.2
120
22
40pt
replace-regexp-in-stringがそのまま使えます。
もっとも、複雑な置換処理をするならばバッファに入れて処理するほうがよいでしょう。
(replace-regexp-in-string "_" "." "h_o_g_e") ; => "h.o.g.e"
No.1
70
40pt
バッファに対しての正規表現置換は簡単ですが、文字列に対して置換する関数は通常含まれていないように思います。
string-matchを使って書くなら、こんな感じでしょうか。
20
20
(defun string-replace-regexp (regexp to-string original-string)
(if (string-match regexp original-string)
(concat
(substring original-string 0 (match-beginning 0))
to-string
(do-replace regexp to-string (substring original-string (match-end 0))))
original-string))
このように使います。
(setq foo "h_o_g_e") (string-replace-regexp "_" "." foo) ; -> "h.o.g.e"
id:skoji-jp さん、ありがとうございます。
希望通りの処理ができました。
No.2
12022
ここでベストアンサー
40pt
replace-regexp-in-stringがそのまま使えます。
もっとも、複雑な置換処理をするならばバッファに入れて処理するほうがよいでしょう。
(replace-regexp-in-string "_" "." "h_o_g_e") ; => "h.o.g.e"
rubikitch さん、ありがとうございます。
やはり関数がありましたか。
これで満足です。
No.3
152
10pt
バッファを使わずにやるなら、やはり
関数をこねくりまわすしかないと思います。
関数を定義せずにもう少し短く書くなら、、
以下はどうでしょうか
(setq str "h_o_g_e")
(while (string-match "_" str)
(setq str (replace-match "." nil nil str)))
strに "h.o.g.e"が入る
setqばかりで、lisp的な美しさからは程遠いですが。。
別解として。。
chakoku
2009/03/26 18:33:12
3
1
1
1
2
1
room661
rubikitch さん、ありがとうございます。
やはり関数がありましたか。
これで満足です。