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


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0722
ww302jpシステムエラーになってしまいました!!!4解決


ww302jp

リンク

2006/7/22(Sat) 11:29:11|NO.1495

以下のスクリプトを実行すると
システムエラーになってしまいました!!!

notesel a noteload "a" notesel a1 noteget a,0 notesel a2 noteget a,1
よろしくお願いします...



この記事に返信する


Luna

リンク

2006/7/22(Sat) 11:46:35|NO.1496

notesel a2
noteget a,1
の部分で、変数a2には何も読み込まれていないのが原因です。

ファイル「datafile.txt」を読み込んで、それを変数に代入するには、こうします。
notesel data
noteload "datafile.txt" noteget a.0,0 //1行目取得 noteget a.1,1 //2行目取得 mes a.0 mes a.1
ちなみに、datafile.txtはこんな感じだとします。
aaa
bbb ccc ddd



ww302jp

リンク

2006/7/22(Sat) 13:17:45|NO.1499

なんか...できませーん!!!

なのでスクリプトを詳しくします

*label
notesel a
noteload "a"
notesel a1
noteget a,0
notesel a2
noteget a,1
cls
mes "パスワードを入力して下さい\r"
p=""
objmode 2:font "fontname",15,1
input b1,200,20,5
objmode 0
button goto "OK",*bv001
stop
*bv001
a2=int(a2)
a2=a2-999999999999
if b1!a2:dialog "パスワードが違います!!!",1,"":goto *label
picload "background 001.bmp"
mes "ようこそ!"+a1+"さん!"
stop

ここのところをへんこーしてくださいませんか?



ミツエモン

リンク

2006/7/22(Sat) 15:06:22|NO.1500

つ [参考にどうぞ]


#define FileName "test.txt" // ファイル名を宣言しておく(書き換え不可) // // // *label sdim dummy,64 // 文字列 exist FileName : if (strsize != -1) { // ファイルを探す。(ある = -1より大きい, ない = -1 ; notesel a // 変数aの操作をします。 noteload FileName // 変数aにファイルの内容を読み込む ; noteget user,0 // 変数aの0行目の内容を変数userに代入 noteget pass,1 // 変数aの1行名の内容を変数passに代入 ; noteunsel // 変数aの操作をここで終わらせる ; } else {dialog "パスワードファイルがありません。"} ; cls // ウィンドウ初期化 font msgothic,15,1 // フォント指定(MS ゴシック) ; objmode 2 : objsize 100,20 // オブジェクトをフォント順次、サイズ指定 pos 10,10 : mes "パスワードを入力して下さい\n" pos 10,30 : input dummy,200,20,8 pos (200+10),30 : button goto "OK",*bv001 stop // // // *bv001 if (dummy != pass) {dialog "パスワードが違います!!!",1,"" : goto *label} pos 10,50 : mes "ようこそ!"+user+"さん!" stop



ww302jp

リンク

2006/7/24(Mon) 16:53:12|NO.1536

なんとなーく分かったような...
では!!!



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