Hey Liebe Com!
Ich arbeite schon sehr lange an einem art "Code enthält bestimmtes Guthaben" System!
Ich habe eine Datei "Codes.txt" auf meinem FTP, möchte überprüfen,
Ob der code der in die textbox eingegeben wird auch in der Codes.txt steht!
Wenn ja, Soll der Code gelöscht werden!
Wenn es geht auch ohne upload / download der datei! (muss aber nicht unbedingt sein)
Achtung: Ich wäre gerne über Komplette, Fertige VB Codes dankbar! Daran kann ich ja dann immernoch änderungen vornehmen.
Mein bisheriger Code der nicht wirklich funktioniert:
Ich arbeite schon sehr lange an einem art "Code enthält bestimmtes Guthaben" System!
Ich habe eine Datei "Codes.txt" auf meinem FTP, möchte überprüfen,
Ob der code der in die textbox eingegeben wird auch in der Codes.txt steht!
Wenn ja, Soll der Code gelöscht werden!
Wenn es geht auch ohne upload / download der datei! (muss aber nicht unbedingt sein)
Achtung: Ich wäre gerne über Komplette, Fertige VB Codes dankbar! Daran kann ich ja dann immernoch änderungen vornehmen.
Mein bisheriger Code der nicht wirklich funktioniert:
VB.NET-Quellcode
- Dim web As New Net.WebClient
- web.Credentials = New Net.NetworkCredential("***", "***")
- web.DownloadFileAsync(New Uri("ftp://***.de/www/ECC.txt"), "ECC.txt")
- Dim ECCE As String = TextBox1.Text
- Dim txt As String = System.IO.File.ReadAllText("ECC.txt")
- If txt.Contains(ECCE) And Len(ECCE) = 19 Then
- MessageBox.Show("gefunden")
- Dim pfad As String = "ECC.txt"
- Dim zeilen() As String = IO.File.ReadAllLines(pfad)
- IO.File.Delete(pfad)
- Dim strW As New IO.StreamWriter(pfad)
- For Each z As String In zeilen
- Select Case z
- Case ECCE
- Case Else
- strW.WriteLine(z)
- End Select
- Next
- strW.Close()
- strW.Dispose()
- Else
- MsgBox("nicht gefunden")
- End If
- Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://***.de/www/ECC.txt"), System.Net.FtpWebRequest)
- request.Credentials = New System.Net.NetworkCredential("***", "***")
- request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
- Dim file() As Byte = System.IO.File.ReadAllBytes("ECC.txt")
- Dim strz As System.IO.Stream = request.GetRequestStream()
- strz.Write(file, 0, file.Length)
- strz.Close()
- strz.Dispose()
- My.Computer.FileSystem.DeleteFile("ECC.txt")
- End Sub
- End Class
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VBFTW“ ()