Schlüssel eingeben

[ralf992]

Hallo, ihr

ich hoffe das ich hier richtig bin.

Ich habe ein Programm entwickelt und wollte das die User z.b diesen code in ein Formular eintippen (GHZRD-65748-KLOHV-KIHGD) Die Cod's sind auf mein Server hochgeladen und sind in einer Textdatei sie ist so aufgebaut:

code.txt

GHZRD-65748-KLOHV-KIHGD
GHZRD-65748-KLOHV-KIHG2
GHZRD-65748-KLOHV-KIHG3
GHZRD-65748-KLOHV-KIHG8

Nun soll also die Anwendung die datei in den cache ziehen und eine if abfrage gemacht werde. z.b

Wenn eingegeben == suche aus datei gefunden
Dann Danke für die Regis...
Wenn nicht gefunden dann
Fehler

Mein Problem ist nicht die if abfrage oder es zu gestallten bzw. Form (ist ja einafch ) sondern die datei code.txt aus dem server in den cache zu ziehen und dann das eingegebene Code finden. Hofe ihr verstet das ganze.
Ich habe gehört das man eine Txt datei so in den Cache ziehen kann.
Nun wie kann man herrausfinden ob der Schlüssel den man eigeben hat in der Txt existiert?

Dim url As String = "http://www.webseite/code.txt"
Dim webRequest2 As HttpWebRequest = HttpWebRequest.Create(url)
Dim webResponse2 As HttpWebResponse = webRequest2.GetResponse()
Dim sr2 As StreamReader = New StreamReader(webResponse2.GetResponseStream())

brauche drigent hilfe

schuldigung wegen mein Deutsch :-(
mfg
ralf992

 

[Peter86]

Ich hab hier mal was gebastelt!

Imports System.Net
Imports System.IO
Public Class Form1

    Dim CodeList As New List(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim url As String = "http://localhost/code.txt"
        Dim webRequest2 As HttpWebRequest = HttpWebRequest.Create(url)
        Dim webResponse2 As HttpWebResponse = webRequest2.GetResponse()
        Dim sr2 As StreamReader = New StreamReader(webResponse2.GetResponseStream())


        While Not sr2.EndOfStream
            CodeList.Add(sr2.ReadLine)
        End While
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Code In CodeList
            If Code = TextBox1.Text Then
                MsgBox("richtiger code")
                Exit Sub
            End If
        Next
        MsgBox("falscher code")
    End Sub
End Class

Wenn ich mir den Code so angucke gefällt er mir nicht ganz, aber ich hab keine andere lösung gefunden. Vielleicht findet jemand eine bessere!
Wie dem auch sei, es funktioniert und führt soweit ich das sehe auch zum gewünschten ergebnis.

Peter86

 

[ralf992]

oh man eh ich könnte es auch alleinen machen
aber danke