1

だから私はVBAのユーザーフォームを持っていて、ボタンを押すと各統計が決定されるダンジョンズ＆ドラゴンズスタイルのヘルパーを作っていますが、これらの統計をロールしたら、それらができるようにしたいと思いますテキスト フォルダに保存され、正しい方法で再度開かれます。

だから、私は3つの異なる統計を持っています。敏捷性、スキル、強さ。コードは現在次のように機能します。

Private Sub agilitybutton_Click()
agility.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

Private Sub skillbutton_Click()
skill.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

Private Sub strengthbutton_Click()
strength.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

したがって、各数値は 2 つのランダムな整数の除算であり、丸められます。最初の数字は 1 から 12 の間で、2 番目の数字は 1 から 4 の間です。最初の数字は 2 番目で割られ、ボタンの横のキャプションに表示されます。

各スキルのキャプションができるようにしたいです。(strength.caption、skill.caption、Agility.caption) はすべて txt ファイルに保存され、ボタン 1 つで名前を付けることができます。

どうすればいいですか？

4

1 に答える 1

4

テキスト ファイルを操作する最も柔軟な方法は、ADODB.Streamオブジェクトです。簡単なテキスト出力のサンプル コードを次に示します。

TextOutput = "Hello World!"
FilePath = "C:\output.txt"
Set FileStream = CreateObject("ADODB.Stream")
FileStream.Open
FileStream.Type = 2 'Text
FileStream.Charset = "utf-8"
FileStream.WriteText TextOutput
FileStream.SaveToFile (FilePath)
FileStream.Close

詳細: ADO ストリーム オブジェクトとサンプル バイナリからテキストへの変換: https://stackoverflow.com/a/14285131/1953175

于 2013-02-17T15:44:11.353 に答える