再生中の曲数の取得方法とテキストファイルへの書き込み

このQ&Aのポイント
  • 再生中の曲数を取得する方法やテキストファイルへの書き込み方法を教えてください。
  • AxWindowsMediaPlayerを使用してフォルダ内の100曲のmp3を再生していますが、途中で再生を終了させた場合に再生中の曲数を取得する方法がわかりません。また、取得した数値をテキストファイルに保存し、次回再生時には指定の曲から再生する方法も知りたいです。
  • 試しにForループを使用して100曲をリストにセットし、AxWindowsMediaPlayerを使用して再生しています。再生中の曲数を取得するためのメソッドや、取得した数値をテキストファイルに保存する方法を教えてください。また、次回再生時には指定の曲から再生するための方法も教えていただきたいです。
回答を見る
  • ベストアンサー

再生中の曲数の取得

あるフォルダに100曲くらいのmp3があります。 これをAxWindowsMediaPlayerリストに入れて、再生しています。 たとえば100曲中の12曲目の再生中に終了(例えばボタンを押す)させた場合、12という数値を取得する方法がありますか? その数値をテキストファイルに書き込んでおいて、次回再生する際は13曲目から再生したいのです。 いろいろ調べてみたのですが、取得する方法がわかりません。 よろしくお願いいたします。 下記をforで回して100曲セットしてます Me.AxWindowsMediaPlayer1.currentPlaylist.appendItem(AxWindowsMediaPlayer1.newMedia( ~~ )) 下記で再生してます Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

質問者が選んだベストアンサー

  • ベストアンサー
  • DreamyCat
  • ベストアンサー率56% (295/524)
回答No.1

すでに曲が取り込まれていて どれかの曲が選択または再生または一時停止しているときに userformを閉じると何番目かを取得(表示)します。  (リスト中の曲名を再生中の曲名で検索しています。)  (エラー処理してありません) Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim i As Long, nm As String, lstct As Long, lstnum As Long lstct = Me.WindowsMediaPlayer1.currentPlaylist.Count nm = Me.WindowsMediaPlayer1.currentMedia.Name For i = 0 To lstct - 1 If nm = Me.WindowsMediaPlayer1.currentPlaylist.Item(i).Name Then lstnum = i End If Next MsgBox lstnum + 1 & "番目" End Sub

okidsaya555
質問者

お礼

ありがとうございます。 できました。 お蔭様で意とするものが出来上がりました。 もっと簡単に取得する方法ってないんでしょうね、現在何曲目かの情報、どっかにありそうな気がするんですが....

関連するQ&A

  • シームレス再生が可能なソフトウェアMP3プレイヤー(for Win)

    題目のとおり,「シームレス」で継ぎ目無くMP3を再生できる, ソフトウェアMP3プレイヤーは無いものでしょうか? たとえば,最近はやりのノンストップメガミックスされたアルバムを, 1曲づつリッピングしてMP3にエンコードして, 曲順を正しく並べ替えてプレイリストファイルを作成して, そのプレイリストファイルを再生すると, 1曲目から2曲目に移る時,若干タイムラグが発生するので, このタイムラグが発生しないソフトを探しています。 (Tactile12000やMP3Jで あらかじめノンストップのファイルを作ってそれを再生するのは却下。 つまり,ホントにCDで聴いているように, 継ぎ目なしで自由に再生できるようにしたいわけです。)

  • i tunes 12 リピート 再生

    Windows 7 で i tunes 12 を 使用しています。 プレイリストにたくさんの曲をいれていて、リピートのすべてにチエックをつけても、1曲目が終わるとデスクトップの上部に次の曲のタイトルは表示されますが、画面は真っ黒です。再生のバーも動きません。プレイリストの曲を自動で連続再生する設定を教えてください。

  • ipodの再生(シャッフル時)について

    第5世代のipodを使用しています。 「曲をシャッフル」などで再生するとき、例えばトラック1がイントロで、トラック2が本編のようなセットになってる曲がバラバラに再生されてしまいます。 「この曲の次は必ずこの曲を再生する」のようなことは出来るのでしょうか? プレイリスト以外で再生しようとすると、1つの曲として結合するしか方法はないのでしょうか?

  • iTune再生について

    iTuneの音楽をランダム再生したいのですが1曲だけで終わってしまいます。シャッフルにチェックを入れてるのですが。ライブラリのミュージックではなくプレイリストを作って再生するのでしょうか?一応、プレイリストの方で作ってシャッフルにして再生してみましたがやはり1曲で終わってしまい、連続で再生されません。方法を教えてください。

  • winap 連続再生について

    ネットで調べて、winapでMP3を連続再生したく、プレイリストにドロップあんどドラッグしましたが、うまくいきません。 MP3を連続再生したいのですが、方法を教えていただけないでしょうか。

  • IPHONE 4S ミュージックを続きから聞きたい

    IPHONE 4Sのミュージックで、作成したプレイリストを通勤時に聴いています。 会社に着いた所で、停止をします。 そして、退社する際に、再度ミュージックを再生すると、一曲目からの再生になってしまいます。 <例> 朝、家を出る時に、10曲入ったプレイリストを再生する。 ↓ 1曲目から順に聞いていき、4曲目の途中で、会社に着いたので、停止する。 ↓ 会社から帰る時に、同じプレイリストを再生する。 ↓ 1曲目から始まる。 私の希望としては、会社から帰る時は、 停止した4曲目の途中、もしくは頭から、聞いて帰りたいのですが、可能でしょうか。 原因と対策、分かる方、宜しくお願い致します。

  • Wimampで単曲再生しかできない

    Wimamp ver5ですが、プレイリストに複数の曲がはいっていても、1つしか再生できなくなりました。 1→2→3→4… と順次再生したいのですが、1番目の曲を再生し終わると、そこで終わってしまい次の曲へ進みません。 個別の2番目や3番目の曲を再生すればできますが、やはりその曲が終わると再生が終了します。 リピートのオプションをつけても、1曲だけを何度もリピートしており、リスト全体のリピートもできません。 MP3とWavファイルの両方でこの現象がおきています。 いろいろ検索しましたがわからないので、ご存知の方よろしくお願いします。

  • itunes for macで曲を再生しようとする

    itunes for macで曲を再生しようとすると「曲を再生」「キャンセル」「曲を消去」の表示が出ます 曲を再生を押すと再生されますが、再生する度に同じことを繰り返さないといけません どうして改善したらいいでしょう?教えてください プレイリストにアルバムが入っている場合、一曲ずつ、この作業を繰り返して続けて聞けません

    • 締切済み
    • Mac
  • iTunesでプレイリストの曲一覧を取得できる?

    iTunesでプレイリストに入れてる曲の一覧って取得できないでしょうか? どんな曲がどんな順番で入っているかの一覧です。 音質を上げて曲を入れ直したいなと考えているんですが、順番を思い出せそうになくて億劫になっています。 スクショ取ることも考えましたが、曲数が多いこともあってこれが結構面倒くさい(^_^; テキストとかでコピペみたいなことはできないでしょうか? それかプレイリストのファイルがどこかにあって、それを見れば曲名と順番は分かるとか。

  • ipod nanoの再生方法について

    通常の音楽CDの他に、英会話のCDも取り込んでいるのですが、曲だけをシャッフル再生する方法はありますでしょうか? 曲と英会話のプレイリストをわけて、さらに曲のプレイリストの中で細かくプレイリスト等を作ることはできるのでしょうか? 質問がわかりにくくてすみません(><)