|
Hallo
Ich mache derzeit eine Arbeitserprobung für eine Ausbildung zum Fachinformatiker und habe ein dickes Buch und eine Aufgabe erhalten um VBA zu erlernen.
Die Aufgabe besteht darin, ein Makro zu schreiben, welches Wortwiederholungen in einem Text zählt und geordnet ausgibt.
Das Programm ist soweit fertig, allerdings ist der Zeitaufwand, trotz Quicksort!, enorm. Ich habe nun getestet welche Abschnitte denn solange brauchen und heraus kam, dass gleich am Anfang das Einlesen des Textes in ein Array mit
ReDim Preserve Text(1 To ActiveDocument.Words.Count)
For j = 1 To Anzahl
If Len(ActiveDocument.Words(j)) > 2 Then
Text(j) = ActiveDocument.Words(j)
End If
Next
diesen Zeitaufwand braucht, der ganze Rest wird unter einer Sekunde abgearbeitet.
Weder ich, noch mein Ausbilder wissen dazu eine schnellere Alternative, sodass ich hier nun fragen möchte, welche Alternativen es denn noch gibt.
Ich vermute ja, dass ActiveDocument.Words() so lange benötigt, da es im Restprogramm nicht nochmal auftaucht, die Frage für mich ist nur: Warum?
Hier noch als Zusatzinfo die Seitenanzahl und die benötigte Zeit dafür, jede Seite hat 545 Wörter:
Seite Zeit (s)
1 0,99
2 4,02
3 9,11
4 16,22
5 25,16
6 36,33
7 49,44
|