トップ差分一覧ソース検索ヘルプ RSS ログイン

VBScriptでwiki

VBScriptの勉強がてらWikiを書いてみた。これでローカルのＰＣでwikiを動かすことができる。
基本的に一人で使う予定なので、ページの排他制御もなにもやっていない。
もっときれいに書けるんだろうけど、まあ動くからいいか。

ページをそのままファイルとして書き出しているので、ページ名に/とか&とか>とかファイル名に使えない文字列を使うと問題が起きそうな気がする・・・・
2004/03/18追記
ページ名にこれらの文字が含まれる場合全角へ変換することにしました。

いろいろ機能を追加しました。

表示履歴
簡単検索
簡単掲示板

今後の予定としては

排他制御
もうちょっとプログラムをきれいに書き直す
ファイルの添付
画像の表示
ページ間のリンクをもっと簡単にはれる仕組みを考える

ダウンロード

VBwiki.zip

お約束をしてしまった。 - nHand (2006年05月30日 13時47分09秒)

ページを書き忘れました（げふ
http://pediandic.web.fc2.com/
でわでわ
{{comment}}

ソースを使用させていただきました。 - nHand (2006年05月30日 13時40分29秒)

はじめまして。
以下のサイトにて、HTA+MDBのwikiを公開させて頂きました。
TextをHTMLに変換する部分でvbWikiのソースを改変して使用しています。
BBS機能は私の力量＆気力不足のため削除しております=(
このソースが有ったから作れたToolです感謝かんしゃです。

ライセンスについて明示されていなかったため、
問題がありましたら直ぐに対応いたします。
でわでわ

VBWiki使わせていただいています - Fio (2005年10月16日 18時04分15秒)

はじめまして。
http://oss.moongift.jp/intro/i-619.html
でVBWikiを知り、これだぁと、ソースを参考に（というよりVBWikiのソースを出発点に）勉強を兼ねて自分専用のWikiを作成しています（現実は勝手に改造しているという状態ですが）。私の勝手な改造版の方の進捗は、
http://d.hatena.ne.jp/Fio/
の方で報告中です。（まだ公開していませんが）

ソースを拝見して気になったのですが、書き込み・読み取り用にファイルを開いた時に閉じる処理が省略されているのですが、これは閉じておいた方がいいのではと思います。具体的には、ini.vbsファイルの133,472,492行目に「f1.Close」を追加した方がよいと思います。
同じく117行目ですが、PageName?を削除した直後にPageDisp?(PageName?)すると予期せぬ結果になりそうなので、ここはPageDisp?("FrontPage")などとした方がいいように思いますがどうでしょう。

今後ともよろしくお願いします。

うおーーすばらしい！！Fioさん！惚れる！どんどん改造していってください！原形をとどめぬくらいに！ご指摘の点は修正したいと思います。ありがとうございましたー(^O^)/ - admin (2005年10月19日 21時33分08秒)

無題 - admin (2005年09月13日 22時01分31秒)

遅ればせながら・・・
cqw01311さまのurlをリンクへ変換するパッチを取り込みました。
ありがとうとうございました！かんどー！
{{comment}}

無題 - admin (2005年09月13日 21時50分26秒)

http://www.openalexandria.com/catid_41_blogid_1.html
こちらのほうで紹介されていた・・・・
個人的に気に入って下さっているとか・・・えへへ

ライセンスがないので注意とのことですが。
うーん。たいしたコードを書いたわけでもないので自由に使っていただければ、と思います。

つか恥ずかしいのであまりソース見ないで。全てその場の思いつきで書いているので・・・・ - admin (2005年09月13日 21時51分48秒)

URL自動リンクについて - cqw01311 (2005年08月31日 23時44分48秒)

はじめまして。

本文中にURL(のように見える文字列)があったら勝手にリンクするためのパッチを作ってみました。
ご笑覧くださいませ。

init.vbs.orginal Fri Jul 29 13:06:24 2005

--- init.vbs Wed Aug 31 23:36:15 2005

************
388,393 ****

--- 388,400 ----

 	regStrong.Pattern = "''(.+)''"
 	result = regStrong.Replace(result, "<strong>$1</strong>")

dim regURL
Set regURL = new RegExp?
regURL.IgnoreCase? = False
regURL.Global = True
regURL.Pattern = "(http://[!-;=?-~]+)"
result = regURL.Replace(result, "<a href=""$1"">$1</a>")

 '	msgbox result
 	PageEncord = result
 End Function

すみません。書き込み失敗してしまいました。 - cqw01311 (2005年09月01日 00時22分49秒)

行頭の半角スペースで整形済テキスト - admin (2005年07月29日 13時15分49秒)

assert様のご要望により、行頭に半角スペースがある場合整形済テキストとして表示するよう改良いたしました。
お試しください。ではー

a - aa (2005年08月03日 17時44分33秒)

VBWiki使わせていただいています。 - assert (2005年06月17日 00時59分03秒)

VBWiki面白いですねぇ。ありがたく使わせていただいています。
ToDo?やWishList?など、エディタでちまちまいくつかのファイルに分けて書いてあったのをまとめることが出来ました。
このVBWikiならWindowsデフォルト搭載の機能だけでWikiをローカルに実現できてしまうという可能性があるわけで、非常に素人にも優しい・お手軽なWikiですね。

で、要望なんですが、行頭のSPACEキャラクターによるブロックなども対応してくれるとうれしいです。
ソースを覗いてみたもののVBScriptはさっぱりで、なかなか自分で機能拡張が出来ないでいます。
お時間があればご対応頂けるとうれしいです。

ご意見ありがとうございます。次の更新の時には取り入れたいと思います。ではー - admin (2005年07月24日 20時00分29秒)