Ich Programmiere grade ein Programm, bei dem die Benutzer einen Code bekommen. Nehmen wir als Beispiel die "1". Das Hauptprogramm befindet sich auf Form1, als erstes wird aber Form2 geöffnet. In der befindet sich eine Textbox, in die man sein Passwort eingibt. Dann kommt man auf Form1.

Jetzt zur Frage:
Ich will die ganzen Codes (wahrscheinlich 4-5 Stellig, ca.100-200) in einer Datei Speichern. Sobald man einmal das Programm benutzt hat soll der Code ungültig sein, bzw gelöscht werden. Wie mach ich das? Mir ist egal ob er gelöscht oder geändert wird, er soll nur nicht mehr funktionieren und es soll eine Fehlermeldung ausgegeben werden.
Ich hoffe mir kann jemand helfen.

ist vieleicht ne blöde frage aber wozu ist dass

Wipf1000 schrieb:

ist vieleicht ne blöde frage aber wozu ist dass

Es teilt den string nach jedem VbCrLf (Zeilenumbruch) und gibt einen Array zurück

Biesi schrieb:

VB.NET-Quellcode

1. Dim Codes() As String = IO.File.ReadAllText("datei.txt").Split(vbCrLf)
2. If Codes.Contains(TextBox1.Text) Then Form2.Show()

VB.NET-Quellcode

1. Dim Text As String = IO.File.ReadAllText("datei.txt")
2. Text = Text.Replace(TextBox1.Text, "UNGÜLTIG")
3. IO.File.WriteAllText("datei.txt", Text)

Also das erste klappt schonmal (Ich hab das beim Click Event von Button 1 eingefügt).
Das 2., also hab ich da auch eingefügt (hoffe das Stimmt?!), aber ich bekomme immer eine Fehlermeldung und die Form hängt sich auf

was steht denn in deiner fehlermeldung
stell sicher dass die datei die du ausliest auch existiert (du musst den kompletten pfad angeben)

Breakfruit schrieb:

aber ich bekomme immer eine Fehlermeldung und die Form hängt sich auf

1. Option Strict On
2. Welche Fehlermeldung in welcher Codezeile?

Eine nicht behandelte Ausnahme des Typs "System.ArgumentException" ist in mscorlib.dll aufgetreten.

Zusätzliche Informationen: Die Zeichenfolge kann keine Länge von 0 (null) haben.


So sieht jetzt mein ganzer Code von Form2, also der ersten Form aus:


Edit: in dieser Zeile: Text = Text.Replace(TextBox1.Text, "UNGÜLTIG")

es muss der komplette Pfad zur datei angegeben werden !
und das mit der zeichenlänge ist, weil in der datei nix drin steht

Breakfruit schrieb:

VB.NET-Quellcode

1. Dim Codes() As String = IO.File.ReadAllText("datei.txt").Split(vbCrLf)
2. Dim Text As String = IO.File.ReadAllText("datei.txt")

Diese beiden Zeilen darfst Du nicht in die Klasse, sondern Du musst sie in eine Prozedur schreiben und schreib den Pfad davor.

In der Datei steht (erstmal)

1
2
3
4
5
6
7

drin, sie ist also nicht leer.
Und kann ich das hier als kompletten Pfad angeben?


Edit: Was meinst du mit Prozedur?

ja sofern die datei dort ist ja

das mit dem andern fehler ist so: wenn du in der textbox nichts stehen hast was in der datei steht, kann auch nichts ersetzt werden

Ja.
Außerdem

RodFromGermany schrieb:

VB.NET-Quellcode

1. Dim Codes() As String = IO.File.ReadAllText("datei.txt").Split(vbCrLf)
2. Dim Text As String = IO.File.ReadAllText("datei.txt")

Diese beiden Zeilen darfst Du nicht in die Klasse, sondern Du musst sie in eine Prozedur schreiben und schreib den Pfad davor.

Ich hab eben immer 1 (also das was auch in der ersten Zeile steht) in die Textbox geschrieben.
Jetzt müsste mir nur noch jemand erklären was eine Prozedur ist und wie ich eine erstelle

lies hier:
msdn.microsoft.com/de-de/library/y6yz79c3(v=vs.80).aspx

Prozedur ist Function oder Sub.
So z.B.

Sieht jetzt alles exakt so aus:


Jetzt funktioniert das ganze nur noch mit der 1, also der 1. Zeile, aber nicht mehr mit der 2., 3., 4.,... und der Fehler ist immer noch da

RodFromGermany schrieb:

2. Welche Fehlermeldung in welcher Codezeile?

Zeile 12: Text = Text.Replace(TextBox1.Text, "UNGÜLTIG")

Fehlermeldung:
Fehler in dieser Zeile: Eine nicht behandelte Ausnahme des Typs "System.ArgumentException" ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Die Zeichenfolge kann keine Länge von 0 (null) haben.

Du schließt die form mit der Textbox bevor du den text schreibst, einfach das Me.Close() dahinter