Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Strict On
- Option Explicit On
- Imports System.Console
- Imports System.Math
- Module Module1
- Sub Main()
- Dim namen(-1), eingabe, foo As String
- Dim wahl As Char
- Dim zaehler As Integer = 0
- Dim counter As Integer = 0
- Dim name(), vname, nname As String
- 'weitere Variablendeklaration
- Do
- counter = 0
- zaehler = 0
- WriteLine("A) Namen einlesen")
- WriteLine("B) Vornamen ausgeben")
- WriteLine("C) Nachnamen ausgeben")
- WriteLine("X) Ende")
- wahl = UCase(CChar(ReadLine()))
- Select Case wahl
- Case "A"c
- WriteLine("Geben Sie den Namen ein: ")
- eingabe = ReadLine()
- Do Until counter >= eingabe.Length Or zaehler > 1
- If (eingabe.Chars(counter) = " ") Then
- zaehler += 1
- End If
- counter += 1
- Loop
- Select Case zaehler
- Case >= 2
- Console.ForegroundColor = ConsoleColor.Red : WriteLine("Bitte benutzen Sie nur max. ein Leerzeichen!")
- Console.ResetColor()
- Case <= 1
- ReDim Preserve namen(namen.Length)
- namen(namen.Length - 1) = eingabe
- Console.ForegroundColor = ConsoleColor.Green
- WriteLine("Eingabe erfolgreich!")
- Console.ResetColor()
- End Select
- Case "B"c
- If Not namen.Length <> 0 Then
- Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
- Console.ResetColor()
- Else
- WriteLine("Vornamen: ")
- For Each foo In namen
- If foo.Contains(" ") Then
- name = foo.Split(" "c)
- vname = name(0)
- WriteLine(vname)
- End If
- Next
- End If
- Case "C"c
- If Not namen.Length <> 0 Then
- Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
- Console.ResetColor()
- Else
- WriteLine("Nachnamen: ")
- For Each foo In namen
- If foo.Contains(" ") Then
- name = foo.Split(" "c)
- nname = name(1)
- WriteLine(nname)
- Else
- WriteLine(foo)
- End If
- Next
- End If
- End Select
- Loop Until wahl = "X"
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement