ab.com コミュニティ

[quote]Windowsの場合、改行は2バイトです。
Chr$(13)+Chr$(10)や、半角の￥ｒ￥ｎで表せます。 [/quote]Windowsの場合というよりは、文字セットの改行コードがCR+LFの場合にそうなります。

S-JISを読み込むことが前提なら
・文字コードが0か、10か、又は13の時(0は文字列の終端)
・文字コードが128以上の時(2バイト文字か、半角仮名文字)
の2つに注意すれば大抵は問題なく動作すると思います。

#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の場合、改行は2バイトです。
Chr$(13)+Chr$(10)や、半角の￥ｒ￥ｎで表せます。
[hide=サンプルコード][code]#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[/code][/hide]
iniファイルには、[url=http://www.activebasic.com/forum/viewtopic.php?t=2347]こういうもの[/url]もあります。
[url=http://www.activebasic.com/forum/viewtopic.php?t=2350]これ[/url]も参考になると思います。

そうなんですか、パラメータが多くて難しそうですが、やってみます。
ところで、何度も申し訳ないのですが、
Mid$関数で改行は何バイトとして数えればいいのでしょうか。
改行のバイト数が分からないので改行無しでやっていたのですが、
やっぱり見づらいので・・・。
それともMid$では改行は読み込めないのでしょうか。

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

読み込むだけなら、GetPrivateProfileString関数でいけます。

定義[code]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[/code]

詳しい使い方はWebで調べてみてください。

Mid$を使ったらできました、ありがとうございます。
ところで、ActiveBasicでのiniの扱いはどうするのでしょうか。

Openでファイルを開いた後でInput#でとりあえず文字を読み込んで、
あとは文字列系の関数で150等の数値文字列を切り出して(Mid$等で)
Valで数値に変換するのはどうでしょうか？

＃似たような事をもっと楽にIniファイルでも出来るので、そちらも検討してみてください。

初めての投稿のkawaです。
よろしくお願いします。

現在、"00.txt"というテキストファイルに、それぞれの能力値を書いて、
(例えば、
HP(150)
MP(120)
みたいに)
HPとMPの()の中だけをそれぞれ読み込むというプログラムを作りたいのですが、
どのような関数を使えば良いのかわかりません。
何を使えばいいのでしょうか？