TXT 파일에 쓰기?

Question

그래서 VBA에서 Userform을 얻었습니다. 던전을 만들고 있어요 & 드래곤 스타일의 도우미로 버튼을 누르고 각 stat가 결정되었지만이 통계를 굴린 다음, 텍스트 폴더에 저장하고 다시 올바른 방식으로 열 수 있습니다.

그래서 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