HSPTV!掲示板

title "保存用" 
buffer 1
font "MS UI Gothic", 16, 1
value_color = $FF, $FF, $FF
gosub *draw
screen 0,700,470
objimage 1, 0, 0, 0, 30, 0, 60
objsize 40,20 
pos 650,0 :button "",*owari 
mx=5 : my=30 : px=3 : py=3 
pos 5,29
sdim text, 0
notesel buf
    mesbox text, 689, 360
objimage -1,0
objmode 2
	font "MS UI Gothic", 25, 
objsize 200,50
pos 0,405
	button "保存...", *save
pos 250,405
	button "クリア", *clear
pos 500,405
	button "読み込み用を起動",*Load
*main 
redraw 0 
color 0,150,255 : boxf 0,0,700,1000
color 255,255,255 : boxf 100,30,4,194
color 0,0,0 : pos 5,5 : mes "メモ帳(作成用)"
pos 5,30
mes ""
redraw 
await 15 
goto *main 
*owari 
end
*draw
color 255,0,0
boxf 0, 0, 100, 30
color 255,80,80
boxf 0, 30, 100, 60
color 255,50,50
boxf 0, 60, 100, 90
color value_color.0, value_color.1, value_color.2
pos 12, 3
mes "×"
pos 12, 33
mes "×"
pos 12, 63
mes "×"
return
*clear
	cls
goto *memo
*save
	dialog "txt", 17, "保存する名前"
	if stat = 0 : stop

	notesel text
	notesave refstr
	stop
*Load
	exec "Notepad2.exe"

これでメモ帳（保存用）を作成したのですが、試しに保存しても、ただの拡張子のないファイル
になってしまいます。
いちいち名前の後に.txtとつけるとテキストファイルになります。
でもこれじゃあ少し面倒です。
どうやったら自動的に拡張子(txt)が付くでしょうか？

ヒント
dialog
refstr
getpath

いろいろ調べてみましたが、よくわかりませんでした。
おそらく、getpath命令で拡張子を付けるのだと思いますが...

あ！！！
サンプルの中にメモ帳もどきがありました！！
迷惑おかけしてすみませんでしたOrz
*saveのところを

*save
	dialog "txt", 17, "保存する名前"
	if stat = 0 : stop
    fname = refstr
	exname=getpath(fname,2)		; ファイル名の拡張子を取得
	if exname="" : fname+=".txt"	
	notesel text	
	notesave fname

としたらできましたｗｗ

チェック忘れてました

>>Cydia.hatenaさん
多分ggったんでしょうが…実は調べる場所が意外(?)な所だったりします。
実はHSPサンプルスクリプトのeditor.hspに
かgetpathを利用した拡張子追加のサンプルがあります
それを参考にされてはいかがでしょうか。
サンプルは
getpathでF1したときの逆引きで出てきます。

連レスごめんなさい。

>NO.54160-NO.54161

文章入力中に書き込みがされたとは…
不覚っorz

すいません。一度テストした時にエラーが発生しました。
#HSP script preprocessor ver3.32 / onion software 1997-2012(c)
#Use file [hspdef.as]
#HSP code generator ver3.32 / onion software 1997-2012(c)
#未初期化の変数があります(buf)
#ラベルが存在しません [memo]
???(66) : error 19 : 致命的なエラーです (66行目)
ということで、*memoラベルがないです。僕が改良させました。
*memoラベルがないので、*memoラベルを入れました。あと、初心者用ヘルプも付けました。
連レスですいませんが、よろしくお願いします。

NO.54236の人です。*memoラベルが無いのでソースを書きこんできました。
*memo
title "保存用"
buffer 1
font "MS UI Gothic", 16, 1
value_color = $FF, $FF, $FF
gosub *draw
screen 0,700,470
objimage 1, 0, 0, 0, 30, 0, 60
objsize 40,20
pos 650,0 :button "",*owari
mx=5 : my=30 : px=3 : py=3
pos 5,29
sdim text, 0
notesel buf
mesbox text, 689, 360
objimage -1,0
objmode 2
font "MS UI Gothic", 25,
objsize 200,50
pos 0,405
button "保存...", *save
pos 250,405
button "クリア", *clear
pos 500,405
button "読み込み用を起動",*Load
*main
redraw 0
color 0,150,255 : boxf 0,0,700,1000
color 255,255,255 : boxf 100,30,4,194
color 0,0,0 : pos 5,5 : mes "メモ帳(作成用)"
pos 5,30
mes ""
redraw
await 15
goto *main
*owari
end
*draw
color 255,0,0
boxf 0, 0, 100, 30
color 255,80,80
boxf 0, 30, 100, 60
color 255,50,50
boxf 0, 60, 100, 90
color value_color.0, value_color.1, value_color.2
pos 12, 3
mes "×"
pos 12, 33
mes "×"
pos 12, 63
mes "×"
return
*clear
cls
goto *memo
*save
dialog "txt", 17, "保存する名前"
if stat = 0 : stop
fname = refstr
exname=getpath(fname,2) ; ファイル名の拡張子を取得
if exname="" : fname+=".txt"
notesel text
notesave fname

*Load
exec "Notepad2.exe"

連レスすいません。

わすれました。。。。