Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

openText in Klasse
Autor: Nici
Datum: 19.09.03 15:40
Hallo, ich bitte um dringende Hilfe bezüglich folgendes Proble: ich habe folgende Funktion zum auslesen von Text-Dateien: mports System Imports System.IO Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sFile As String = "C:\FH\diplom\Bollmann\Patchworks\13993\13993-01b\info.txt" Dim oFile As New IO.FileInfo(sFile) Dim oStream As IO.StreamReader Dim sBuffer As String If oFile.Exists() = True Then oStream = New IO.StreamReader(sFile) ' Datei auslesen und in TextBox anzeigen sBuffer = oStream.ReadToEnd() TextBox1.Text = sBuffer oStream.Close() End If End Sub Private Sub button2_Click(ByVal sender As Object, ByVal ByValue As System.EventArgs) Handles Button2.Click Dim oStream As Stream Dim fileDialog As New SaveFileDialog fileDialog.InitialDirectory = "C:\" fileDialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" fileDialog.FilterIndex = 2 fileDialog.RestoreDirectory = True If fileDialog.ShowDialog() = DialogResult.OK Then oStream = fileDialog.OpenFile() End If If Not oStream Is Nothing Then Dim sw As New StreamWriter(oStream) sw.Write(TextBox1.Text) sw.Close() Else MsgBox("File Save Failed", MsgBoxStyle.Exclamation, "File Read/Write") End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Und die folgende Klasse: Public Property Comment() As String Get 'Return --> Kommentar aus Datei lesen (Datei im Patchwork-Verzeichnis info.txt) End Get Set(ByVal Value As String) 'Value --> Kommentar in Datei schreiben (Datei im Patchwork-Verzeichnis info.txt) End Set End Property Wie kann ich jetzt die Funktion einbinden um die Text-Datei auszulesen ?? Mit Get und Return, aber wie ??? Bitte um Hilfe !! Danke und Gruß Nici

openText in Klasse	857	Nici	19.09.03 15:40
Re: openText in Klasse	405	Moni	19.09.03 15:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen