SHARE
TWEET

Untitled

a guest Dec 11th, 2019 98 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Strict On
  2. Option Explicit On
  3. Imports System.Console
  4. Imports System.Math
  5.  
  6. Module Module1
  7.     Sub Main()
  8.         Dim namen(-1), eingabe, foo As String
  9.         Dim wahl As Char
  10.         Dim zaehler As Integer = 0
  11.         Dim counter As Integer = 0
  12.         Dim name(), vname, nname As String
  13.         'weitere Variablendeklaration
  14.  
  15.  
  16.         Do
  17.             counter = 0
  18.             zaehler = 0
  19.  
  20.             WriteLine("A) Namen einlesen")
  21.             WriteLine("B) Vornamen ausgeben")
  22.             WriteLine("C) Nachnamen ausgeben")
  23.             WriteLine("X) Ende")
  24.             wahl = UCase(CChar(ReadLine()))
  25.  
  26.             Select Case wahl
  27.                 Case "A"c
  28.                     WriteLine("Geben Sie den Namen ein: ")
  29.                     eingabe = ReadLine()
  30.  
  31.                     Do Until counter >= eingabe.Length Or zaehler > 1
  32.                         If (eingabe.Chars(counter) = " ") Then
  33.                             zaehler += 1
  34.                         End If
  35.                         counter += 1
  36.                     Loop
  37.  
  38.                     Select Case zaehler
  39.                         Case >= 2
  40.                             Console.ForegroundColor = ConsoleColor.Red : WriteLine("Bitte benutzen Sie nur max. ein Leerzeichen!")
  41.                             Console.ResetColor()
  42.                         Case <= 1
  43.                             ReDim Preserve namen(namen.Length)
  44.                             namen(namen.Length - 1) = eingabe
  45.                             Console.ForegroundColor = ConsoleColor.Green
  46.                             WriteLine("Eingabe erfolgreich!")
  47.                             Console.ResetColor()
  48.                     End Select
  49.  
  50.                 Case "B"c
  51.  
  52.                     If Not namen.Length <> 0 Then
  53.                         Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
  54.                         Console.ResetColor()
  55.                     Else
  56.                         WriteLine("Vornamen: ")
  57.                         For Each foo In namen
  58.  
  59.                         If foo.Contains(" ") Then
  60.                             name = foo.Split(" "c)
  61.                             vname = name(0)
  62.                             WriteLine(vname)
  63.                         End If
  64.  
  65.                     Next
  66.  
  67.                     End If
  68.  
  69.                 Case "C"c
  70.  
  71.                     If Not namen.Length <> 0 Then
  72.                         Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
  73.                         Console.ResetColor()
  74.                     Else
  75.                         WriteLine("Nachnamen: ")
  76.                         For Each foo In namen
  77.  
  78.                             If foo.Contains(" ") Then
  79.                                 name = foo.Split(" "c)
  80.                                 nname = name(1)
  81.                                 WriteLine(nname)
  82.                             Else
  83.                                 WriteLine(foo)
  84.                             End If
  85.  
  86.                         Next
  87.  
  88.                     End If
  89.  
  90.             End Select
  91.  
  92.         Loop Until wahl = "X"
  93.  
  94.     End Sub
  95.  
  96. End Module
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top