HSPTV!掲示板

この記事は投稿者により削除されました。
2008/11/15(Sat) 13:04:15

ちょっと間違いました
sa=strlen(data)
bsave "save.txt",data,sa

よ
用件はいったい…？？

俺のエスパーとしての能力を使った感じでは、答えはこうだな！！

#module "mDAY"
	dim  t   , 12 : sdim day , 10 , 7
#deffunc mday_init
	t   = 0,3,2,5,0,3,5,1,4,6,2,4
    day = "日"  , "月"  , "火"  , "水"  , "木"  , "金"  , "土"
	return
#defcfunc leapyear int yy
	ret = 0 : y   = yy
	if y \ 4 = 0 and y \ 100 != 0 : ret = 1
	if y \ 400 = 0                : ret = 1
	return ret
#defcfunc dayofweek int yy , int mm , int dd
	y  = yy : m  = mm : d  = dd : 	y -= m < 3
	return ( y + (y / 4) - ( y / 100 ) + ( y / 400 ) + T( m - 1 ) + d ) \ 7
#defcfunc weekno int ww
	if ww < 0 or ww > 6 :return ""
    return day( ww )
#defcfunc dayofweekname int yy , int mm , int dd
    return weekno( dayofweek( yy , mm , dd ) )
#global
	mday_init
	data = "2008年11月15日　は　" + dayofweekname(2008,11,15) + "曜日デス。"
	sa =strlen( data )
	bsave "save.txt" , data , sa

テキストファイルを出力したいならnote〜命令を使いましょう。

	notesel buf
	noteadd "ちょっと間違いました\nsa=strlen(data)\nbsave \"save.txt\",data,sa"
	notesave "save.txt"

	mes "by え （"+strsize+" バイト）