2003年05月23日
_ [ももめも] メモっぽい入力。
ももめもの入力でメモっぽいものが入力されたら、Enterを押したときに自動でメモに追加するようにしてみようと、試行錯誤している。今のところ、下記のようなソースになっているんだけど、こんな感じでうまくいくかなぁ。
Private Function CheckLikeMemo(ByVal strCommand As String) As Boolean CheckLikeMemo = True If LenB(StrConv(strCommand, vbFromUnicode)) = Len(strCommand) Then '一バイト文字のみなのでメモっぽくない。 CheckLikeMemo = False Else Dim FirstWord As String FirstWord = Split(strCommand, " ", 2)(0) If LenB(StrConv(FirstWord, vbFromUnicode)) = Len(FirstWord) Then '最初の単語が一バイト文字のみなのでコマンドっぽい。 CheckLikeMemo = False End If End If End Function
2008年05月23日
_ [tDiary] 過去にっき。
適当なスクリプトを書いて、手動でコンバートしました。
require 'fileutils' require 'kconv' Dir.glob("200*/*.td[2c]") do |file| data = File.open(file) {|f| f.read} dir = "result/#{File.dirname(file)}" FileUtils.mkdir(dir) unless File.exist?(dir) File.open("result/#{file}", "w") {|f| f.write data.toutf8} end
リファラ(*.tdr)はあまり見たくないので、移行するのを止めちゃいました。 すっきりしていい感じ♪
_ [hidden] 複数のサイトに書き込みを行うインターフェースの実装。
ここ(tDiary)とか、mixiとか、Twitterとかとかとか…。
いろんなサービスがあるので、ひとりで日記的ブログ的スペースをいくつも使用している人は多いと思います。 書きたいと思ったことをすぐに書けずに、書く先を決めることから始めないといけないのはちょっとストレスが溜まります。
なので、いろんなサイトに書き込みを行える統括的なインターフェースを持ったWEBサービス(かアプリケーション)があればいいなー。 プラグインな形式で複数のサービスに対応させるようにして。
って思ってみたけど、既にありそう。 探すまでは[hidden]にしとこう。
_ Orator [午後3時。ももちん、起きれましたかー?……忙しいみたいだけど、ももめもの改良案考えてる所を見ると、まだ余裕はありそう..]