Hallo Hans
Hans Werner Hofmann schrieb:
On Thu, 15 Dec 2005 14:00:28 +0100, you wrote:
Hallo Heinz,
Können wir das so handhaben,daß ich dich mit Hans anrede und du mich mit
Werner (wegen der Unterscheidbarkeit, und weil ich mich nicht auf Heinz
umgewöhnen mag ;-)
Ich war heut morgen ganz überrascht, ich war ausnahmsweise mal übers
Wochenende mal nicht am Rechner, und hatte gar nicht mehr erwartet daß
das Thema noch jemand interressiert.
Ich hab mir hier mit Hilfe von ->Makro aufzeichnen ,
und (weitesgehend) mit Suchen und Ersetzen ein Makro
gebaut, das Textstrings in der Form von chemischen Summenformeln,
zb.CaCO3, NaCl oder NH4Fe(SO4)2,
in eine scalc-Funktion umstrukturiert,die dann im Tabellenblatt
ausgewertet wird; d.h. zu einer chem. Summenformel wird das
entsprechende Molekularewicht errechnet.
ich hatte sowas mal als XL-Funktion geschrieben, aber nur ein paar
Elemente eingebaut und hab jetzt Deine Liste verwendet :-) Danke schön
Die Liste war Dank Google das kleinste Problem
dafür. Das ist eine Arrayfunktion über zwei Zellen in Zeile. Die erste
liefert das Summen-Ergebnis und die zweite den Formelstring.
Unter OO-Basic muss man die Funktionen Replace und Evaluate
nachbilden. Falls Dir dazu nix einfällt, dann melde Dich unter PM -
kann ich Dir zukommen lassen...
Das Angebot nehm ich gerne an, mail an: [EMAIL PROTECTED]
Ich teste jetzt gerade deine Funktion:
Im ersten Test: keine Fehlermeldung, aber eine markierte Zeile
"erflag = -9"
in function evaluate, in Modul Parser Bibliothek DMATH2
Daraufhin hab ich die Funktion Evaluate aus deinem in anderer Mail
gepostetem Link:
http://deadline.3x.ro/vb6code_find_roots.html
in das Testmodul eingefügt, bekomme aber dann "Overflow" in einer Msgbox....
.....so wies aussieht komm ich damit auch nicht weiter, wäre nett von
dir wenn du per PM eine angepasste Evaluate Funktion senden würdest.
BTW: Bei Deiner Lösung wäre es effektiver EINEN Argument-Array zu
verwenden und immer nur die Seach/Replace-Terme auszutauschen...
Du meinst statt der SVERWEIS... Zeilen,etwas in der Art:
For j=1 to Len(input)
teil = Left(input,j)
teil2 = Right(teil,1)
if teil2 = "H" Then teil2 = "1,01"
if Teil2 = "He" Then Teil2 = "4"
usw...
wobei dann zuerst alle 2-buchstabigen Elemente abgearbeitet sollten.?
Werd ich bei Gelegenheit nochmal probieren.
Danke für die Tips und Anregungen,auch an alle anderen die hierzu
geantwortet haben,
Gruß
Werner
Gruß HW
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
