初夏嵐

シルマリルの物語 改訂版
出てました．
旧版の上下巻も持ってるのですが，何やら追補されてるようなので買いますた．
「指輪」サガではこれが一番好きです．
BS漫画夜話 再放送
今回見たのは「幽☆遊☆白書」「パトレイバー」「最終兵器彼女」．
高橋しんは最近苦手気味．
「いいひと」途中まで単行本買って読んでたのですが，この人の漫画はやたら感情に響くんですよ．
痛いくらいに．
で，「彼女」ですが，連載開始時に少し拾い読みしてました．
今回の放送を見ながら，一度読んでみようかなと思いました．
ただし，途中までは．
後半を見ていると，もう凄まじいですね．
レギュラー陣の話を聞いているだけで心臓が縮み上がりました．
ストーリーも逝くとこまで行ってるみたいですね．
「いいひと」のときから「絵」がコントロールが効いてるなぁ，と思ってましたが，
なるほどお話もコントロールが効いてるようですね．
オープンオフィス
マクロで現在のファイルネームを取得する方法．
Excel では CurrentFileName = thisWorkBook.Name
thisComponent.location でフルパスのファイルネームが次のような URL形式で取得できる．
file:///D:/Documents%20and%20Settings/user/%E3%83%87%E3%82%B9%E3%82%AF%E3%83%88%E3%83%83%E3%83%97/RecruitIndex_20030627.sxc
ので，そこからファイルネームを切り出す．
下記の CurrentDir は windows版では CurDir がうまく動かないため．

Dim thisBook as object
thisBook = thisComponent
CurrentFileName = GetFileName(thisBook.location)
CurrentDir = GetPath(thisBook.location)



Function GetFileName (ByVal fullPath As String) As String
Dim i, j, tmpLength As Integer
j = 0
tmpLength = Len(fullPath)
for i = 1 to tmpLength
if Mid(fullPath, i, 1) = "/" then
j = i
end if
next i
GetFileName = Mid (fullPath, j + 1, tmpLength - j)
End Function



Function GetPath (ByVal fullPath As String) As String
Dim i, j, tmpLength As Integer
j = 0
tmpLength = Len(fullPath)
for i = 1 to tmpLength
if Mid(fullPath, i, 1) = "/" then
j = i
end if
next i
GetPath = Mid (fullPath, 1, j)
End Function