Visual Basic标签

Question

如果我在Visual Basic中的表单上的标签中有信息（例如名称），如何将此信息保存在.txt文件中？

由于

Answer 1

您可以使用System.IO命名空间中的类。查看File及其方法。

此示例使用WriteAllText的一次重载：

File.WriteAllText("Path To Text File.txt", myLabel.Text)

它会将myLabel控件的文本值写入指定的文本文件。

Answer 2

您可以将文件系统对象用于早期版本的Visual Basic。

'VBScript

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine(label.caption)
MyFile.Close

http://msdn.microsoft.com/en-us/library/z9ty6h50(VS.85).aspx

或

Sub Create_File()
    Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.Write (lable.caption) ' Write a line.
    ' Write a line with a newline character.
    txtfile.WriteLine("Testing 1, 2, 3.")
    ' Write three newline characters to the file.
    txtfile.WriteBlankLines(3)
    txtfile.Close
End Sub

http://msdn.microsoft.com/en-us/library/aa263346(VS.60).aspx

Answer 3

您使用StreamWriter来执行此操作。这是一个例子：

Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("c:\test.txt", True)
file.WriteLine("Here is the first string.")
file.Close()

如果你想知道如何从txt文件中读取，这里是一个示例代码：

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")
MsgBox(fileReader)

Answer 4

直接放入您需要的地方

Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("filename.txt", True)
file.WriteLine("Your Text Here~")
file.Close()

Answer 5

FileOpen(1, Application.StartupPath & "\File.txt", OpenMode.Output)
        WriteLine(1, Me.Label1.Text)
FileClose()