Buchstabenfolgen und Zahlen auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo, Michael,
leider habe ich an dieser Stelle nich genügend Rücksicht darauf genommen, dass Du dieses Listing als "Einstig" in die VBA-Programierung nutzen wirst. Daher versuche ich gerne Fragen zu beantworten.
Die Einzelvariable ist ein Wert, der an einer bestimmten Stelle im Speicher hinterlegt ist. Die Adresse wird über den Variablennamen angesprochen.
Ein Variablenfeld (Array) sind nun nichts anderes als eine Anzahl von Variablen, die vom gleichen Typ sind und hintereinander im Speicher abgelegt werden. Um die Werte nun zu erhalten, benötigt man die Adresse der ersten Variablen des Feldes (Startindex in der Regel 0 oder 1), von der man nun über einen gültigen Index des Feldes, eine bestimmte Speicherstelle in der Adressenfolge ansprechen kann.
X(12) ist also der zwölfte Wert nach dem Start, wenn die Speicherstelle des Startwertes mit dem Index 1 beschrieben wird.
Nun habe ich in dem Programm gleich noch eine sogenannten benutzerdefinierten Typ einer Variabeln angelegt, nähmlich den Datentyp Elements.
Dieser Datentyp besteht nun aus genau den, bei der Deklaration benannten Einzelwerten.
Ein benutzerdefinierter Datentyp kann also ähnlich wie eine Dateikarte wirken, auf der in einer bestimmten und festen Ordnung Eigenschaftsfelder vorhanden sind, die zur Aufnahme von Beschreibungsmerkmale eines Objektes dieses Types dienen.
Es bestimmt leicht einsichtig, dass diese Daten hintereinander im Speicher abgelegt werden können.
Eine solche "Karteikarte" enthält die Einträge:

Chemisches Symbol (chZ),

Anzahl der Teile in der Summenformel (Anz),

Masse (Masse),

durchschn. Masse (DMasse)
Eine Instanz der "Karteikarte" ist vom Typ Element und wird von mir El genannt (Deklaration DIM El as Elemtens). Nun besteht die (chem.) Summenformel in der Regel aus mehreren Elementen, so dass ich in der Regel auch mehrere der Karteikarten benötige, um alle Teile einer gegeben Summenformel zu erfassen. Da dieses "Karteikarten" vom gleichen Typ sind, können sie als Array von Datentyp Elements behandelt werden und daher dei endgültige Dekleration:
DIM El(20) as Elements
Es wird nun klar sein, dass mit diesem "Stapel" von "Karteikarten" jede chem. Summenformel erfasst werden kann, die nicht mehr als 20 Einzelelemente enthält. Bei Bedarf kann also die 20 nach Erfordernissen angepasst werden.

Da dieses Datenfeld El(20), nur beim Auswerten eienr Summenformel temporär gebraucht wird (mit maxItem wird die Anzahl der für die betrachtete Summenformel benutzen "Dateikarten" gesetzt), ist klar, dass mit der Begrenzung auf 20 Einzelelemente, keine Einschränkung auf die Anzahl der zu verarbeitenden Summenformeln verbunden ist.
Ich hoffe, dass ich diesen Teilaspekt des Programmes verständlich darstellen konnte, ansonsten gilt: Bei Fragen, fragen!
Gruß!
P.S.
Die Erkennung der Einzelelement hängt direkt mit der korrekten Groß-/Kleinschreibung zusammen, da ein fstgestelleter Kleinbuchstabe an den zuvor festgestellten Großbuchstaben gebunden ist. Ausgegangen wird bei der Logik davon, dass nur Chemische Elemente Erkannt werden können, die aus mindestens einem gültigen Großbuchstaben und optionell mit einem nachfolgenden Kleinbuchstaben bestehen.

Hallo, Michael!
Bewusst habe ich Deine zeitlich später gestellte Frage, vor dieser, zeitlich früher gestellten Frage beantwortet.
Auch nehme ich an, dass das Listing des Programmes Dir vorliegt bzw. für Dich einsehbar ist.
Sicher wird auch bereits erkannt sein, dass duch schritteweises Auswerten und Streichen der ausgewerteten Teile in der jeweiligen Restzeichen die Eintragungen auf den zuvor besprochenen "Karteikarten" erfolgt.
Dabei habe ich mir ein paar wichtige, unveränderbare Randbedingungen Deiner Aufgabenstellung zu nutze gemacht:

Eine (chem.) Summenformel beginnt immer mit einem Großbuchstaben

Die Großschreibung des ersten Buchtaben eines Elements und die Kleinschreibung eines möglichen zweiten Buchstaben zum Molekülsymbol. In dem Funktionsblock GetchZ werden diese Bedingungen zur Erledigung der Aufgabe umgesetzt.

Nach einer Zahl (Anzahl der Moleküle) wird entwedert nichts weiter folgen oder aber es ist ein neuer Großbuchstabe zu erwarten.
Du siehst also, dass andere Schreibweisen mit diesem Programmablauf nicht zum Ziel führen.
Das Programm ruft also aus seinem Hauptteil einmal die Auswertung eines möglichen chem. Symbolnames auf (GetchZ) und ist dieses erfolgreich gelaufen (Eintrag in der "i"-ten "Karteikarte" zur Summenformel), wird zusätzlich untersucht, ob eine Zahl (Anzahl) angegeben ist oder ob die 1 in das betreffendes Feld des Array-Elementes El(I).Anz eingetragen werden soll. Steht also am Beginn des aktell verleibenden Restzeichenkette eine Zahl if val(fml)>0, dann eledige die Aufgabe der funktion GetAnz (andernfalls ist das Fehlen einer Zahl am Beginn des Rest-Strings als Anz=1 interpretiert, ohne dass weitere Aktionen am Reststring von nöten sind).
In der Funktion GetAnz wird nun folgendes erledigt:
a1 = Val(fml)
Die Zeichenkette fml wird, soweit es möglich ist ( = bis zum auftretten eines nicht numerischen Zeichens 0...9), in die Integervariable a1 geschrieben. Hier steht also, wenn die Kette "212CoH2O" enthielt, eine 12 in der Speicherstelle mit dem Varuablennamen a1.
GetAnz = a1
Die Rückgabe eines Ergenissesaus einer Funktion erfolgt mindestens über den Namen der Funktion, der intern dafür den entspechenden Speicherplatz bereirgestellt hat (Function Name(...) as Integer). In dem Beispiel also wird die 212 zurückgegeben,

    alen = 1
While a1 $gt; 9
a1 = a1 / 10
alen = alen + 1
Wend</b>
In dieser While ... Wend, die in Worten gefasst folgendes ausführt, nachdem zuvoe ein "Zahlenstellenzähler", <b>alen</b>, auf 1 gesetzt worden ist:
<b>Solange a1 größer als 9 ist,
teile den Wert von a1 durch 10 (nun ist a1 eigentlich 21.2,
da aber a1 vom Typ Integer ist,
ist a1 nun 21)
Erhöhe den Zahlenstellenzähler um 1
prüfe erneut

Zum abschluß, nachdem der While-Wend-Block verlassen wurde, steht in alen die Anzahl der Ziffern der Zahl bereit, und es kann nun die Dtringbearbeitung (Streichung der ersten alen-Zeichen) erfolgen, anders formuliert, nimm den Rest des Stings ab dem ersten Zeichen nach der Zahl (alen+1):
fml = Mid(fml, alen + 1)
Das war's. Die Antwort auf die Frage, wie gebrochene Zahlen in der Zeichenkette (12.34 oder 12,35, je nach Läöndereinstellung) verarbeitet werden und warum dies auf diese Weise dann geschieht, soll als kleine Aufgabe offen bleiben (Vorischt: Falle).
Guß,
Uwe

Beliebteste Forumthreads (12 Monate)

Buchstabenfolgen und Zahlen auslesen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Buchstabenfolgen und Zahlen auslesen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread