Libellé Visual Basic

Question

Si j'ai des informations (par exemple un nom) dans une étiquette sur un formulaire dans Visual Basic, comment puis-je enregistrer ces informations dans un fichier .txt?

Merci

Answer 1

Vous pouvez utiliser les classes dans l'espace de noms System.IO. Regardez File et ses méthodes.

Cet exemple utilise une surcharge de WriteAllText:

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

Il va écrire la valeur de texte du contrôle myLabel au Précise fichier texte.

Answer 2

Vous pouvez utiliser un objet de système de fichiers pour les versions précédentes de 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

ou

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

Vous utilisez StreamWriter pour le faire. Voici un exemple:

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

Si vous voulez savoir comment lire à partir de fichiers txt, voici un exemple de code:

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

Answer 4

Mettez directement dans l'endroit où vous aviez besoin

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