初めての投稿のkawaです。
よろしくお願いします。
現在、"00.txt"というテキストファイルに、それぞれの能力値を書いて、
(例えば、
HP(150)
MP(120)
みたいに)
HPとMPの()の中だけをそれぞれ読み込むというプログラムを作りたいのですが、
どのような関数を使えば良いのかわかりません。
何を使えばいいのでしょうか?
指定した場所の読み込み
Openでファイルを開いた後でInput#でとりあえず文字を読み込んで、
あとは文字列系の関数で150等の数値文字列を切り出して(Mid$等で)
Valで数値に変換するのはどうでしょうか?
#似たような事をもっと楽にIniファイルでも出来るので、そちらも検討してみてください。
あとは文字列系の関数で150等の数値文字列を切り出して(Mid$等で)
Valで数値に変換するのはどうでしょうか?
#似たような事をもっと楽にIniファイルでも出来るので、そちらも検討してみてください。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
読み込むだけなら、GetPrivateProfileString関数でいけます。
定義
詳しい使い方はWebで調べてみてください。
定義
コード: 全て選択
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (lpAppName As *Byte,lpKeyName As *Byte,lpDefault As *Byte,lpReturnedString As *Byte,nSize As DWord,lpFileName As *Byte) As DWord
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
改行など
Windowsの場合、改行は2バイトです。
Chr$(13)+Chr$(10)や、半角の¥r¥nで表せます。
これも参考になると思います。
Chr$(13)+Chr$(10)や、半角の¥r¥nで表せます。
サンプルコード [ここをクリックすると内容が表示されます]
iniファイルには、こういうものもあります。コード: 全て選択
#N88BASIC
Dim text As String
Dim a As String
Dim b As String
text="12345"+Chr$(13)+Chr$(10)+"67890"
MessageBox(0,StrPtr(text),"text",MB_OK)'textの内容を確認
a=Mid$(text,1,5)
b=Mid$(text,8,5)
Print a
Print b
これも参考になると思います。
Windowsの場合というよりは、文字セットの改行コードがCR+LFの場合にそうなります。Windowsの場合、改行は2バイトです。
Chr$(13)+Chr$(10)や、半角の¥r¥nで表せます。
S-JISを読み込むことが前提なら
・文字コードが0か、10か、又は13の時(0は文字列の終端)
・文字コードが128以上の時(2バイト文字か、半角仮名文字)
の2つに注意すれば大抵は問題なく動作すると思います。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。