• @関数
  
  1. 自分のパスとファイル名を取得（例：test\work.nsf）
     @subset(@DbName;-1)
     
     
  2. 自分のパスだけ取得（例：test）
     @LeftBack(@Subset(@DbName;-1);"\\")
     
     
  3. 自分のファイル名だけ取得（例：work.nsf）
     @Right(@Subset(@DbName;-1);"\\");
     
     -----以下Web用
     
  4. サーバ名直下へのリンクを作成（例："http://testserver/"）
     "http://"+@leftback(@name([abbreviate] ;@subset(@dbname;1));"/")+"/"
     ※でも、インターネットホスト名もこれで取れるのかな？まだ内部ネットワーク用しか作ったことがないのですが・・。
     
     
  5. 自分自身へのリンクをフルパスで作成（例："http://testserver/work/test.nsf"）
     "http://"+@leftback(@name([abbreviate] ;@subset(@dbname;1));"/")+"/"+@ReplaceSubstring(@Subset(@DbName; -1); "\\"; "/")
     
  
  
• LotusScript
  必要な箇所だけコピーしてそのまま使えるという寸法です(^^;
  

  'いろいろ宣言(って、必要最低限・・)
  	Dim Session As New NotesSession
  	Dim DB As NotesDatabase
  	Set DB = session.CurrentDatabase 
  	
  'fPath0に自分のパスとファイル名を取得（例：　test\work.nsf）
  	fpath0 = DB.FilePath
  	
  'fPath1に自分のパスだけ取得（例：　test\）
  	fpath0 = DB.FilePath
  	fpath1 = Left(fpath0, Len(fpath0) - Len(DB.FileName))
  	
  'fPath2に自分のファイル名を取得（例： work.nsf）
  	fpath2 = DB.FileName
  	
  'fPath3に自分のパスとファイル名を/区切りにする（例：　test/work.nsf)。URLにしたいときとか。
  	fpath3 = DB.FilePath
  	position = Instr(1,fPath3,"\")
  	Do While Position >0	
  		Mid(fPath3, position, 1)="/"
  		position = Instr(position,fPath3,"\")
  	Loop
  	
  'サーバ名不定で自分DBに対してリンクを張りたいときは、<a href="/ディレクトリ名/DB名.nsf">○○</a>と書くので
  'それ用に作るとき。（"/"を頭に付けるだけ・・・。）
  	fpath4 = DB.FilePath
  	position = Instr(1,fPath4,"\")
  	Do While Position >0	
  		Mid(fPath4, position, 1)="/"
  		position = Instr(position,fPath4,"\")
  	Loop
  	fPath4="/"+fPath4
  

目次に戻る