HSPTV!掲示板

sdim B_data,30000

	bload"filename.txt.",B_data
	notesel B_data

	
	
	sdim B_name,10,notemax
	dim B_buryoku,notemax
	dim B_tiryoku,notemax
	dim B_tousotu,notemax
	dim B_seizi,notemax
	dim B_zinbou,notemax
	

	repeat notemax
		noteget get,cnt
		size=0
		getstr B_name.cnt,get,size,',':size=strsize
		getstr B_buryoku.cnt,get,size,',':B_buryoku.cnt=get:size=strsize
		getstr B_tiryoku.cnt,get,size,',':B_tiryoku.cnt=get:size=strsize
		getstr B_tousotu.cnt,get,size,',':B_tousotu.cnt=get:size=strsize
		getstr B_seizi.cnt,get,size,',':B_seizi.cnt=get:size=strsize
		getstr B_zinbou.cnt,get,size,',':B_zinbou.cnt=get:size=strsize
	loop
	

filename.txt内

太郎,90,80,70,60,50,
花子,10,10,15,20,30,

と書いて上のスクリプトを実行したのですが　B_name　はうまく読み取れるのですが

他の B_buryoku などが　太郎,90,80,70,60,50,

と出てきてしまいます。

ヘルプやいろいろな方のホームページを参考にさせていただいて

,　で区切るように出来たと思ったのですが　うまくいきません。

もしよろしければ原因や対策等のアドバイスをいただければと思います。

是非　ご回答、ご教授　よろしくお願いいたします。

長文失礼しました。

＞他の B_buryoku などが　太郎,90,80,70,60,50,
＞と出てきてしまいます

mes B_buryoku.0

と打った場合です。本当は　90 だけが出てきて欲しいと思っています。

普通に

> B_(いろいろ).cnt=get

しているからではないですかね？？？ （＾＾;

これ。
>size=strsize

Kpanさん、nさん　ご返事本当に有り難うございます
>Kpanさん
getに代入すると次のgetに繋がってしまうからでしょうか…？
>nさん
sizeにstrsizeのを代入していかないと次のgetstr命令でstrsizeが0に戻ってしまったりはしませんでしょうか？

>>Kpanさん
>getに代入すると次のgetに繋がってしまうからでしょうか…？

getに代入なんかしてないでしょ。

>>nさん
>sizeにstrsizeのを代入していかないと次のgetstr命令でstrsizeが0に戻ってしまったりはしませんでしょうか？
getstr直後のstrsizeって何なの？

ちゃんとマニュアルを読もうよ。

>nさん
ありがとうございます。

size=strsize

の部分を

size=size+strsize

に変更したとこと解決できました！

もうひとつお聞きしたいのですが
#int は変数の型を数値に直してくれるのではないのでしょうか？
いまのままだと　str型　で計算できないのですが…。

もしよろしければアドバイスお願いします＞＜

すいません。的違いだったようです。
もしよろしければstr型の変数で　/や*　で計算ができるようにはできる方法はありませんでしょうか？

よろしければご回答お願いします。

こんばんは、矢野です。
取り出し始めは、strsize 分だけ上乗せするとうまくいきます。

sdim B_data,30000
B_data="太郎,90,80,70,60,50\n花子,10,10,15,20,30"
	;bload"filename.txt.",B_data
	notesel B_data
	
	sdim B_name,10,notemax
	dim B_buryoku,notemax
	dim B_tiryoku,notemax
	dim B_tousotu,notemax
	dim B_seizi,notemax
	dim B_zinbou,notemax

	repeat notemax
		noteget get,cnt
		size=0
		getstr B_name.cnt,get,size,',':size+strsize
		mes B_name.cnt
		getstr B_buryoku.cnt,get,size,',':size+strsize
		mes B_buryoku.cnt
		getstr B_tiryoku.cnt,get,size,',':size+strsize
		mes B_tiryoku.cnt
		getstr B_tousotu.cnt,get,size,',':size+strsize
		mes B_tousotu.cnt
		getstr B_seizi.cnt,get,size,',':size+strsize
		mes B_seizi.cnt
		getstr B_zinbou.cnt,get,size,',':size+strsize
		mes B_zinbou.cnt
	loop

おや、もう解答が出ていましたね。

>矢野さん
ご回答誠にありがとうございます。
なんとか解決できました。

後者の質問も自己解決できました。　ありがとうございました。

「こうすればうまくいく」より「ここが原因」を教えたほうが考える力が身につく。

初心者より初級者、
初級者より中級者、
中級車より上級者

上にいけばいくほど、自分がどういうときにどういうところでミスを犯すのかを理解しているものだ。
うまくいく方法を教えるより、うまくいかない原因を教えることのほうが、自分を知ることにつながる。

>中級車より上級者

申し訳ありませんでした。
中級車になっていました。中級者の間違いです。