Visual Basic label

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() 

Если вы хотите знать, как чтения из тхт файлов, вот пример кода:

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()