Recent Changes

Thursday, October 27

  1. page Hilfe zu JS und VBS edited ... http://www.msxfaq.de/code/vbscript.htm Datum und Zeit Funktionen Syntax Reference Variablen…
    ...
    http://www.msxfaq.de/code/vbscript.htm
    Datum und Zeit Funktionen Syntax Reference
    Variablen, Konstanten, Variablentypen, Typumwandlung
    JScript:
    VBScript und JScript:
    (view changes)
    1:05 pm

Monday, October 10

  1. page Dropbox edited ... Function DropBoxPfad ' ermittelt den lokalen Pfad des DropBox-Ordners ' wird keine Dropbox-…
    ...
    Function DropBoxPfad
    ' ermittelt den lokalen Pfad des DropBox-Ordners
    ' wird keine Dropbox-Installation gefunden, wird ein leerer String zurück gegeben
    ' kgsoft 160802
    Dim WshShell
    ...
    DropInfo = AppDataPfad & "LocalLow\Dropbox\info.json"
    end If
    if DropInfo <> "" Then
    ' Ermittlung Dropbox-Pfad aus der info.json
    ' Annahme: Pfad steht nach dem String "path" zwischen dem folgenden beiden Anführungszeichen
    ...
    DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1, DropInfoText, "path", 1)-4) 'linken Teil bis path" abschneiden
    DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1,DropInfoText, Chr(34), 1)) 'linken Teil bis nächstes " abschneiden
    ...
    Chr(34), 1)-1) 'linken 'linken Teil bis
    DropBoxPfad = Replace (DropBoxPfad, "\\", "\") ' doppelte \\ durch einfache \ ersetzen
    set fso = nothing
    set WshShell = nothing
    Else ' keine Dropbox gefunden
    set fso = nothing
    set WshShell = nothing
    DropBoxPfad = ""
    End If

    End Function
    (view changes)
    1:18 pm

Sunday, October 9

  1. page Dialogeinheit edited ... FF_SetControl "Testdialog","img1", "c:\testbild.JPG" FF_ShowDia…
    ...
    FF_SetControl "Testdialog","img1", "c:\testbild.JPG"
    FF_ShowDialog "Testdialog"
    Soll ein Dialog oder Control pixelgenau dimensioniert werden (z.B. ein IMAGE-Control, um darin ein Bild seitenrichtig und mit 100%-Skalierung darzustellen), können Höhe und Breite des Controls wie folgt berechnet werden:
    UnitX = Bild_X * g_XUnits / FF_GetSystemMetrics(0)
    UnitY = Bild_Y * g_YUnits / FF_GetSystemMetrics(1)
    Dabei werden g_XUnits und g_YUnits ermittelt wie oben beschrieben.
    UnitX und UnitY sind dann die Werte für die Erstellung des Controls.

    (view changes)
    8:01 am

Saturday, October 8

  1. page FileSystemObject edited ... Es kann nur ein Ordner angelegt werden, dessen übergeordnete Ordner bereits vorhanden ist. Son…
    ...
    Es kann nur ein Ordner angelegt werden, dessen übergeordnete Ordner bereits vorhanden ist. Sonst erfolgt eine Fehlermeldung.
    Ermittlung aller Unterordner in einem Ordner
    VBScript:
    Set ofolders = fso.getfolder(C:\test\")
    Set osubfolder = ofolders.Subfolders
    (view changes)
    10:58 am
  2. page FileSystemObject edited ... end if Es kann nur ein Ordner angelegt werden, dessen übergeordnete Ordner bereits vorhanden …
    ...
    end if
    Es kann nur ein Ordner angelegt werden, dessen übergeordnete Ordner bereits vorhanden ist. Sonst erfolgt eine Fehlermeldung.
    Ermittlung aller Unterordner in einem Ordner
    Set ofolders = fso.getfolder(C:\test\")
    Set osubfolder = ofolders.Subfolders
    For Each VerzX in osubfolder
    Msgbox VerzX.Name
    Next
    set osubfolder = nothing
    set ofolders = nothing

    Rekursives Einlesen von Dateien mit Filterkriterien, optional inkl. Unterverzeichnisse
    VBScript:
    (view changes)
    10:57 am
  3. page Mustervergleich edited ... ' Die beiden Werte müssen durch ein "x" getrennt werden. Suchmuster = "^\d{2,3…
    ...
    ' Die beiden Werte müssen durch ein "x" getrennt werden.
    Suchmuster = "^\d{2,3}x\d{2,3}$"
    ' Bsp.: Zeichen, die in Datei- und Ordnernnamen nicht zulässig sind -> :"<>*/?\|
    ' Man beachte die Maskierung per \ von *?\ und die Codierung des ". Das Pipezeichen | steht für Alternativen.
    Suchmuster = ":|""|<|>|\*|/|\?|\\|\|"

    ' Bsp.: Prüfung einer Datumseingabe, die dem Muster TT.MM.JJ oder TT.MM.JJJJ entsprechen soll.
    ' Nur das 20. und 21. Jahrhundert ist zulässig.
    (view changes)
    10:51 am
  4. page Dropbox edited ... DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1,DropInfoText, Chr(34), 1)) …
    ...
    DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1,DropInfoText, Chr(34), 1)) 'linken Teil bis nächstes " abschneiden
    DropBoxPfad = Left(DropInfoText, InStr(1,DropInfoText, Chr(34), 1)-1) 'linken Teil bis nächstes " retten
    DropBoxPfad = Replace (DropBoxPfad, "\\", "\") ' doppelte \\ durch einfache \ ersetzen
    set fso = nothing
    set WshShell = nothing

    End Function
    (view changes)
    10:30 am

Thursday, August 4

  1. page String-Operationen edited Leere Zeichenkette prüfen Es gibt mehrere Möglichkeiten zu prüfen, ob eine Zeichenkette leer…

    Leere Zeichenkette prüfen
    Es gibt mehrere Möglichkeiten zu prüfen, ob eine Zeichenkette leer ist. Das Problem im Skripting ist jedoch, dass Variablen keinen festen Typ haben, sondern nur Variant-Datentypen sind. Einige Vorgehensweisen können aber auch hier übernommen werden.
    ...
    'schneidet vom String "p_Str" "p_Cnt" Zeichen ab
    Cut=Left(p_Str,Len(p_Str)-p_Cnt)
    End Function
    Teilstring zwischen Begrenzern herauslösen
    Function MidString (String, Suchstring1, Suchstring2)
    ' gibt den Teilstring zwischen Suchstring1 und Suchstring2 zurück
    ' Bsp.: MidString("123[456]789","[","]") ergibt "456"
    MidString = Mid(String, Instr(String,Suchstring1)+1, Instr(String,Suchstring2)-Instr(String, Suchstring1)-1)

    End Function
    s. auch Pfad zerlegen
    (view changes)
    7:05 am

Wednesday, August 3

  1. page Dropbox edited Dropbox Es kann sinnvoll sein, Bilder oder andere Dateien in den lokalen Dropbox-Ordner zu kopi…

    Dropbox
    Es kann sinnvoll sein, Bilder oder andere Dateien in den lokalen Dropbox-Ordner zu kopieren. Die folgende Funktion ermittelt den Pfad zum lokalen Dropbox-Ordner.
    Function DropBoxPfad
    ' ermittelt den lokalen Pfad des DropBox-Ordners
    ' kgsoft 160802
    Dim WshShell
    Dim fso
    Const ForReading = 1, ForWriting = 2
    Dim AppDataPfad
    Dim aktOrdner
    Dim DropInfo
    Dim f
    Dim DropInfoText
    ' Systemordner Appdata ermitteln
    Set WshShell = CreateObject ("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    AppDataPfad = WshShell.Environment("Process")("APPDATA")
    aktOrdner = Right(AppDataPfad, Len (AppDataPfad) - InStrRev(AppDataPfad, "\",-1, 1))
    if aktOrdner <> "AppData" Then ' aktueller Ordner ist Roaming oder Local oder LocalLow
    AppDataPfad = Left(AppDataPfad, InStrRev(AppDataPfad, "\",-1, 1)) ' AppDataPfad auf \appdata\ setzen
    End If
    ' Standort info.json ermitteln
    If fso.FileExists(AppDataPfad & "Roaming\Dropbox\info.json") Then
    DropInfo = AppDataPfad & "Roaming\Dropbox\info.json"
    end If
    If fso.FileExists(AppDataPfad & "Local\Dropbox\info.json") Then
    DropInfo = AppDataPfad & "Local\Dropbox\info.json"
    end If
    If fso.FileExists(AppDataPfad & "LocalLow\Dropbox\info.json") Then
    DropInfo = AppDataPfad & "LocalLow\Dropbox\info.json"
    end If
    ' Ermittlung Dropbox-Pfad aus der info.json
    ' Annahme: Pfad steht nach dem String "path" zwischen dem folgenden beiden Anführungszeichen
    Set f = fso.OpenTextFile(DropInfo, ForReading)
    DropInfoText = f.ReadAll
    ' schrittweises Vorgehen, um evtl. individuelle Abweichungen abzufangen
    DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1, DropInfoText, "path", 1)-4) 'linken Teil bis path" abschneiden
    DropInfoText = Right(DropInfoText, Len (DropInfoText) - InStr(1,DropInfoText, Chr(34), 1)) 'linken Teil bis nächstes " abschneiden
    DropBoxPfad = Left(DropInfoText, InStr(1,DropInfoText, Chr(34), 1)-1) 'linken Teil bis nächstes " retten
    End Function

    (view changes)
    7:43 am

More