« 空想モード | Main | 脱線事故 »

2005.04.25

は~とデーターベース計画


楽しい曲を聴きたいときは楽しい曲を、静かな曲を聴きたいときは静かな曲を検索して聴く事が出来るデーターベースプログラムを作る様子を公開しています。

いまだにマイペースで作っていますが、今はプレイリストのような機能をつくっています。

プレイリストはサーバーのデーターベースの中にフォルダー階層を作って保存するようにするので、プレイリストのタイトルとともにフォルダー階層を指定する為にフルパスを設定する必要があります。
その設定をする部分をつくりました。

'タイトルのフルパス
'パスの書式:親フォルダーのフルパス + "\" + 自分のタイトル
'      ルートフォルダーのフルパスは""(文字なし)
Public Property fullPath() As String
 Get
  If Not (Me.parent Is Nothing) Then
   fullPath = (New StringBuilder).Append(Me.parent.fullPath).Append(Favorite.DELIMITER).Append(Me.title).ToString()
  Else
   fullPath = ""
  End If
 End Get
 Set(ByVal aPath As String)
  '自分をルートフォルダーにセット
  Me.Init()
  'サブフォルダーへ移動、タイトルを設定する
  Dim subNames As String() = aPath.Split(Favorite.DELIMITER.ToCharArray)
  For i As Int32 = 1 To subNames.GetUpperBound(0)
   '自分のフォルダー階層にあるサブフォルダーを取得(自分のコピーを親に設定する)
   Dim subFlds As clsTitle() = Me.GetNewSubTitles(subNames(i), Me.MakeNewCopy)
   If subFlds.Length = 1 AndAlso subFlds(0).title = subNames(i) Then
    '自分をサブフォルダーに移動させる
    subFlds(0).CopyMembersTo(Me)
   Else
    '存在しないパスまたは複数の検索あり →例外を発生させる 未完成
    Exit For
   End If
  Next i
 End Set


« 空想モード | Main | 脱線事故 »

Comments

Post a comment



(Not displayed with comment.)




TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/4052/3846429

Listed below are links to weblogs that reference は~とデーターベース計画:

« 空想モード | Main | 脱線事故 »