ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

Lisp@UNIX版

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>179 > clawk を使ってみた．awk よりかなーり遅いんだが，漏れ何かおかしな事してる > かな？（500 個のテキストファイルを処理して awk: 2 秒弱 clawk: 35 秒） > > (defmacro $gsub! (pattern replacement &optional (source '$0)) > `(setf ,source ($gsub ,pattern ,replacement ,source))) > > (defun html2txt () > ($gsub! "<[^>]*>" "") > ($gsub! ">" ">") > ($gsub! "<" "<") > ($gsub! """ "\"") > ($gsub! " " " ") > ($print $0)) > > (defvar flag nil) > (defawk egroup->txt () > (BEGIN (setf flag nil)) > (#/^<\/pre>/ (setf flag nil)) > (t (if flag (html2txt))) > (#/^<!-- Body !-->/ (setf flag t))) > > (defun convert () > (with-open-file (f "./output.txt" :direction :output) > (let ((*standard-output* f)) > (dolist (p (directory "home:doc/ML/emacs21/")) > (egroup->txt p))))) >
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.014s