von Jonny1 » Do, 27.01.2011 12:31
Ich versuche, auf dem kostenlosen Programm IBM Lotus Symphony:
- 2011-01-27_1048.png (120.02 KiB) 884 mal betrachtet
das sowohl OO-Basic als auch - wenn auch leider, zur Zeit mindestens, nicht im vollen Umfang - VBA kann, das, ein wenig zu imitieren, was f4 - die kostenfreie Transkriptionssoftware für Audio- und Videoaufnahmen (
http://www.audiotranskription.de/f4.htm)
leistet.
f4 verfügt über ein Textverarbeitungsprogramm, das rtf-Dateien erzeugen kann. Der Leistungsumfang in der Textverarbeitung ist aber gering und nicht zu vergleichen mit dem von IBM Lotus Symphony. Und vor allem kann man mit f4 keine Makros erstellen.
In Symphony wiederum kann man zwar ein Video starten, aber - soweit ich es verstanden habe - nicht ab einem wählbaren Zeitpunkt innerhalb des Videos und nicht mit einer wählbaren Zeitdauer (das letzte kann man - soweit ich es verstanden habe - auch mit f4 nicht).
In Microsoft Word hatte ich Makros geschrieben, die das Problem lösten. Word ist aber teuer und ein jugendlicher in Burundi auf dem Land verbraucht 3 Euro, um sich während eines ganzen Monats zu ernähren. Würde man einer Gruppe von Jugendlichen dort einen Notebook mit installierten Linux, IBM Lotus Symphony, VLC und anderen kostenlosen Programmen geben, dann könnten sie vielleicht lernen, Makros zu produzieren, für die sie Geld und somit eine Lebenschance bekommen könnten.
Dabei muß ich immer an Évariste Galois (
http://de.wikipedia.org/wiki/%C3%89variste_Galois) denken und an das, was ich bereits vor einem halben Jahrhundert auf einem Buch zur Geschichte der Mathematik gelesen habe. Dort stand, daß Évariste deswegen vor seinem Tod im Alter von 20 Jahren so großartige Dingen leisten konnte, weil die Mathematik ein ziemlich komprimiertes Wissens-Feld ist, bei dem auch und besonders junge Menschen sehr schnell das wesentliche lernen können. Davon bin ich überzeugt. Und ich denke, daß das Programmieren große Ähnlichkeiten mit der Mathematik hat. Es dürfte also schneller gehen, jungen begabten Leuten das Programmieren beizubringen, als sie mit der kanonischen Schulausbildung zu dressieren, die wir im Westen erleiden mußten.
Und ich denke, daß für uns in den Überflußländern Bilder wie das von Évariste
besser zu ertragen sind als andere Bilder wie dies hier:
... und auch hygienischer, denn es bildet sich sehr viel Haß in den armen Ländern gegen die fetten Schlaraffianer und manche Kinder werden durch fanatische Islamisten für den Selbstmordterror gegen uns gedrillt.
Große Programme anzufertigen geht es nur, wenn man schon viel gelernt hat und, wenn man möglichst innerhalb einer gut abgestimmten Gruppe arbeitet. Makros hingegen kann man - soweit ich es verstanden habe - ziemlich schnell produzieren. Aber in vielen kleinen und größeren Büros dürfte - hoffe ich - dennoch eine hinreichende Nachfrage nach Programm-Fetzen geben, welche diese oder jene ganz individuelle Problemchen lösen können.
Kleine Makros auf einem großen Programm wie Symphony sind vielleich - so hoffe ich mindestens - in der Lage besseres zu leisten als ganze Programme wie f4.
f4 benutzt Strings der Art, die hier unten abgebildet ist:
- 2011-01-27_1042.png (78.92 KiB) 884 mal betrachtet
Klickt man irgendwo innerhalb des Strings " #00:01:12-0# ", dann sendet f4 dem Video-Programm VLC den Befehl, ein voreingestelltes Video ab genau der Szene abzuspielen, die dem Zeitpunkt 00 Stunden, 01 Minuten, 12 Sekunden und 0 Hundertstel Sekunden entspricht. Dafür muß man umständlicherweise sowohl die Adresse des Videos als auch die RTF-Datei vorladen. Mit Symphony - hoffe ich - dürfte alles viel, viel besser mit einem im Vergleich mikroskopischen Aufwand zustande kommen.
Da ich aber nicht weiß, wie man mit einem Maus-Klick dem Makro mitteilen kann, daß es anspringen soll, habe ich die Schaltfläche eingebaut, die du gesehen hast.
Mit einer Routine wie:
Code: Alles auswählen
Sub UebungenMitTextCursor4S 'Will overwrite an existing file without warning!
dim oDoc,oVC,NewDoc,Zahl1,Zahl2,oTC,oNewDocVC,newname,newurl,n,StringA
Zahl1 = InputBox("Zahl1 eingeben","Von ...")
Zahl2 = InputBox("Zahl2 eingeben","... bis ...")
oDoc = ThisComponent
oVC = oDoc.CurrentController.getViewCursor 'Create View Cursor oVC
oTC1 = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
oTC2 = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
bExtend = false
oTC1.goRight(Zahl1, bExtend)
oTC2.goRight(Zahl2, bExtend)
oTC1.gotoRange(oTC2,true) 'Move Text Cursor to same location as oVC while selecting text in between (True)
StringA = oTC1.String
print StringA
End Sub
... veranlasse ich das Makro anzuspringen und mit einem String - der Vorübung wegen - zu hantieren. Es ist noch nicht das, was das Problem löst, sondern, wie gesagt, nur eine Vorübung.
Ein Problem, was ich gerne überwunden hätte, wenn ich nicht so beschränkt wäre, ist es, daß ich dem Makro sage, sich mit dem String zu beschäftigen, der rechts unmittelbar neben der Schaltfäche liegt.
Anstatt dessen springt das rebellische Makro zu einem String irgendwo auf dem Blatt, und zwar genau dort, wo sich der Kursor befand, bevor ich auf die Schaltfläche klickte.
Habe ich dir jetzt ein wenig über Zweck und Sinn der Aufgabe mitgeteilt, oder habe ich das Durcheinander nur noch verschlimmert?
Gianni
PS - Diesmal an Stephan
viewtopic.php?f=18&t=45420#p165167 gerichtet:
Also ich habe hier Lotus Symphony 3.0.0 installiert und konnte bisher alle Makros, welche in Word, bzw Excel geschrieben wurden, ausführen. Ohne Probleme
"Das muß ich mir dann ansehen, denn mir ist das unbekannt, wenn es stimmt wäre es eine REvolution und ich würde sofort zu Sympghony wechseln."
Und, hast du dir es angesehen? Es schafft zwar nicht alle VBA-Makros, aber doch manche. Wirst du sofort zu Symphony wechseln?
Ich versuche, auf dem kostenlosen Programm IBM Lotus Symphony:
[attachment=0]2011-01-27_1048.png[/attachment]
das sowohl OO-Basic als auch - wenn auch leider, zur Zeit mindestens, nicht im vollen Umfang - VBA kann, das, ein wenig zu imitieren, was f4 - die kostenfreie Transkriptionssoftware für Audio- und Videoaufnahmen ([url]http://www.audiotranskription.de/f4.htm[/url])[img]http://www.audiotranskription.de/audiotranskription/upload/f4-v4-video.png[/img][img]http://www.audiotranskription.de/audiotranskription/upload/f4-v4-audio.png[/img] leistet.
f4 verfügt über ein Textverarbeitungsprogramm, das rtf-Dateien erzeugen kann. Der Leistungsumfang in der Textverarbeitung ist aber gering und nicht zu vergleichen mit dem von IBM Lotus Symphony. Und vor allem kann man mit f4 keine Makros erstellen.
In Symphony wiederum kann man zwar ein Video starten, aber - soweit ich es verstanden habe - nicht ab einem wählbaren Zeitpunkt innerhalb des Videos und nicht mit einer wählbaren Zeitdauer (das letzte kann man - soweit ich es verstanden habe - auch mit f4 nicht).
In Microsoft Word hatte ich Makros geschrieben, die das Problem lösten. Word ist aber teuer und ein jugendlicher in Burundi auf dem Land verbraucht 3 Euro, um sich während eines ganzen Monats zu ernähren. Würde man einer Gruppe von Jugendlichen dort einen Notebook mit installierten Linux, IBM Lotus Symphony, VLC und anderen kostenlosen Programmen geben, dann könnten sie vielleicht lernen, Makros zu produzieren, für die sie Geld und somit eine Lebenschance bekommen könnten.
Dabei muß ich immer an Évariste Galois ([url]http://de.wikipedia.org/wiki/%C3%89variste_Galois[/url]) denken und an das, was ich bereits vor einem halben Jahrhundert auf einem Buch zur Geschichte der Mathematik gelesen habe. Dort stand, daß Évariste deswegen vor seinem Tod im Alter von 20 Jahren so großartige Dingen leisten konnte, weil die Mathematik ein ziemlich komprimiertes Wissens-Feld ist, bei dem auch und besonders junge Menschen sehr schnell das wesentliche lernen können. Davon bin ich überzeugt. Und ich denke, daß das Programmieren große Ähnlichkeiten mit der Mathematik hat. Es dürfte also schneller gehen, jungen begabten Leuten das Programmieren beizubringen, als sie mit der kanonischen Schulausbildung zu dressieren, die wir im Westen erleiden mußten.
Und ich denke, daß für uns in den Überflußländern Bilder wie das von Évariste
[img]http://upload.wikimedia.org/wikipedia/commons/thumb/5/53/Evariste_galois.jpg/220px-Evariste_galois.jpg[/img]
besser zu ertragen sind als andere Bilder wie dies hier:
[img]http://i169.photobucket.com/albums/u215/martyrgod77/starving_child-sudan2.jpg[/img]
... und auch hygienischer, denn es bildet sich sehr viel Haß in den armen Ländern gegen die fetten Schlaraffianer und manche Kinder werden durch fanatische Islamisten für den Selbstmordterror gegen uns gedrillt.
Große Programme anzufertigen geht es nur, wenn man schon viel gelernt hat und, wenn man möglichst innerhalb einer gut abgestimmten Gruppe arbeitet. Makros hingegen kann man - soweit ich es verstanden habe - ziemlich schnell produzieren. Aber in vielen kleinen und größeren Büros dürfte - hoffe ich - dennoch eine hinreichende Nachfrage nach Programm-Fetzen geben, welche diese oder jene ganz individuelle Problemchen lösen können.
Kleine Makros auf einem großen Programm wie Symphony sind vielleich - so hoffe ich mindestens - in der Lage besseres zu leisten als ganze Programme wie f4.
f4 benutzt Strings der Art, die hier unten abgebildet ist:
[attachment=1]2011-01-27_1042.png[/attachment]
Klickt man irgendwo innerhalb des Strings " #00:01:12-0# ", dann sendet f4 dem Video-Programm VLC den Befehl, ein voreingestelltes Video ab genau der Szene abzuspielen, die dem Zeitpunkt 00 Stunden, 01 Minuten, 12 Sekunden und 0 Hundertstel Sekunden entspricht. Dafür muß man umständlicherweise sowohl die Adresse des Videos als auch die RTF-Datei vorladen. Mit Symphony - hoffe ich - dürfte alles viel, viel besser mit einem im Vergleich mikroskopischen Aufwand zustande kommen.
Da ich aber nicht weiß, wie man mit einem Maus-Klick dem Makro mitteilen kann, daß es anspringen soll, habe ich die Schaltfläche eingebaut, die du gesehen hast.
Mit einer Routine wie:
[code]Sub UebungenMitTextCursor4S 'Will overwrite an existing file without warning!
dim oDoc,oVC,NewDoc,Zahl1,Zahl2,oTC,oNewDocVC,newname,newurl,n,StringA
Zahl1 = InputBox("Zahl1 eingeben","Von ...")
Zahl2 = InputBox("Zahl2 eingeben","... bis ...")
oDoc = ThisComponent
oVC = oDoc.CurrentController.getViewCursor 'Create View Cursor oVC
oTC1 = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
oTC2 = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
bExtend = false
oTC1.goRight(Zahl1, bExtend)
oTC2.goRight(Zahl2, bExtend)
oTC1.gotoRange(oTC2,true) 'Move Text Cursor to same location as oVC while selecting text in between (True)
StringA = oTC1.String
print StringA
End Sub[/code]
... veranlasse ich das Makro anzuspringen und mit einem String - der Vorübung wegen - zu hantieren. Es ist noch nicht das, was das Problem löst, sondern, wie gesagt, nur eine Vorübung.
Ein Problem, was ich gerne überwunden hätte, wenn ich nicht so beschränkt wäre, ist es, daß ich dem Makro sage, sich mit dem String zu beschäftigen, der rechts unmittelbar neben der Schaltfäche liegt.
Anstatt dessen springt das rebellische Makro zu einem String irgendwo auf dem Blatt, und zwar genau dort, wo sich der Kursor befand, bevor ich auf die Schaltfläche klickte.
Habe ich dir jetzt ein wenig über Zweck und Sinn der Aufgabe mitgeteilt, oder habe ich das Durcheinander nur noch verschlimmert?
Gianni
PS - Diesmal an Stephan [url]http://de.openoffice.info/viewtopic.php?f=18&t=45420#p165167[/url] gerichtet:
[quote]Also ich habe hier Lotus Symphony 3.0.0 installiert und konnte bisher alle Makros, welche in Word, bzw Excel geschrieben wurden, ausführen. Ohne Probleme[/quote]
[b][size=150]"Das muß ich mir dann ansehen, denn mir ist das unbekannt, wenn es stimmt wäre es eine REvolution und ich würde sofort zu Sympghony wechseln."[/size][/b]
Und, hast du dir es angesehen? Es schafft zwar nicht alle VBA-Makros, aber doch manche. Wirst du sofort zu Symphony wechseln?