Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textdateiproblem
Autor: Pepyno
Datum: 22.01.09 08:25
Servus miteinander. Bevor ich erkläre was mein Problem ist, beschreibe ich erst einmal was mein Programm machen soll. Ich arbeite mit Visual Studio 2008. Ich habe 2 Forms entwickelt. Form 1 hat ein Textfeld 1 Das Textfeld wird mit einem Text gefüllt und anschließend wechsele ich in eine Form2 (durch Weiter Button). Gleichzeitig öffne ich eine Textdatei und schreibe den Text aus Textfeld 1 dort hinein. In die gleiche Zeile schreibe ich hinter den Text von Textfeld 1 das aktuelle Datum und die Uhrzeit. In Form 2 schreibe ich einen Text in Textfeld 2. Nach betätigen eines Buttons soll mir das Programm den Inhalt von Textfeld 1 und Textfeld 2 vergeleichen. Wenn der Text gleich ist, dann soll das Programm den Text aus Textfeld 2 in die gleiche Zeile der Textdatei schreiben mit Datum und Uhrzeit. Wenn der Text ungleich ist erscheint ein Warnungsfenster das der Text ungleich ist. Nun fordert das Programm den Text erneut einzugeben in Textfeld 2. Wenn die Texte dann identisch sind läuft das Programm von vorne ab. Also Form1, Text eingeben u.s.w. Mein Problem: Wenn der Text1 und Text2 ungleich ist kommt das Warnungsfenster und fordert mich auf den Text erneut einzugeben. OK. Aber anschließend schreibt mir das Programm nicht das Datum und die Uhrzeit in die Textdatei bei richtigen Texten von Text1 und Text2. Ich poste mal mein Programm und hoffe es ist verständlich für euch. Ich vermute es fehlt etwas in der Schleife. Bitte um Hilfe. Form1: Imports System.IO Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "" TextBox1.Focus() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fs As New FileStream("\My Documents\IH\BEMIDAT.txt", FileMode.Append) Dim sw As New StreamWriter(fs) sw.Write(TextBox1.Text) sw.Write(",") sw.Write(DateAndTime.Now) sw.Write(",") sw.Close() Form2.Show() Form2.TextBox2.Text = "" Form2.TextBox2.Focus() End Sub End Class Form2: Imports System.IO Public Class Form2 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim fs As New FileStream("\My Documents\IH\BEMIDAT.txt", FileMode.Append) Dim sw As New StreamWriter(fs) sw.Write(TextBox2.Text) sw.Write(",") sw.Write(DateAndTime.Now) sw.Write(",") sw.WriteLine(ComboBox1.Text) sw.Close() Form1.Show() If TextBox2.Text <> Form1.TextBox1.Text Then MsgBox("Barcodes nicht identisch! Bitte neu einscannen.", BoxStyle.Critical, "Hinweis!") TextBox2.Text = "" TextBox2.Focus() Me.Show() Else Form1.TextBox1.Text = "" Form1.TextBox1.Focus() Form1.Show() End If End Sub Vielen Dank vorab.

Textdateiproblem	1.549	Pepyno	22.01.09 08:25
Re: Textdateiproblem	924	Julian13	22.01.09 12:25
Re: Textdateiproblem	999	Pepyno	22.01.09 12:41
Re: Textdateiproblem	963	Maas	22.01.09 12:44
Re: Textdateiproblem	940	Pepyno	22.01.09 12:59
Re: Textdateiproblem	932	Maas	22.01.09 13:51
Re: Textdateiproblem	945	Pepyno	26.01.09 08:35
Re: Textdateiproblem	939	Pepyno	27.01.09 10:39
Re: Textdateiproblem	881	FZelle	27.01.09 11:36
Re: Textdateiproblem	865	Pepyno	27.01.09 13:00
Re: Textdateiproblem	875	FZelle	27.01.09 13:55
Re: Textdateiproblem	910	Pepyno	27.01.09 14:00
Re: Textdateiproblem	921	Maas	27.01.09 16:35
Re: Textdateiproblem	927	Pepyno	29.01.09 12:40
Re: Textdateiproblem	833	Maas	29.01.09 13:15
Re: Textdateiproblem	852	Pepyno	29.01.09 13:23
Re: Textdateiproblem	889	Maas	29.01.09 14:07
Re: Textdateiproblem	805	Pepyno	09.02.09 10:54
Re: Textdateiproblem	864	FZelle	09.02.09 11:13
Re: Textdateiproblem	959	Pepyno	09.02.09 13:36
Re: Textdateiproblem	824	Maas	09.02.09 14:06
Re: Textdateiproblem	834	Pepyno	09.02.09 14:30
Re: Textdateiproblem	906	Pepyno	10.02.09 10:27
Re: Textdateiproblem	827	FZelle	10.02.09 13:16
Re: Textdateiproblem	887	Pepyno	10.02.09 13:32
Re: Textdateiproblem	821	FZelle	10.02.09 15:57
Re: Textdateiproblem	846	Maas	10.02.09 18:20

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