Buchstaben Zahlen zuordnen

[erikafuchs]

Hallo Ihr Lieben.
wie man Zahlen Buchstaben zuordnet weiß ich. Wie aber macht man das umgekehrt? Ich habe etwa 650 Schüler mit je 11 bis 16 Fächern in einer Tabelle, macht etwa 7000 Zeilen. Die Fächer haben, je nach Jahrgang im Zeugnis, eine andere Reihenfolge. Für den Jahrgang 5 habe ich zB.: ein Array5(D, M, E, MU, GL) fü den Jahrgang 9 das Array9:(D, M, E, PH, CH, W1). Jetzt muss ich den Fächern (D, M, E, MU, GL, PH, CH, W1) je nach Jahrgang eine andere Reihenfolge, also verschiedene Zahlen zuordnen. Ich habe mir nicht anders zu helfen gewusst, als eine select Abfrage einzusetzen:

Code: Alles auswählen

select case n
    case  Array(1)
          m=1
    case Array(2)
          m=2
.....
end select

das erscheint mir unelegant und langsam (bei 7000 Zeile und etwa 15 Fächern). Hat jemand eine bessere Idee wie man Buchstaben Zahlen zuordnen kann?
Grüße
Pit

[turtle47]

Hi Pit,

Hat jemand eine bessere Idee wie man Buchstaben Zahlen zuordnen kann?

vielleicht so:

Code: Alles auswählen

Sub Main
Const D = 3
Const M = 7
Const E = 5
Const MU = 9
Const GL = 4
Const PH = 6
Const CH = 4
Const W1 = 8
	aConst = ARRAY(D,M,E,MU,GL,PH,CH,W1)
		for i = lBound(aConst) to uBound(aConst)
			iValue = aConst(i)
			Print iValue
		next
End Sub

Die Schleife ist nur zur Verdeutlichung eingebaut.

Viel Erfolg.

Jürgen

[erikafuchs]

Lieber Jürgen,
das sieht doch gut aus, das werde ich ausprobieren.
Vielen Dank
Pit

[erikafuchs]

Lieber Jürgen oder wer auch immer mit dem Befehl "const" umgehen kann,

ich würde ja die Zuordnungen gerne aus einem Tabellenblatt auslesen. Dadurch könnte auch jemand, ohne das Makro ändern zu müssen, die Reihenfolge ändern: Auf dem Tabellenblatt "Zuo" stehen in der Spalte 3 die Buchstaben für die Fächer und in der Spalte 5 die Zahlen für die Reihenfolge im 5. Schuljahr, in der Spalte 6 für das 6. Schuljahr.... Jetzt lese ich die Daten in ein Array:

Code: Alles auswählen

   for n=1 to 15
      TitelArray(zuoSheet.getCellByPosition(5,n).value)=zuoSheet.getCellByPosition(3,n).string   
   next

und dann lege ich die Zuordnungen fest:

Code: Alles auswählen

   for n=1 to 15
      const TitelArray(n) = n
   next  

...na ja, wäre schön gewesen, wenn das so klappen würde...
Vielen Dank für Euer Interesse
Pit

[turtle47]

Hallo Pit,

wer auch immer mit dem Befehl "const" umgehen kann,

"Const" ist eine Konstante in einem Programm, welche im Gegensatz zu einer Variablen nicht mehr verändert werden kann.

und dann lege ich die Zuordnungen fest:

Code: Alles auswählen
for n=1 to 15
const TitelArray(n) = n
next

Ha, dass hatte ich auch mal versucht und musste mich da eines besseren belehren lassen.
Man kann meines Wissens nach in einem Programm keine neuen Namen für Variablen erzeugen.

Jürgen

[erikafuchs]

Lieber Jürgen
das hatte ich befürchtet. Da aber jeder Jahrgang eine andere Zuordnung benötigt muss ich wohl bei meiner ersten Version bleiben. Trotzdem vielen Dank.
pit

[Stephan]

Man kann meines Wissens nach in einem Programm keine neuen Namen für Variablen erzeugen.

Richtig.
Man kann aber notfalls mit dem Programm zur Laufzeit den Code für eine neue Sub bzw. Modul erzeugen, die dann auch KOnstantenzuweisungen beinhalte kann und anschließend die neu erzeugte Sub starten.

Wie das ERzeugen geht steht hier:
http://www.dannenhoefer.de/faqstarbasic ... chen..html

und was ich oben vorschlage habe ich hier im Forum glaube ich bereits einmal als Beispiel gepostet.


Der Inhalt des Threads hier erschließt sich mir hingegen nicht so ganz, denn:

Code: Alles auswählen

select case n
    case  Array(1)
          m=1
    case Array(2)
          m=2
.....
end select

geht natürlich grundsätzlich auch angelehnt an:

Code: Alles auswählen

For i = 0 To UBOUND(Array1())
   If Aray1(i) = n Then
      m = Array2(i)
      Exit For
   End If 
Next i

falls es nur um das geht was wirklich im Code steht und Array1() die mit n zu vergleichenden Werte enthält und und Array2(), das analog aufgebaut sein muß, die Wertze die m zugewiesen werden sollen.



Gruß
Stephan