DLL Ergebnisse in txt. oder Excel füllen

  • VB6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    DLL Ergebnisse in txt. oder Excel füllen

    Hallo zusammen,

    hab da mal wieder eine Frage.
    Ich habe eine DLL die ergebnisse von Excel verarbeitet und auch gleich in Zellen füllt.
    Hier der Code:

    For k = 1 To 3
    Cells(2, k + 4).FormulaR1C1 = Contrib(k)
    Next k

    Nun hab ich aber die DLL an eine andere Software angebunden und hätte auch gerne die Ergebnisse
    in Excel oder einer txt. Datei.

    Wie geht das?
    Kann mir da einer helfen?


    Gruß
    Alex

    Und was ist jetzt das Problem? Die Ergebnisse von der anderen Software auslesen (um welche Software handelt es sich hier eigentlich??) oder das reine schreiben der Datei. Ergebnisse in Excel hast du ja schon selber gepostet. Hast du deine DLL in VB6 geschrieben? Also eine ActiveX-DLL?
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Hallo Agent,

    das ist ein Indikator für eine Börsensoftware der in deiner DLL vorliegt.
    Dazu war noch eine kleines VBA Macro dabei, als Muster sozusagen.
    Von dem ich auch den Code habe.
    Aber wie bekomme ich nun die Ergebnisse in eine andere Excel Tabelle oder in eine txt Datei?

    Gruß
    Alex

    Hallo Eierlein,

    hab Dienen Code jetzt getestet und das funktioniert auch ganz gut, aber
    nur beim ersten Rechendurchgang.
    Beim zweiten durchgang bekomme ich dann in meiner Börsensoftware eine Fehlermeldung.
    Wird die txt datei beim nächsten Durchgang dann überschrieben?
    Oder sollte man erst die txt Datei wieder auf null stellen.
    Oder gibt es auch die möglichkeit die daten in ein Formular zu füllen?

    Gruß
    Alex

    Hallo Alex73,

    mir ist gerade aufgefallen, das beim kopieren des Codes das Schließen der Datei verloren gegangen ist.

    Hier die korrigierte Version:

    Visual Basic-Quellcode

    1. Open "test.txt" for output as #1
    2. For k = 1 To 3
    3. ausgabe = Contrib(k)
    4. Print #1, ausgabe
    5. Next k
    7. Close #1 '<---------




    Bei 'open for output' wird nach 'close' und erneutem öffnen, die Datei überschrieben.

    Wenn das Überschreiben nicht gewünscht ist, gibt es mehrere Möglichkeiten:

    Du öffnest die Datei mit
    'Open "test.txt" for APPEND as #1'
    ..
    close ’

    oder du öffnest die Datei vor dem ersten Rechendurchgang und schießt die Datei nach dem letzten Rechendurchgang.

    Open "test.txt" for output as #1

    For i = 1 to 1000

    Rechenvorgang

    For k = 1 To 3
    ausgabe = Contrib(k)
    Print #1, ausgabe
    Next k

    next i

    close #1

Facebook
Telefonspende