Ausgabe formatieren

Dieses Thema Ausgabe formatieren im Forum "Windows XP Forum" wurde erstellt von sign, 10. Jan. 2007.

Thema: Ausgabe formatieren hab ein script begonnen das den besitzer eines verzeichnises bzw. einer datei ausliest. funktioniert soweit auch....

  1. hab ein script begonnen das den besitzer eines verzeichnises bzw. einer datei ausliest. funktioniert soweit auch. bloß die ausgabe ist total zerflettert.

    ' besitzer auslesen
    ' ----------------------------
    ' deklarieren
    strVerzeichnis = c:\Programme

    ' kontakt zu befehlsbibliotecken
    Set objShell = CreateObject(Shell.Application)
    Set objFolder = objShell.namespace( & strVerzeichnis & )

    ' ausgabe
    For Each strFileName In objFolder.Items
    WScript.Echo strFileName & vbTab & objFolder.GetDetailsOf(strFileName, 8)
    Next

    wie kann ich die ausgabe sauber darstellen. danke für eure hilfe
     
  2. Hi.

    etwa so:

    ' besitzer auslesen
    ' ----------------------------
    ' deklarieren
    strVerzeichnis = c:\Programme

    ' kontakt zu befehlsbibliotecken
    Set objShell = CreateObject(Shell.Application)
    Set objFolder = objShell.Namespace( & strVerzeichnis & )

    ' ausgabe
    msg = <table border=0><tr><td><b>Ordnername</b></td><td><b>Grösse</b></td></tr>
    For Each strFileName In objFolder.Items
    msg = msg & <tr><td> & strFileName & </td><td align = right> & Trim(objFolder.GetDetailsOf(strFileName, 8)) & </td></tr>
    Next
    msg = msg & </table>
    Set objExplorer = CreateObject(InternetExplorer.Application)
    With objExplorer
    .Navigate (about:blank)
    .StatusBar = False
    .MenuBar = False
    .Toolbar = False
    .Visible = True
    .Resizable = True
    .Width = 800
    .Height = 600
    .Left = 0
    End With
    Set IEDocument = objExplorer.Document
    IEDocument.body.innerhtml = msg
    IEDocument.title = strVerzeichnis
    Set objExplorer = Nothing
    Set IEDocument = Nothing
    Set objShell = Nothing


    MfG Anton
     
  3. he, anton des mit IE is ne mächtige sache und dein beispiel wird für immer in meinen docs sein.

    habs aber anders gelöst bekommen:
    mit
    MyTab = string(30 - Len(strFileName), )

    hier wäre ein weg interessant wie man die max läge des strFileName ermitteln kann (30).


    ' besitzer auslesen
    ' ----------------------------
    ' deklarieren
    strVerzeichnis = c:\Programme

    ' kontakt zu befehlsbibliotecken
    Set objShell = CreateObject(Shell.Application)
    Set objFolder = objShell.namespace( & strVerzeichnis & )

    ' ausgabe
    For Each strFileName In objFolder.Items
    MyTab = string(30 - Len(strFileName), )
    WScript.Echo strVerzeichnis & vbTab & _ strFileName & MyTab & _
    objFolder.GetDetailsOf(strFileName, 2) & vbTab & _
    objFolder.GetDetailsOf(strFileName, 8)
    Next



    danke wie immer für eure hilfe.
     
Die Seite wird geladen...

Ausgabe formatieren - Ähnliche Themen

Forum Datum
Audioausgabegerät Fehlerhaft Windows 10 Forum 7. Juni 2016
Wie Monitorausgabe in Batch Variable einbinden ? Linux & Andere 10. Jan. 2015
Mikrofon nimmt nur Audioausgabe bzw Systemsoudns auf Windows 8 Forum 3. Jan. 2015
Mikrofonausgabe über Windows auf Boxen via USB Windows 7 Forum 25. Juli 2014
Video und Audio Ausgabe umschalten Software: Empfehlungen, Gesuche & Problemlösungen 13. Mai 2014