HSPTV!掲示板

この記事は投稿者により削除されました。
2021/6/8(Tue) 22:29:09

他のおかしなところ見つけ修正しました。

#packopt name "ファイルパス取得"
	centence="D:\hsp\doclib\img\browser_config_s.jpg"
	notesel centence
	size=noteinfo(1)
	dim place,size
	b=0
	repeat 
	a=instr(centence,placez,"\")
	if place(b)>0:kosuu=kosuu+1:b=b+1:place(b)=a:placez=place(b)+1
	if place(b)=-1:break
	loop
	b=1
	repeat kosuu
	noteadd "\\",place(b),1
	b=b+1
	loop
	notesel centence
	notesave "ファイルパス"

こちらでも同様のエラーメッセージが出ています。

またおかしなところ見つかりました・・・

#packopt name "ファイルパス取得"
	centence="D:\hsp\doclib\img\browser_config_s.jpg"
	notesel centence
	size=noteinfo(1)
	dim place,size
	b=0
	repeat 
	a=instr(centence,placez,"\")
	if a>0:kosuu=kosuu+1:b=b+1:place(b)=a:placez=place(b)+1
	if a=-1:break
	loop
	b=1
	repeat kosuu
	noteadd "\\",place(b),1
	b=b+1
	loop
	notesel centence
	notesave "ファイルパス"

こちらでも同様のエラーメッセージが・・・

おかしなところが重なって見つかったので、記事を消去し別のスレッドをたてさせていただきました