HSPTV!掲示板

質問です。
画像ビューアを作成したのですが、関連付けを設定しても画像ファイルをダブルクリックして開くと、
ダブルクォーテーションが付加されていて読み込みエラーになってしまいます。
プログラムへ直接画像ファイルをD&Dして起動すると、ダブルクォーテーションが抜かれており、きちんと表示されます。
どのように改善したらよいでしょうか？

file=dir_cmdline
if peek(file, ) = '"' : getstr file, file, 1, '"'
if file!"":goto*get_data
dialog "jpg",16
file=refstr
*get_data
	dialog file;ファイルパス確認
	picload file
	stop

hsp dir_cmdline ダブルクォーテーション
でgoogle で検索すると、すぐに方法がみつかると思います。

検索して試してみましたところ、
関連付けのアクションを実行するアプリケーションで、
"C:\Program Files\hsp\TEST.exe" "%1"
を、
"C:\Program Files\hsp\TEST.exe" %1
にすると、ダブルクォーテーションは外れました。が、
今度は存在するはずのファイルが読み込めず、
またしてもエラーになってしまいます。

渡されてきた文字列が半角 ”で始まっていたら、
strmid か何かで 2バイト目から元の文字数 -2 を取り出せば
ダブルクォーテーションが外れて使えるようになる　かなー…

以前自分で使うツールではそーしてました。

今となっては特殊な環境なので参考にならないかもしれませんが、
Windows2000　SP4　HSP3.1
Windows2000　SP4　HSP3.2
どちらの環境でも
上記コードで実行ファイル化して関連付けをして起動すると

ソフト起動　＞　ファイル読み込み
ダブルクリック
Ｄ＆Ｄ

全ての動作で全く問題なく期待通りに素直に開けます。

XPやVistaだとだめなのかな？

うーん、何度やっても読み込めないです。
プログラム側に問題がないとすれば、
関連付けの設定が悪いんでしょうか?
ちなみにOSはWinXP SP3です。

XP Pro SP3で試してみました。
[HSP拡張マクロを使用する]を有効で、
CEOさんと同様にダブルクリックで失敗しました。

http://hsp.tv/play/pforum.php?mode=pastwch&num=11662
http://hsp.tv/play/pforum.php?mode=pastwch&num=20222

上で、お歴々のかたがたが答えられているので処理については問題ないと思いますが、
私の場合だとほかの部分でも使っているので

http://scripttpircs.seesaa.net/article/112296780.html

のReplace使って処理してしまいそうな気がします。

　先頭に半角スペースが入るようです。

＞ANTARESさん

検証能力が足りなくてすいません orz
ヒントありがとうございます。

＞CEOさん

file=dir_cmdline
repeat 2
	if peek(file,cnt)='"' : getstr file, file, cnt+1, '"'
loop
if file!"":goto*get_data
dialog "jpg",16
file=refstr

*get_data
	;dialog file;ファイルパス確認
	bsave dirinfo(0)+"\\file.txt",file,strlen(file)
	picload file
	stop

一応説明しておくと、
Windows2000 SP4 では最初のコードで問題ありませんでした。
WindowsXP Pro SP3では、

ソフト起動　＞　ファイル読み込み
　：fileに只のファイルパスが入る
Ｄ＆Ｄ
　：fileにダブルクォーテーションで括られたファイルパスが入る
ダブルクリック
　：fileに最初に半角スペース、ダブルクォーテーションで括られたファイルパスが入る

なので、条件わけに
何もしなくて良いもの
ダブルクォーテーション分1ビットずらしたものと
スペースとダブルクォーテーション分2ビットずらしたもの
3種類必要なようです。
上のはリピート使ってまっすが、実行速度などで問題があればその辺は適当に

if peek(file,)='"' : getstr file, file, 1, '"'
if peek(file,1)='"' : getstr file, file, 2, '"'


というか、この問題、Kpanさんのとこ経由して結構引っかかるかもしれませんね。

ANTARESさんの回答を元に、
左端の半角スペースを削除することで表示することができました!
回答してくださった皆さん、本当にありがとうございました。

file=dir_cmdline
if peek(file, ) = '"' : getstr file, file, 1, '"'
if file!"":goto*get_data
dialog "jpg",16
file=refstr
*get_data
	file=strtrim(file,1)
	picload file
	stop

すいません、付け足しとして・・・
関連付けのアクションを実行するアプリケーションが
"C:\Program Files\hsp\TEST.exe" %1
だと、左端のスペースを削除することできちんと読み込めるようですが、
"C:\Program Files\hsp\TEST.exe" "%1"
にすると、左端のスペースを削除しても読み込むことができません。

先ほどシモンさんが載せてくださったスクリプトは、
"C:\Program Files\hsp\TEST.exe" "%1"
にすると読み込めるようです。

・・・なんかややこしいですね

以下の場所にstrtrim入れたらどうでしょう？
最初に両側のスペース外しておけば、条件分けが一箇所ですむので、
%1、"%1"のどちらの場合でも対応できるのではないでしょうか？

HSP3.2なら形的にこの方が綺麗ですね。

HSP3.2用

file=dir_cmdline
file=strtrim(file,3)　;file=strtrim(file,1)でも可
if peek(file, ) = '"' : getstr file, file, 1, '"'
if file!"":goto*get_data
dialog "jpg",16
file=refstr

*get_data
	bsave dirinfo(0)+"\\file.txt",file,strlen(file)
	picload file
	stop

私はまだHSP3.1を中心に使用しているので、
strtrimは3.2から対応ですから使えないんです。

HSP3.1用

file=dir_cmdline
repeat 2
	if peek(file,cnt)='"' : getstr file, file, cnt+1, '"'
loop
if file!"":goto*get_data
dialog "jpg",16
file=refstr

*get_data
	;dialog file;ファイルパス確認
	bsave dirinfo(0)+"\\file.txt",file,strlen(file)
	picload file
	stop

解決している件をしつこく追いまわして申し訳ないのですが、追記です。

リピートで10000回回して時間測定してみました。
HSP3.2で実行ファイルを作って、各関連付けして測定

;1.　8.5ms〜9.5ms
if peek(file,0)='"' : getstr file, file, 1, '"'
if peek(file,0)=' ' : getstr file, file, 2, '"'

;2.　8.5ms〜9.5ms
if peek(file,0)='"' : getstr file, file, 1, '"'
if peek(file,1)='"' : getstr file, file, 2, '"'

;3.　11.5ms〜12.5ms ;リピート使ってますから…orz
repeat 2
if peek(file,cnt)='"' : getstr file, file, cnt+1, '"'
loop

;4.　19.5ms〜20.5ms ;時間倍かかってますが…orz
file=strtrim(file,3)　;file=strtrim(file,1)でも可
if peek(file,)='"' : getstr file, file, 1, '"'

１か２の記述のほうが速度が速いようなので、
素直に記述したほうがいいようです。

Windows2000+SP4、WindowsXPPro+SP3で確認済みの
HSP3.1以降3.2にも適用できる方法として

file=dir_cmdline
if peek(file,)='"' : getstr file, file, 1, '"'
if peek(file,)=' ' : getstr file, file, 2, '"'
;以下の二つもやっていることはほぼ一緒です。
;if peek(file,0)='"' : getstr file, file, 1, '"'
;if peek(file,1)='"' : getstr file, file, 2, '"'
if file!"":goto*get_data
dialog "jpg",16
file=refstr

*get_data
	;dialog file;ファイルパス確認
	bsave dirinfo(0)+"\\file.txt",file,strlen(file)
	picload file
	stop

をお勧めします。

Vistaとか7とかはどうなんでしょうね？

シモンさん、検証ありがとうございました。
VistaのPCがあるので、時間を見つけて調べてみたいと思います。

WindowsVistaBusinessで確認しました。
どうやら、先頭に半角スペースが入らないようです。
ダブルクォーテーションを抜くだけで表示できました。

file=dir_cmdline
if file!"":goto*get_data
end
*get_data
if peek(file,)='"' : getstr file, file, 1, '"'
notesel file
notesave "data.txt"
picload file
stop

data.txtに書きこまれたデータ
C:\Users\CEO\Desktop\TESTPIC\001.jpg

＞ダブルクォーテーションを抜くだけで表示できました。

検証確認、お疲れ様です。

すると、WindowsXPのみ、
もしくは、WindowsXPのサービスパックを当てていることにより
バグが発生しているのかもしれませんね。