Wasi

Proxy?

Warum eigentlich in PERL und nicht in VBA?

So: /* kleines Testarray */ long lArray[12] = {0,1,2,3,4,5,6,7,8,9,10,11}; /* Pointer zeigt aufs fünte!! Element (zero-based counting)*/ long* plPointer = &lArray[4]; /* Einfache Addresssubtraktion (vorher könnte man noch testen welcher Werte größer, gültig... ist) */ int iPos = (plPointer - lArray); /* Ausgabe der Ergebnisse */ printf("Array starts at %x, pointer is at %x\n", lArray, plPointer); printf("Pointer points to %dth element of array\n", iPos);

Ich hoffe das Beispiel ist aufschlussreich genug!! Der Code stammt aus einem Word-Makro, öffnet die Datei c:\Book1.xls, setzt im Sheet2 die Zelle A1 auf den Wert 12 und macht Excel wieder zu (falls es nicht vorher auf war). Sub ExcelWorkbookRemoting() ' Objektdeklarationen Dim ExcelSheet As Object Dim ExcelCell As Object Dim bExcelRuns As Boolean ' nehmen wir einfach mal an, excel lief schon bExcelRuns = True ' im Fehlerfall machen wir einfach weiter On Error Resume Next ' holen wir uns excel Set ExcelSheet = GetObject(, "Excel.Application") ' war's wirklich schon da? If Err.Number <> 0 Then ' Nein -> dann machen wir's auch wieder zu! bExcelRuns = False ' Fehler löschen Err.Clear End If ' jetzt holen wir uns das workbook Set ExcelSheet = GetObject("C:\Book1.xls") ' gibt's das? If Err.Number <> 0 Then ' Nein!!, Na so was! Err.Clear ' Das sagen wir dem user!! MsgBox "Document does not exist!" ' Und beenden uns Exit Sub End If ' Das ist wichtig, sonst ist das workbook beim nächsten öffnen ' versteckt (kann über [window->unhide] wieder sichtbar gemacht werden ' [Fenster->???] auf Deutsch ExcelSheet.Parent.Windows("Book1.xls").Visible = True ' Holen wir uns ne Zelle Set ExcelCell = ExcelSheet.Worksheets("Sheet2").Range("A1") ' Ändern deren Wert ExcelCell.Value = 12 ' Speichern alles ab1 ExcelSheet.Save ' wenn Excel schon lief, dann lassen wir's auf, sonst machen wir's zu If Not bExcelRuns Then ExcelSheet.Application.Quit ' variable freigeben! Set ExcelSheet = Nothing Set ExcelCell = Nothing End Sub

>look here<

C:\Program Files\Common Files\Microsoft Shared\MSInfo\MSInfo32.exe Hat allerdings nur lesenden Zugriff.

Hmmm, ich hab in der Perl Quick Reference leider nichts derartiges finden können. Kann leider auch nicht alles wissen. Wenn Deine Suche von Erfolg gekrönt ist, dann poste es doch bitte hier

Auch wenn das möglicherweise arrogant klingt, wie wär's denn mit nem Ausflug in die gut sortierte Buchhandlung - - die können Dir mit Sicherheit weiter helfen. Zur Not (ich weiß die Finanzen sind immer knapp) tut's auch ein Besuch in der Bibliothek

Also, wenn Du so wenig Ahnung hast, dann solltest Du Dich mit Kollegen aus Deiner Firma bereden oder ein paar einfach Bücher lesen (n Tipp, in der Buchhandlung mal einfach die Angebote in dem Bereich durchstöbern) Ein namespace, auch Namensraum ist in C(++) das worin bestimmte Funktionen definiert werden. Es existiert hier z.B. ein globaler namespace, der mit :: eingeleitet wird/werden kann. Mit dem Befehl namespace kann man auch eigene Namensräume definieren, aber es hat wenig Sinn das hier en detail zu erklären, wenn Dir schon die Grundlagen fehlen. Hier hilft wirklich nur das Lesen von Büchern oder online-Dokumentationen.

Wenn Du in C++ gearbeitet hast, müsstest Du eigentlich wissen, dass C der Grundstock für C++ ist, und C++ 'nur' die objektorientierte Erweiterung von C ist. Außerdem bietet Google sicher ne Menge Stoff zum schmökern.

Ich würde Dir ja auf die Frage gern antworten, aber ich muss gestehen, ich verstehe nicht so recht, was Du gern wissen möchtest. Würdest Du bitte die Frage noch mal ein bisschen detaillierter formulieren, dann werde ich auch versuchen, dieselbige zu beantworten. Verstanden habe ich, dass Du gern Module verwenden möchtest, also use <irgendwas>aber wo soll das Skript denn ausgeführt werden. Um die mögliche Antwort vorweg zu nehmen, bei PRL werden Abhängigkeiten nicht in das Skript einkompiliert, sondern müssen als installiertes Skript vorhanden sein. ZäR Wasi

Sorry, Streiche: print STDERR "invalid cmdline arg... usage: $0 /a <a> /b <b>/c <c> ..." Setze: print STDERR "invalid cmdline arg... usage: $0 /a <a> /b <b>/c <c> ...";

ja, das stimmt, das hätt ich Dir auch ohne Nachzuschlagen sagen können. Sei's drum. Die, wie ich finde schönste Möglichkeit das auszuwerten ist folgende: while ($#ARGV > -1) { $CMDLINE = shift @ARGV; if ($CMDLINE eq "/a") { $A = shift @ARGV; } elsif ($CMDLINE eq "/b") { $B = shift @ARGV; } elsif ($CMDLINE eq "/c") { $C = shift @ARGV; } . . . else { print STDERR "invalid cmdline arg... usage: $0 /a <a> /b <b>/c <c> ..." } } Dann noch $A $B $C ... auf Gültigkeit testen und fertig ist der Lack... ZäR

a) read the msdn (msdn.microsoft.com) check the return value (hr), if (SUCCEEDED(hr)).... see?!

Hi FaBo - - es ist spät ich bin müde, also wird das hier kurz: Sicher gibt es Tutorials über Regular Expressions (regexps), sogar ganze Bücher - - aber ob die immer gleich auf Anhieb verständlich sind kann ich Dir nicht sagen. Wenn es Dich interessiert einfach mal danach googlen. Ich arbeite jetzt seit über 1 1/2 Jahren mit Perl und regexps und ich liebe und hasse sie immer noch - - lieben weil sie genial sind, hassen - - weil man so viel falsch machen kann wenn man sie baut. Also such Dir Lektüre im Netz /*da gibt es zuhauf*/ und lies und probiere. Anders wirst Du auf keinen grünen Zweige kommen. P.S.: Auf meiner HP liegt die Perl Quick Reference noch einige Zeit zum Download bereit - - die enthält auch ein paar Sachen zu regexps und lässt sich auch sonst gut lesen: h4kk3_007.bei.t-online.de/perlref.pdf