HSPTV!掲示板

filename=dirinfo(4)
notesel tmp
noteload filename

上記のように、実行ファイルにテキストファイルをドロップさせて読み込むようなプログラムを作成しています。

Windowsの機能で作成したコピーファイルは、ファイル名が・・・
『コピー 〜 ３月配送リスト.txt』
・・・のように、スペース交じりになっているのですが、このファイルをドロップすると
内部エラー（１２）が発生してしまいます。

ファイル名からスペースを取り除くと正常に動作するのですが、
スペース交じりのファイル名でも読めるようにする方法は無いでしょうか？

ご指導お願いします。

起動パラメータの扱いは面倒ですので、私はモジュール化してます。

;===============================================================
; 起動パラメータ解析モジュール
;===============================================================
#module "_wf_commandpath"
	;---------------------------------------------------------------
	; 起動パラメータ解析
	; 使用例 : dialog ""+wf_commandpath(dir_cmdline)+"\n"+stat
	;---------------------------------------------------------------
	#defcfunc wf_commandpath str aa		; 新関数「wf_commandpath」を生成
	mref stt,64
	a="": a=aa
	;dialog ""+strlen(a)+"\n"+a
	p=0 : b="" : c=0 : drm=""
	repeat
		if p >= strlen(a) : break
		if instr(a,p," ") == 0 {
			; 開始が" "なら
			p++
		}else{
			if instr(a,p,"\"") == 0 {
				; 開始が"\""なら
				b+=drm+strmid(a,p,instr(a,p+1,"\"")+1+1)
				P+=instr(a,p+1,"\"")+1+1 : drm="\n" : c++
				;dialog "\":"+strlen(b)+"\n"+b+"\n"+p
			}else{
				; 開始が" "でも"\""でもなれけば
				if instr(a,p+1," ") != -1 {
					b+=drm+strmid(a,p,instr(a,p+1," ")+1)
					P+=instr(a,p+1," ")+1 : drm="\n" : c++
					;dialog "1:"+strlen(b)+"\n"+b+"\n"+p
				}else{
					b+=drm+strmid(a,p,strlen(a)-p) : c++
					p=strlen(a)
					;dialog "2:"+strlen(b)+"\n"+b+"\n"+p
				}
			}
		}
		wait 1
	loop
	stt=c
	return b
#global

woodfieldsさん、ありがとうございます。

ただ　正直、今のところご提示いただいたモジュールが、
どのような働きをして、どう使うのか？・・・が、まだ理解できてません。


解析に時間がかかりそうなので、取り急ぎお礼まで。

誤：b+=drm+strmid(a,p,instr(a,p+1,"\"")+1+1)
正：b+=drm+strmid(a,p+1,instr(a,p+1,"\""))

filename=wf_commandpath(dirinfo(4))
notesel tmp
noteload filename

邪魔なダブルクォートを削除するのが目的ですから、ANTARES様のご指摘のとおりだと思います。

woodfieldsさん、
ANTARESさん、どうもありがとうございます。

とりあえず組み込んで、うまく動作するようになりました。
どういう理由なのか、解析はまだ途中なので、
引き続き勉強させていただこうと思っています。

本当にありがとうございました。