Das Außergewöhnliche

[Dilbert]

War etwas beschäftigt und habe den Durchbruch geschafft.

In OpenOffice ist es nun mir möglich die Raten zu berechnen. Da es in der Tabellenkalkulation Calc stattfindet, ist es jetzt möglich die Raten-Zusammensetzung besser zu strukturieren.

Wer sich in EFT (Emotion Freedom Technique) auskennt weiß, daß spezifischer an das Thema rangegangen wird, desto besser ist der Erfolg.

Was für Möglichkeiten es nun gibt, muß ich erst den Kopf sauber bekommen.

Nun mal zur Vorstellung:
(A1 bis A4 sind Zellen vom Kalkulationsblatt)

A1: Vorname
A2: Familienname
A3: = A1+A2
A4: = raten(A3)

[Hans]

Das ganze wäre schön Anwenderfreulich wenn man es in Visual Basic programmieren würde.

[Dilbert]

[Hans]

Das Problem besteht darin dass nicht jeder mit einer Tabellenkalkulation umgehen kann, oderauch möchte.
Ein fertig kompiliertes Programm hingegen ist da für jeden etwas feines

[Dilbert]

[Dilbert]

So, ich habe nun vor den folgenden ASCII-Coder unter Knoppix 5.1.1 (Linux Live-CD, muß nicht auf Festplatte installiert werden) zu testen.

Bitte keine Beiträge anhängen - möchte noch korrigieren können

[Dilbert]

REM ***** BASIC *****

function a2code(r1)

lr1 = len(r1)

r2 = ""

for i = 1 to lr1

a = mid(r1,i,1)
b = asc(a) * asc(a)
r2 = r2 + ltrim(str(b))

next

r1 = r2

lr1 = len(r1)

do while lr1 > 8

a = mid(r1,1,3)
b = ltrim(str(val(mid(a,1,1)) + val(mid(a,2,1)) + val(mid(a,3,1))))
r1 = mid(r1,4,lr1 - 3)
r1 = r1 + b
lr1 = len(r1)

loop

a2code = r1

End function

[Dilbert]

Es funktioniert also auch unter Linux - Live! Das ist für alle die, die sich OpenOffice nicht auf die Platte installieren wollen.

Live-CD starten
OpenOffice starten

Datei/Neu/Tabellendokument
Detei/Speichern unter
test
speichern

Extra/Macros/Makros verwenden/OpenOffice.org Basic/Bearbeiten
Coursor hinter End Sub
2 x Eingabetaste

Prog vom Forum

REM bis End function
kopieren und unter
End sub
einfügen

speichern Das ist wichtig, sonst funktioniert die Funktion nicht.

Jetzt in das Tabellendokument wechseln
in irgend eine Zelle folgendes eingeben:

=a2code("dilbert")

Ergebnis = 11129911



Test erfolgreich abgeschlossen. Es können jetzt wieder Beiträge angehängt werden.

Noch etwas: Wer schon OO installiert hat, egal unter Windows oder Linux, das einfügen der Funkton geschieht auf gleicher weise und hat den Vorteil, dass sie dann dauerhaft in OO ist.

[Dilbert]

Im Bild sieht man den Vorteil einer Ratenfunktion




Eine Rate wird durch 5 Zellen gebildet; die Zellen werden in der Funktion mit dem KaufmannUnd (&) verbunden.

Auf diese Weise läßt sich eine Strucktur für die Rate testen.
(z.B. Was, Wo, Wie, Wann)

[Dilbert]

Kurz zum Programm: Es wurde vereinfacht und übersichtlicher geschreiebn. s besteht aus zwei Teilen. Die FOR NEXT Schleife überstetzt den Text in Zahlen und die WHILE LOOP Schleife kürzt bei jedem Durchlauf die Zahlenkolone um ein bis zwei Stellen.

[Hans]

Hallo Dilbert

Danke für das Programm.

Ich habe es im Excel nachvollzogen und es funktioniert.
Bei Umluaten bekomme ich jedoch keinen Wert heraus.

[Dilbert]

Hallo Hans,

ist es Dir möglich den Quellcode hier zur Fehlersuche einzustellen?

[Dilbert]

Hans, ich habe noch ein paar kleine Tests bei mir durchgeführt:

Es werden auch Zeichen wie @, ?, Š umgewandelt.

Š = Alt + Num 0169

In diesem Sinne ist A2Code internationaler

[Hans]

Hallo Dilbert,

der Quellcode ist von dir so übernommen worden:

Sub code()

End Sub


Function a2code(r1)

lr1 = Len(r1)

r2 = ""

For i = 1 To lr1

a = Mid(r1, i, 1)
b = Asc(a) * Asc(a)
r2 = r2 + LTrim(Str(b))

Next

r1 = r2

lr1 = Len(r1)

Do While lr1 > 8

a = Mid(r1, 1, 3)
b = LTrim(Str(Val(Mid(a, 1, 1)) + Val(Mid(a, 2, 1)) + Val(Mid(a, 3, 1))))
r1 = Mid(r1, 4, lr1 - 3)
r1 = r1 + b
lr1 = Len(r1)

Loop

a2code = r1

End Function

[Dilbert]

Hallo Hans,

das Prog wurde für OpenOffice geschrieben und nicht für Excel.

VBA und Starbasic unterscheiden sich.

Ich habe etwas gegoogelt. Die Funktionsdefinition ist etwas anders. Die Funktionen len, val, mid und asc scheinen idendisch zu sein. Wie ltrim in VBA heißt, weiß ich nicht. Diese entfernt die Leerstellen links.
For next scheint identisch zu sein

Do while loop schreiben manche Basic -Dialekte auch Do while end do.

Vielleicht kommst Du damit in der VBA-Hilfe weiter.

Da ich für natürliche Vielfalt bin, nehme ich Abstand von der IT-Monokultur.