写入TXT文件？

Question

所以我有一个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文件中，我可以通过一个按钮来命名。

我该怎么做？

Answer 1

用文本文件操作的最灵活的方式是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 Stream Object和样品二进制文本转换：https://stackoverflow.com/a/14285131/1953175