thunderbird-pao

Hallo VB-Experten, benötige einmal Eure Hilfe. Habe folgendes Problem und keine Ahnung wie man so etwas lösen könnte. Vielleicht habt' Ihr ja eine Lösung. Für Eure Unterstützung schon mal meinen besten Dank. So, nun eine kurze Problembeschreibung: In einem Verzeichnis liegen ca. 100.000 xml-Dateien mit einem verschlüsselten Dateiinhalt. Der Dateiinhalt kann über eine Java-Dechiffrierung entschlüsselt werden. Um eine einzelne xml-Datei zu entschlüsseln benutze ich eine "BAT"-Datei, die mit folgenden Parametern von der cmd-Shell aufgerufen wird: Test.bat –ks keystore –a aliasname –p passwort –i test.xml > test.txt -ks = Datei mit dem Schlüsselpaar für die Entschlüsselung, -a = alias-Name für die Datei mit dem Schlüsselpaar, -p = Passwort für die Datei mit dem Schlüsselpaar, -i = infile (xml-Datei mit zu entschlüsselnden Inhalten) Das Ergebnis der Entschlüsselung wird dann in einer Textdatei abgelegt. In der Test.bat sind für die Entschlüsselung noch nachfolgende Info's enthalten: @echo off java -classpath lib\commons-cli-1.0.jar;lib\bcprov-jdk14-125.jar;lib\junicon.jar de.pio.junicon.HybridDecryptor %1 %2 %3 %4 %5 %6 %7 %8 Wie bekommt man es nun hin, diesen kompletten Entschlüsselungsprozess per Script zu erledigen. Fände es ganz toll, wenn mir hier jemand helfen könnte. Gruß Thunderbird

Hallo, wie kann per VB-Script in vielen Word-Dateien, die in einer Verzeichnisstruktur mit weiteren Unterverzeichnissen vorliegen, der jeweilige Textinhalt der einzelnen Dateien auf Schriftart "Arial Black" geändert werden? Das beiliegende VB-Script mach schon einige Änderungen so, wie das sein soll. Wie muss das Script geändert werden, um die nachfolgenden Punkte auch noch zu berücksichtigen? - wenn die entsprechende Schrift "Arial Black" schon als Standard vorliegt, dann soll in dem Dokument nichts geändert werden (ohne Änderung das Dokument schließen und das nächste Dokument aufrufen) - Dateien auch in vorliegenden Unterverzeichnissen verarbeiten (bisher werden nur die Dateien aus einem Verzeichnis verarbeitet), - alle Kopf- und Fußzeilen eines Dokuments verarbeiten (bisher geht nur die erste Kopf- und Fußzeile, auch wenn im Dokument mehrere Kopf- bzw. Fußzeilen vorliegen), - auch Text in Textfelder sollen geändert werden (bisher bleibt die bisherige Schriftart erhalten) in Tabellen funktioniert es problemlos Bin gespannt, ob das komplett mit VB gelöst werden kann. Vielen Dank für schon einmal für eine Unterstützung. Gruß Thunderbird Hier nun das Script: Sub Schriftart() 'Schriftarten verändern Dim i As Long Application.ScreenUpdating = False With Application.FileSearch .NewSearch .FileName = "" 'FileName = "*.doc" ' wenn nur DOC-Dateien geändert werden sollen 'Pfadangabe .LookIn = "D:\Test" ' wie geht das mit mehreren, unterschiedlichen Verzeichnissen? .SearchSubFolders = False If .Execute() > 0 Then ReDim strdateien(.FoundFiles.Count) ReDim strZugehOrdner(.FoundFiles.Count) 'Durchläuft alle Dateien, die in dem Verzeichnis vorhanden sind. 'wie funktioniert das mit Unterverzeichnissen? For i = 1 To .FoundFiles.Count strdateien(i) = .FoundFiles(i) strZugehOrdner(i) = .FoundFiles(i) Do strdateien(i) = Right(strdateien(i), (Len(strdateien(i)) -InStr(strdateien(i), "\"))) Loop While InStr(strdateien(i), "\") > 0 Documents.Open FileName:=strZugehOrdner(i) Selection.EndKey Unit:=wdStory Selection.HomeKey Unit:=wdStory Selection.WholeStory Selection.Font.Name = "Arial Black" Selection.HomeKey Unit:=wdStory If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Font.Name = "Arial Black" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 'Hier wird die Standard-Schriftart geändert. Wenn hier "Arial Black" 'schon vorliegt, soll im Dokument nichts mehr geändert werden. With ActiveDocument.Styles(wdStyleNormal).Font .Name = "Arial Black" .Size = 12 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone End With 'Speichern ActiveDocument.Save 'Schliessen ActiveDocument.Close 'schließt das Dokument Next i End If End With Application.ScreenUpdating = True End Sub

Hallo VB-Experten, habe das nachfolgende Script erhalten. Der Ersteller ist leider nicht mehr zu erreichen und leider funktioniert das Script noch nicht so, wie ich es benötige. Die fehlende Funktionalität habe ich im Script kommentiert. Wäre toll, wenn in diesem Forum ein VB-Experte mir bei der Vervollständigung behilflich sein könnte. Schon einmal vielen Dank. :confused: Habe am Ende noch ein Textbeispiel angehängt. strFilename = "neoex.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strFilename) intFileSize = objFile.Size Set objFile = objFile.OpenAsTextStream() strFileContent = objFile.Read(intFileSize) objFile.Close Set objRegExp = New RegExp objRegExp.Pattern = Chr(34) objRegExp.Global = True objRegExp.IgnoreCase = True 'False für case-sensitive strFileContent = objRegExp.Replace(strFileContent, "") REM Dieser Text steht immer in der ersten Zeile und soll entfernt werden REM - funktioniert nocht nicht objRegExp.Pattern = "Database: C:\Programme\PGS\Pgs.gdb, User: PGS" & vbCrLf strFileContent = objRegExp.Replace(strFileContent, "") REM Diese Zeile kommt mehrfach in der Datei vor - soll als erste Zeile in der Datei REM erhalten bleiben und als Header dienen. Zwischen dieser Zeile und den nachfolegnden REM Daten soll keine Leerzeile sein. REM Alle weiteren Zeilen dieser Art sollen gelöscht werden REM - funktioniert bisher so, dass alle Zeile entfernt werden objRegExp.Pattern = vbCrLf & "KNR PNR AM LM GDAT " & vbCrLf strFileContent = objRegExp.Replace(strFileContent, "") REM Diese Zeile steht immer unter der .o. a. Textzeile - kommt mehrfach vor und soll gelöscht werden REM - funktioniert, alle Zeilen werden gelöscht! objRegExp.Pattern = "====== ========== ====================== ====================== ======== " & vbCrLf strFileContent = objRegExp.Replace(strFileContent, "") REM Dieser Wert kommt mehrfach in der Datei vor und soll durch Leerstellen ersetzt werden REM - funktioniert, alle diesbezüglichen Werte werden ersetzt! objRegExp.Pattern = "<null>" strFileContent = objRegExp.Replace(strFileContent, " ") Set objFile = objFSO.OpenTextFile(strFilename, 2) objFile.Write strFileContent objFile.Close neoex.txt