Hallo,
ich habe eine Tabelle mit 48 Spalten und 76 Zeilen, die schon mit Zahlen gefüllt ist. Nun möchte ich diese Tabelle um zwei Zeilen erweitern. Die neuen Zeilen sollen mit 0en gefüllt sein. Je nach Ausrichtung ist die Tabelle entweder 48x78 oder 78x48. Das bedeutet, dass die neuen zwei Zeilen entweder unten, links, oben oder rechts eingefügt werden. Bisher habe ich das gelöst, indem ich eine neue Tabelle erstellt habe, die schon zwei Zeilen, bzw. Spalten mehr hatte. Danach habe ich X, Y definiert und in einer Schleife die Werte kopiert. Gibt es da eine anferere Variante?
Kann man das eleganter lösen?
ich habe eine Tabelle mit 48 Spalten und 76 Zeilen, die schon mit Zahlen gefüllt ist. Nun möchte ich diese Tabelle um zwei Zeilen erweitern. Die neuen Zeilen sollen mit 0en gefüllt sein. Je nach Ausrichtung ist die Tabelle entweder 48x78 oder 78x48. Das bedeutet, dass die neuen zwei Zeilen entweder unten, links, oben oder rechts eingefügt werden. Bisher habe ich das gelöst, indem ich eine neue Tabelle erstellt habe, die schon zwei Zeilen, bzw. Spalten mehr hatte. Danach habe ich X, Y definiert und in einer Schleife die Werte kopiert. Gibt es da eine anferere Variante?
VB.NET-Quellcode
- 'Die zwei neuen Zeilen werden links angefügt.
- Redim Array2(77, 47)
- X1 = 0
- Y1 = 0
- X2 = 2
- Y2 = 0
- Do Until Y >= 47
- Do Until X >= 76
- Array2(X, Y) = array1(X, Y)
- X1 += 1
- X2 += 1
- Loop
- X1 = 0
- Y1 += 1
- X2 = 2
- Y2 += 1
- Loop
- x2 = 0
- Y2 = 0
- do until y >= 48
- do until X >= 2
- Array2(X2, Y2) = 0
- x2 += 1
- loop
- x2 = 0
- Y2 += 1
- loop
Kann man das eleganter lösen?