写入TXT文件?
问题描述:
所以我有一个VBA的用户窗体,并且我正在制作一个地下城龙风格的助手,你按下按钮并且每个属性都是为你决定的,但是我想这样做是为了一旦你滚动了这些属性,他们可以保存在文本文件夹中并以正确的方式再次打开。写入TXT文件?
所以,我有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文件中,我可以通过一个按钮来命名。
我该怎么做?
答
用文本文件操作的最灵活的方式是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://*.com/a/14285131/1953175
欢迎堆栈溢出! [你有什么尝试](http://www.whathaveyoutried.com)? – SeanC 2013-02-21 16:57:22