HSPTV!掲示板

HSP3.5 betaでNoteAddで選択したファイルをdatに記録したいのですが

	dialog"mp3",16,"音ﾌｧｲﾙ"
		if stat = 1 {
	notesel data
//	インデックス0(1行目)とインデックス1(2行目)のデータを書き出す
mes refstr

//	ファイルとして出力する
	notesave "music.dat"
	stop
		}
	if stat = 0 {
	mes"?"
		} 

のどこがいけないのでしょうか。ﾌｧｲﾙは生成されますが記録ができません。どうか
教えてください！

>NoteAddで
と言いつつ、コードにnoteaddが無いのだが。
とりあえずnote系統の命令を調べてみては？

間違えました...

*ongaku
	dialog"mp3",16,"音ﾌｧｲﾙ"
		if stat = 1 {
	notesel data
//データを書き出す
noteadd refstr,0

//	ファイルとして出力する
	notesave "music.dat"
	stop
		}
	if stat = 0 {
	mes"?"
		}

でした...すみません。　

>ﾌｧｲﾙは生成されますが記録ができません。
NO.81620のコードであれば記録できますよ。3.4でも3.5でも可能です。
余談ですが

dialog"mp3",16,"音ﾌｧｲﾙ"

をした時点でカレントフォルダが移動するため、ファイル名しか指定していない

notesave "music.dat"

というコードでは先にダイアログで選択したフォルダ、つまりカレントフォルダに保存されます。
少なくともnotesaveではファイル名だけでなくフォルダのパスも指定するべきかと。

通りすがりさんのおっしゃる通り、dialog命令を実行するとその選択されたファイルがあるディレクトリがカレントディレクトリになります。

もし以前のカレントディレクトリがわかるようでしたらchdir命令でカレントディレクトリを元に戻したり、絶対パスで書くとうまくいきます。
実行ファイルのあるディレクトリなら「dir_exe」を使えます。（ただしスクリプトエディタからのデバッグだとhsp3.exeがある場所になるためエラーが起きます）

また、これはあくまで個人的な意見ですが、処理の終わりにはnoteunsel命令を使い、アンセットしておくことをお勧めします。
二重指定になると何かと誤動作があったりします。

*ongaku
	dialog"mp3",16,"音ﾌｧｲﾙ"
		if stat = 1 {
	notesel data
//	インデッス0(1行目)とインデックス1(2行目)のデータを書き出す
chdir"system"
noteadd refstr
//	ファイルとして出力する
	notesave"system\music.dat"
	noteunsel
	stop
		}
	if stat = 0 {
	mes"?"
		}

このようなソースコードではファイルがないと出るのでC:から書かないとだめなのでしょうか？

notesave"system\music.dat"

これだと、内部的には
notesave"カレントフォルダ\\system\music.dat"
となるわけで、カレントフォルダにsystem\music.datというファイルで保存しろということです。
とりあえず\を\\に変えましょう。
そして普通に考えて音楽を選択したフォルダの中にsystemというフォルダがあるとは考えにくいですので
ある意味当然ですね。
例えば、自分もそうですがフォルダの位置を変更している人やＯＳのドライブがCではない人もいるので
Cから指定すると環境によってエラーになるので
NO.81627さんの「カレントディレクトリを元に戻したり」というのをしたほうがいいかと思います。

chdir命令は、現在のカレントから変更されます。もし「C:/a/music.mp3」というファイルを指定して開いた場合は、その時点で「C:/a/」がカレントディレクトリになります。
その後にchdir命令を使って直接「System」ディレクトリに移動していますが、この場合は「C:/a/System」にパスを移すことになります。これが原因で「ファイルが開けません」と出るのではないでしょうか。
具体的に「System」ディレクトリがどこにあるのかはわかりませんが、chdir命令をこれで理解してから修正すると違いがわかるかもしれません。

// ファイルの場所は上記と同じ場所と仮定する。

// Systemディレクトリが実行ファイルの直下にある場合
chdir dir_exe+"/system"

// ディレクトリは絶対に移動しないと言うのなら
chdir （絶対パス）

ちなみに、スクリプトエディタでは「\\」と2つ書いてやっと「\」として認識されます（これをエスケープシーケンスといいます）。これもきちんと指定しないとエラーが発生します。
chdir命令を行う前に、exist命令を使い存在の有無を確認するといいかもしれません。（ディレクトリの検索ができたかはわかりませんが…）

拙い文章、お許しください。

*ongaku

	dialog"mp3",16,"音ﾌｧｲﾙ"
		if stat = 1 {
	notesel data
//	インデッス0(1行目)とインデックス1(2行目)のデータを書き出す
chdir"system"//や(/system)(\\system)も試したが
noteadd refstr
//	ファイルとして出力する
	notesave"system\\music.dat"
	noteunsel
	stop
		}
	if stat = 0 {
	mes"?"
		}

やっぱり駄目でした。今度はchdir"system"のほうが見つからないそうです。
なぜでしょう...あるのに...

どんな状況で実行してるのか
ディレクトリ構成がどうなってるのか
分からないから的確な答えは出ない

HSPエディタから実行した場合は
カレントディレクトリはソースフォルダか
起動時のカレントデイレクトリで設定されてるフォルダになる
HSPファイルを読み込んで実行してるならカレントはソースファイルのあったフォルダ
新規製作なら設定されてるフォルダ
実行ファイルなら実行ファイルのあるフォルダ

どこにsystemフォルダがあるのか分からないと何がダメなのか分からない・・・

カレントディレクトリ/system
って構成なら

>chdir"system"
で移動するならnotesaveは

notesave"music.dat"

で良い

デスクトップのAIメルサというフォルダの1.3.xの中の3, 1.3　といファイルにあります

>新規製作なら設定されてるフォルダ
あっと
標準エディタは 無題* のカレントディレクトリは
最後にファイル名のあるタブをアクティブにした時のソースフォルダになる（HSP3.5b5）

>NO.81639
カレントはどこになってsystemはどこ？

mes "カレント＝"dir_cur
d=""
dirlist d,"*",5
mes d

で、カレントとカレント内のディレクトリの確認が出来る

一先ず命令を調べたりヘルプを見たほうがいいと思います。
今回はまだ早い気がします。

暇人!、通りすがりさんありがとうございました。
解決できませんでした...

やっぱごめん、まだ終わってなかった
今度は
dialog"mp3",16,"音ﾌｧｲﾙ"
if stat = 1 {
mes dir_cur
chdir"C:\\Users\\Jon\\Desktop\\1.3\\system"
noteadd refstr
notesave"system/music.txt",1
}
if stat = 0 {
mes"?"
}
っていうソースにしたらこんどはnoteaddのところが異常な値ですと言われたのですが
どういうところがおかしいのでしょうか？

自分で調べたりしてますか？解決しようとしてますか？
何か自分で試してみましたか？
人に聞けば教えてもらえるから調べないと思ってませんか？
少なくとも現状では自分で解決しようとしているとは思えません。

ＨＳＰスクリプトエディタのヘルプ(F1)でnoteaddを開いてよく読んでください。
ほかにもGoogleやYahoo!で「HSP noteadd」等で調べてみていろんなサイトを読んでみてください。
なぜエラーが出るのか分かるはずです。
・・・或いは焦っていたか何かでミスをしたのかもしれませんが、何にしても
自分の書いたソースコードをよく読み何かおかしな点が無いか見ればわかりますよ。

>>NO.81651

	notesel data

が、無いけど？

通りすがりさんが言われている通り、まずは使用している（する）命令を
HSP Document Libraryで確認。
「noteadd」命令使うにはまず「notesel」で対象バッファを指定とありますね。

ソース編集中に、なぜか「notesel ほにゃほにゃ」が消えたのでしょうね・・・

以下、抜粋箇所のみのソース動作版です(HSP Ver.3.5で確認ずみ）

// リリース時はコメントアウト
#define DISP_DEBUG

// mp3ファイル名を入れておく変数作成 1024は何となく
sdim music_buf,1024
// メモリノートパッド命令で使用するので対象を指定
notesel music_buf

// txtファイル指定しておいた
// 16 : ファイルOPENダイアログ指定
dialog"txt",16,"TXTﾌｧｲﾙ"

//*************************************
// 戻り値確認
// stat = 0 : キャンセルかエラー
//        1 : refstr(システム変数)にファイル名
//*************************************
if stat = 1 {

#ifdef DISP_DEBUG
	// 確認の為表示してみる
	// dir_cur : 現在のカレントディレクトリパス
	// refstr  : 選択されたファイルパス
	// "\n"    : エスケープシーケンスの改行表記
	mes dir_cur +"\n" + refstr
#endif
	// chdir"C:\\Users\\Jon\\Desktop\\1.3\\system"
	noteadd refstr
	notesave"music.txt"
} else {
	mes "ファイル選択キャンセルかエラー"
}
// noteselで指定した対象を復帰
noteunsel

#ifdef DISP_DEBUG
	stop		// 確認表示しているのでここて停止させている
#else
	end		// 通常はこちらでプログラム終了
#endif

できました！ありがとうございました！暇人さん!! 通りすがりさん。