a.0=1 b.0=5 c.0=10.0 d.0=20.0
次の行はa.1,b.1,c.1,d.1…とされたいのだとひとまず解釈しますが、
getstrを使うのはそのままで、半角スペースの連続や
全角スペースが出たときだけ次をもう一度読み直せばいいのではないか、と考えます。
sdim bu , 1000 : notesel bu ;バッファ
sdim l , 100 ;各行
sdim fs , 20 ;文字列状態の数値
noteload "txt.txt" : m = noteinfo(0) ;行数
dim a , m : dim b , m : dim c , m : dim d , m
repeat m
n = cnt
noteget l , cnt ;各行を取得
;dialog l
i = 0 ;Index
repeat 4
getstr fs , l , i , ' '
i += strsize
if fs = "" : continue cnt ;半角スペースが続いた
if fs = " " : continue cnt ;全角スペースがあった
;dialog "" + cnt + "\"" + fs + "\""
switch cnt
case 0
a.n = int(fs)
case 1
b.n = int(fs)
case 2
c.n = double(fs)
case 3
d.n = double(fs)
swend
loop
loop
font "" , 12
repeat m
mes "A=" + a.cnt + " B=" + b.cnt + " C=" + c.cnt + " D=" + d.cnt
loop
試しに使ってみたテキストの内容(□は全角スペース、*は半角スペースを示す)
□*1*5*10.0*20.0
***2*6*10.1*21.0
***3*7*10.2*22.0
□*4*8*10.3*23.0
□*0*9*10.4*24.0