Sehr geeherte Community,
wir haben noch folgendes problem in unserem Schulprojekt "Email-Gültigkeitsprüfer": e-mail adressen wo auch die Reihenfolge überprüft werden soll.
Bsp.: die mail-adresse test.@at wird als gültig erkannt oder mail-adresse test@.at wird als gültig erkannt.
Bitte nur Lösungsvorschläge mit den Befehlen die bereits verwendet worden sind, danke.
Einfach den code ergänzen bitte.
#lang
Module Module1
Sub Main()
Dim x As Integer = 0
Dim f1c As Integer = 0
Dim f2c As Integer = 0
Dim e As String
Dim f1, f2, r As String
Console.WriteLine("Willkommen beim E-Mail Gültigkeitsprüfer!")
Do
Console.WriteLine(vbCrLf + "E-Mail - Adresse eingeben:")
e = Console.ReadLine()
Console.WriteLine()
Dim eingabe() As Char
eingabe = e.ToCharArray()
r = "noval"
f1 = "noval"
f2 = "noval"
f1c = 0
f2c = 0
x = 0
For Each c As Char In eingabe
x = x + 1
If c = "@" Then
f1 = "@"
f1c = f1c + 1
End If
If c = "." Then
f2 = "."
f2c = f2c + 1
End If
Next
If f1 = "@" And f2 = "." And x >= 5 And f1c = 1 And f2c = 1 Then
Console.WriteLine("Gültig")
r = 0
Console.ReadLine()
End If
If f1c > 1 And f2c > 1 Then
Console.WriteLine("Zu viele . und @ eingegeben!")
r = 1
End If
If f2c > 1 Then
Console.WriteLine("Zu viele . eingegeben!")
r = 1
End If
If f1c > 1 Then
Console.WriteLine("Zu viele @ eingegeben!")
r = 1
End If
If x < 5 Then
Console.WriteLine("Enthält Weniger als 5 Stellen")
r = 1
End If
If f1 = "noval" Then
Console.WriteLine("Enthält kein @")
r = 1
End If
If f2 = "noval" Then
Console.WriteLine("Enthält keinen .")
r = 1
End If
If f1 = "noval" And f2 = "noval" Then
Console.WriteLine("Enthält weder @ noch . !")
r = 1
End If
Loop While r = 1
End Sub
End Module
wir haben noch folgendes problem in unserem Schulprojekt "Email-Gültigkeitsprüfer": e-mail adressen wo auch die Reihenfolge überprüft werden soll.
Bsp.: die mail-adresse test.@at wird als gültig erkannt oder mail-adresse test@.at wird als gültig erkannt.
Bitte nur Lösungsvorschläge mit den Befehlen die bereits verwendet worden sind, danke.
Einfach den code ergänzen bitte.
#lang
Module Module1
Sub Main()
Dim x As Integer = 0
Dim f1c As Integer = 0
Dim f2c As Integer = 0
Dim e As String
Dim f1, f2, r As String
Console.WriteLine("Willkommen beim E-Mail Gültigkeitsprüfer!")
Do
Console.WriteLine(vbCrLf + "E-Mail - Adresse eingeben:")
e = Console.ReadLine()
Console.WriteLine()
Dim eingabe() As Char
eingabe = e.ToCharArray()
r = "noval"
f1 = "noval"
f2 = "noval"
f1c = 0
f2c = 0
x = 0
For Each c As Char In eingabe
x = x + 1
If c = "@" Then
f1 = "@"
f1c = f1c + 1
End If
If c = "." Then
f2 = "."
f2c = f2c + 1
End If
Next
If f1 = "@" And f2 = "." And x >= 5 And f1c = 1 And f2c = 1 Then
Console.WriteLine("Gültig")
r = 0
Console.ReadLine()
End If
If f1c > 1 And f2c > 1 Then
Console.WriteLine("Zu viele . und @ eingegeben!")
r = 1
End If
If f2c > 1 Then
Console.WriteLine("Zu viele . eingegeben!")
r = 1
End If
If f1c > 1 Then
Console.WriteLine("Zu viele @ eingegeben!")
r = 1
End If
If x < 5 Then
Console.WriteLine("Enthält Weniger als 5 Stellen")
r = 1
End If
If f1 = "noval" Then
Console.WriteLine("Enthält kein @")
r = 1
End If
If f2 = "noval" Then
Console.WriteLine("Enthält keinen .")
r = 1
End If
If f1 = "noval" And f2 = "noval" Then
Console.WriteLine("Enthält weder @ noch . !")
r = 1
End If
Loop While r = 1
End Sub
End Module
