Array in Function
13.10.2006 13:22:59
Markus
Ich habe ein Problem mit einem Array innerhalb einer Funktion.
Nach jedem Funktionsaufruf sind die bisherigen Einträge verschwunden. Ich habe schon probiert die Deklaration meines Array mit Public text_array(100) öffentlich zu machen.bekomme dann aber nur eine Fehlermeldung Ungültiges Attribut in
Sub oder Function.
was mache Ich fasch bzw wie sieht die Lösung aus?
Sub Name()
Public text_array(100)
'hier wird eine datei geöffnet
Do While Not EOF(1)
Line Input #1, textzeile
'hier steht der functiondaufruf(textzeile)
.loop
End Sub
Function sortiere(textzeile)
for(i=1 to 100)
text_array(i)=textzeile
i=i+1
next
'hie folgt die sortierroutine
.End Function
Vielen Dank und schönes Wochenende
Anzeige