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

所以每个数字都是两个随机整数的除法,然后四舍五入。第一个数字介于 1 和 12 之间,第二个数字介于 1 和 4 之间。第一个数字除以第二个数字,并显示在按钮旁边的标题中。

我想让它让每个技能的字幕。(strength.caption、skill.caption 和 Agility.caption)都保存在一个 txt 文件中,我只需按一下按钮即可命名。

我该怎么做呢?

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 回答