HSPTV!掲示板

いきづまってしまい質問させてください．
下記のようなテキストファイルをnoteloadで
読込みたいのですが，うまく変数に格納できません．
アドバイスいただきたくお願いしまっす．m(__)m

<読込みファイル形式>
1000
1 4.739460599914135E-005 73.3138593911322
2 2.81572526032383 73.3569657416141
3 5.68949072974689 73.6037516224120
4 8.78130989927947 74.7687421617313
↓　 ↓　　　　　　　　↓
　　（1001行まで続く）


<プログラム例>
dim No, 1000
ddim XX, 1000
ddim YY, 1000

repeat int1000
n = cnt
noteget l , (n+1) ;2行目から各行を取得
i = 1
repeat 3
getstr fs , l , i ,''
i += strsize
if fs = " " : continue cnt
if fs = "　" : continue cnt
switch cnt
case 0
No.n = int(fs)
case 1
XX.n = str(fs)
case 2
YY.n = str(fs)
swend
loop
loop

えと、まず結果がどうなってほしいのかわかんないので理想となる結果を提示していただきたい。
こっちがスプリクトを加工せずとも実行できるようにしていただきたい。

l={"1000
1 4.739460599914135E-005 73.3138593911322
2 2.81572526032383 73.3569657416141
3 5.68949072974689 73.6037516224120
4 8.78130989927947 74.7687421617313
"}

dim No, 1000 
ddim XX, 1000 
ddim YY, 1000

repeat 999
...
...
..
.

スプリクトは＜ｐｒｅ＞〜＜/ｐｒｅ＞間で囲ったほうが見やすいデスゾ^^

>アドバイスいただきたくお願いしまっす．m(__)m
　まともに答える気がしないので揚げ足を取っておきます。
・noteloadがない
・noteselがない

ちょっとだけアドバイス。
dialog "fs="+fs,2: if stat==7: end

どもbegriffさん返信ありがとうございました．
再度テストできるようスクリプトとテキストファイル作成してみました．
理想とする内容は，テキスト内の数値を,そのまま出力したいのです.
テキスト内の数値にて，１列目をNoNodeに，2列目をXXに，3列目をYYに
格納したいのですが，XXとYYが全て空白になってしまいます．
getstrのiを変更すると数値がでるときがあるのですが，行全て読込まれて
しまいます．なにかいい手があればと・・・．お願いいたします．(>_<)


＜読込みテキストファイル 001.txt＞
1737
1 4.739460599914135E-005 73.3138593911322
2 2.81572526032383 73.3569657416141
3 5.68949072974689 73.6037516224120
4 8.78130989927947 74.7687421617313
5 11.1913944231840 75.6004876536882
6 13.2691737788028 76.3836799974114
7 15.1629804023969 76.7259695936313
8 17.0861272558055 76.7779476642557
9 -4.434351900570531E-005 73.3138593274474
10 18.3999267831224 76.8772291185430

<プログラム例>
＜ｐｒｅ＞ cls 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ width 500,500 ＜/ｐｒｅ＞
＜ｐｒｅ＞ notesel s_out ＜/ｐｒｅ＞
＜ｐｒｅ＞ notesel s_in ＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim bu ,10000 ＜/ｐｒｅ＞
＜ｐｒｅ＞ notesel bu ＜/ｐｒｅ＞
＜ｐｒｅ＞ noteload "001.txt" ＜/ｐｒｅ＞
＜ｐｒｅ＞ 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim l , 1000 ＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim fs ,2000 ＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim Nmax, 1 ＜/ｐｒｅ＞
＜ｐｒｅ＞ 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ noteget Nlmax , 0 ＜/ｐｒｅ＞
＜ｐｒｅ＞ mes "Nlmax=" + Nlmax ＜/ｐｒｅ＞
＜ｐｒｅ＞ repeat 100 ＜/ｐｒｅ＞
＜ｐｒｅ＞ getstr Nmax,Nlmax,i,' ' ＜/ｐｒｅ＞
＜ｐｒｅ＞ i += strsize ＜/ｐｒｅ＞
＜ｐｒｅ＞ if fs = " " : continue cnt ＜/ｐｒｅ＞
＜ｐｒｅ＞ if fs = "　" : continue cnt ＜/ｐｒｅ＞
＜ｐｒｅ＞ if int(Nmax) >0 : break 　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ if Nmax = " " : continue 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ loop 　　　　　　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ 　　　　　　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ 　　　　　　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim NoNode, int(Nmax) 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim XX, int(Nmax) 　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ sdim YY, int(Nmax) 　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ 　　　　　　　　　　　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ repeat int(Nmax) ＜/ｐｒｅ＞
＜ｐｒｅ＞ n = cnt 　　　　　＜/ｐｒｅ＞
＜ｐｒｅ＞ noteget l , (n+1) ＜/ｐｒｅ＞
＜ｐｒｅ＞ i = 1 ＜/ｐｒｅ＞
＜ｐｒｅ＞ repeat 3 ＜/ｐｒｅ＞
＜ｐｒｅ＞ getstr fs , l , i ,'' ＜/ｐｒｅ＞
＜ｐｒｅ＞ i += strsize ＜/ｐｒｅ＞
＜ｐｒｅ＞ if fs = " " : continue cnt ＜/ｐｒｅ＞
＜ｐｒｅ＞ if fs = "　" : continue cnt ＜/ｐｒｅ＞
＜ｐｒｅ＞ switch cnt ＜/ｐｒｅ＞
＜ｐｒｅ＞ case 0 ＜/ｐｒｅ＞
＜ｐｒｅ＞ NoNode.n = int(fs) ＜/ｐｒｅ＞
＜ｐｒｅ＞ case 1 ＜/ｐｒｅ＞
＜ｐｒｅ＞ XX.n = str(fs) ＜/ｐｒｅ＞
＜ｐｒｅ＞ case 2 ＜/ｐｒｅ＞
＜ｐｒｅ＞ YY.n = str(fs) ＜/ｐｒｅ＞
＜ｐｒｅ＞ swend ＜/ｐｒｅ＞
＜ｐｒｅ＞ loop ＜/ｐｒｅ＞
＜ｐｒｅ＞ 　loop ＜/ｐｒｅ＞
＜ｐｒｅ＞ ＜/ｐｒｅ＞
＜ｐｒｅ＞ ＜/ｐｒｅ＞
＜ｐｒｅ＞ 　repeat int(Nmax) ＜/ｐｒｅ＞
＜ｐｒｅ＞ 　n = cnt + 1 ＜/ｐｒｅ＞
＜ｐｒｅ＞ mes "NoNode=" + str(NoNode.cnt) +" XX= "+ str(XX.cnt) +" YY= "+ str(YY.cnt) ＜/ｐｒｅ＞
＜ｐｒｅ＞ loop ＜/ｐｒｅ＞
＜ｐｒｅ＞ ＜/ｐｒｅ＞
＜ｐｒｅ＞ STOP ＜/ｐｒｅ＞

	cls 
	width 500,500 
	notesel s_out 
	notesel s_in 
	sdim bu ,10000 
	notesel bu 
	
	
	//＜読込みテキストファイル 001.txt＞ noteload 代用
	bu={"
	1737
	1 4.739460599914135E-005 73.3138593911322
	2 2.81572526032383 73.3569657416141
	3 5.68949072974689 73.6037516224120
	4 8.78130989927947 74.7687421617313
	5 11.1913944231840 75.6004876536882
	6 13.2691737788028 76.3836799974114
	7 15.1629804023969 76.7259695936313
	8 17.0861272558055 76.7779476642557
	9 -4.434351900570531E-005 73.3138593274474
	10 18.3999267831224 76.8772291185430
	"}
	
	
	sdim l , 1000 
	sdim fs ,2000 
	sdim Nmax, 1 
	
	noteget Nlmax , 0 
	mes "Nlmax=" + Nlmax 
	repeat 100 
		wait 1						//無限ループになるため付加(ByAs)
		getstr Nmax,Nlmax,i,' ' 
		i += strsize 
		if fs = " " : continue cnt 
		if fs = "" : continue cnt 
		if int(Nmax) >0 : break 
		if Nmax = " " : continue
		
	loop 

	
	sdim NoNode, int(Nmax) 
	sdim XX, int(Nmax) 
	sdim YY, int(Nmax) 
	
	repeat int(Nmax) 
		n = cnt 
		noteget l , (n+1) 
		i = 1 
		repeat 3 
			getstr fs , l , i ,'' 
			i += strsize 
			if fs = " " : continue cnt 
			if fs = "" : continue cnt 
			switch cnt 
			case 0 
			NoNode.n = int(fs) 
			case 1 
			XX.n = str(fs) 
			case 2 
			YY.n = str(fs) 
			swend 
		loop 
	loop 
	
	
	repeat int(Nmax) 
		n = cnt + 1 
		mes "NoNode=" + str(NoNode.cnt) +" XX= "+ str(XX.cnt) +" YY= "+ str(YY.cnt) 
	loop 
	
	STOP 

　getstrの使い方がわかっていないようなので、サンプル。

	l="1 4.739460599914135E-005 73.3138593911322"
	repeat 3
		getstr fs,l,i,' ': i+=strsize
		mes fs
	loop

スクリプトの先頭行の前の行に

、

最後の行の後の行に

失敗したかな？

あー、やっぱり失敗してる。

begiffさんが全角で書いたのは半角にすると上のように失敗するからです。
＜ｐｒｅ＞や＜/ｐｒｅ＞は半角で書きましょう。
スペースもね。

それから、スクリプトの先頭行の前の行に＜ｐｒｅ＞
最後の行の後の行に＜/ｐｒｅ＞

　hspのswitchは使ったことないのでよくわかりませんが、
「case 2」や「case 3」の前にswbreakがいるのでは？

　命令を研究するためのスクリプトを書いてみて
動作をよく理解してから使うようにしましょう。

　「Nlmax」を「Nmax」に置換すれば、
repeat 100 〜 loopは不要です。