トピック
あっくん♪ nande0612

空白ができてしまう。

:とファイル名の間に空白ができて、エラーになります。空白をなくすにはどうしたらいいでしょうか?(スクショのカレント行)
0そうだね
プレイ済み
返信[1]
親投稿
ΖΕΧ ZEX256
長さ0文字対策してなかったので直した DEF TRIM(S$) WHILE LEN(S$)>0 IF S$[0]!=" " THEN BREAK S$=RIGHT$(S$,LEN(S$)-1) WEND WHILE LEN(S$)>0 IF S$[LEN(S$)-1]!=" " THEN BREAK S$=LEFT$(S$,LEN(S$)-1) WEND RETURN S$ END
0そうだね
プレイ済み
返信[2]
親投稿
ΖΕΧ ZEX256
この関数を追加して 12行めは下記のようにする S$=FORMAT$("GRP%D:%S",S,TRIM(A[J*4+S]))
0そうだね
プレイ済み
返信[3]
親投稿
FILESで一覧を取得すると、それぞれのファイル名の前にスペースか*が付く。 ファイルの種類を表していて *はTXT スペースはDAT ちなみに、PRGやGRPという種類はない。(GRPは16bit整数配列らしいが、DATの印が付くので区別する方法はない) と、話がそれたので本題。 「ファイル名の最初の1文字を消す」という処理を足します。
0そうだね
プレイ済み
返信[4]
親投稿
あっくん♪ nande0612
12行目をこういう風に変えたら、成功したんですけど、十数回なってエラーがでました。12行目の配列添字が範囲外だそうです。どこをどうしたらいいのでしょうか?
0そうだね
プレイ済み
返信[5]
親投稿
ΖΕΧ ZEX256
もう答えは書きました
0そうだね
プレイ済み
返信[6]
親投稿
マギー M191246
ざっと見た感じなので間違っていたら ごめんなさい。 この処理だと、 例えば、ファイル数が12個のとき Jは、0→11と変化しようとしますけど J=3になった時点で添え字が12になって Subscript out of rangeが 出るのではないかと思います。 FOR J=…の最後にSTEP 4を付けて 添え字の式をJ+Sとしてみたら どうでしょう?
0そうだね
プレイ済み