HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0724
ww302jpうまくいきません!!!6未解決


ww302jp

リンク

2006/7/24(Mon) 14:39:02|NO.1532

ファイル「○○○.txt」(○○○は1〜の数字)
をあるだけ読み込んで
各ファイルの1行目だけを変数「a」に代入して改行する
作業を無限ループで繰り返して
作業終了後結果を表示する
<<<ファイル数\r各ファイルの1行目の内容\r・・・>>>
です
---スクリプト---
////////////////////////////////////////
//読み込み//
////////////////////////////////////////
mes "/読み込んでいます..."
repeat
c1+1
exist ""+c1+".txt"
if strsize=-1:c1-1:break
notesel c2:noteload ""+c1+".txt"
notesel aa:noteget c2,0
a=""+a+"\r"+aa
wait 100
loop
cls
////////////////////////////////////////
//メイン//
////////////////////////////////////////
mes ""+c1+"\r"+a
stop
---スクリプト終わり---

よろしくお願いします!!!



この記事に返信する


Luna

リンク

2006/7/24(Mon) 16:27:38|NO.1533

 notesel c2:noteload ""+c1+".txt"
notesel aa:noteget c2,0
ここ、おかしいと思うので、よくヘルプで調べてみてください。
( ヒント:noteselは基本的に一回 )

あと、下のほうのww302jpさんの書き込み、返信するか、解決チェック? したほうがいいですよ。



ww302jp

リンク

2006/7/24(Mon) 16:52:04|NO.1534

--------------------------
notesel c2:noteload ""+c1+".txt"
notesel aa:noteget c2,0
ここ、おかしいと思うので、よくヘルプで調べてみてください。
( ヒント:noteselは基本的に一回 )

あと、下のほうのww302jpさんの書き込み、返信するか、解決チェック? したほうがいいですよ。
--------------------------
やってみましたが何もわからなかったです...
教えてくれませんか???



プサンボリッケ

リンク

2006/7/24(Mon) 16:52:19|NO.1535

協力してくれた方は名前を載せますとか自分で理解しながらプログラミングする気もなく人に作らせてばっかりだからサンプルも理解できないんじゃない?
サンプルばっかり求める人もいるけど理解しなかったらサンプルもただのガラクタ。ガラクタばかりいじってる人はずっとガラクタしか作れないよ。
サンプルをガラクタにするか宝物にするかは本人の自分のちからで理解して作ってやる!って気持ちがあるかないかの違い。
質問ばっかりして人につくらせるのもいいけどそうじゃない人にとっては不愉快な掲示板です。



ww302jp

リンク

2006/7/24(Mon) 17:06:57|NO.1537

そうですよね...
でもどうすればいいのか分かりません...
サンプルではなくて
どうすればいいのかを...



理沙

リンク

2006/7/24(Mon) 17:26:43|NO.1538

>>本人の自分のちからで理解して作ってやる!って気持ちがあるかないかの違い。
>どうすればいいのかを...

HSP付属、プログラミング・マニュアルにある、
『メモリノートパッド命令』を読めば分かると思いますよ(^^
これで分からない場合は、たぶんアルゴリズムが把握できていないのかも、です(^^;

あと、repeat-loop間で、
c1はループ毎に増加するので、c1++ でいいと思います。
ファイル名は3桁なので、strf関数で桁数を揃えなきゃかな。

c1=1 repeat fname=""+strf("%03d",c1)+".txt" exist fname if strsize=-1 :break ・・・ c1++ wait 100 loop



Mimura

リンク

2006/7/24(Mon) 17:36:52|NO.1539


notesel c2:noteload ""+c1+".txt" notesel aa:noteget c2,0 a=""+a+"\r"+aa
このスクリプトですと、
Notegetの変数c2は、変数「AA」の一行目を取得しているため、空白のデータしか取れませんので、


notesel c2:noteload ""+c1+".txt":noteget aa,0 a=""+a+"\r"+aa

このようにして取得するか、
ノートパッドを活用して、


repeat c1+1 exist ""+c1+".txt" if strsize=-1:c1-1:break notesel c2:noteload ""+c1+".txt":noteget aa,0 notesel a:noteadd aa,-1,0 await loop

このようなスクリプトにするというのもどうでしょうか。

次回からは、できるだけヘルプを見てがんばってください。



ONION software Copyright 1997-2021(c) All rights reserved.