Re: [de-users] alte Dokumente unlesbar (Codierung?)

Hallo Rainer,

da hat wohl WINDOWS mit seinem Zeichensatz zugeschlagen :-o ...

Die falsch umgesetzten Zeichen kommen nur in den Kommentarzeilen vor, 
nicht aber im Makro-Code, von daher wird sich das nicht auswirken auf 
das Makro.

ABER: Die paar Umlaute und das "ß" in den Kommentarzeilen zu korrigieren 
ist ja schnell gemacht und dann ist alles fehlerfrei in der Darstellung.

ALTERNATIV: Das Makro aus meiner vorherigen Mail kopieren, ist aber 
wegen ABER nicht wirklich notwendig.

"[...] Immer ? Ich wäre davon ausgegangen, dass es genügt, bei einem 
Testdurchlauf so zu verfahren. Wenn es funktioniert müsste doch alles 
gut sein, oder ? [...]"

Erstelle einfach ein BACKUP der zu bearbeitenden Dateien in einem 
anderen Verzeichnis. Wenn dann doch was "schief" geht, ist nichts 
verloren. Alles andere wäre leichtsinnig und unprofessionell !

"[...] Den nachfolgenden Abschnitt komplett so als Makro übernehmen, d.h. inkl. der darin enthaltenen 
Kommentare ? [...]"

Ja, denn die Kommentare sind erlaubte BASIC-Makro-Kommentare. Alles, was auf ' folgt ist Kommentar.

Gruß
Hans-Werner


------ Originalnachricht ------
Von: "Rainer" <spots4as@gmx.de>
An: users@de.libreoffice.org
Cc: "OoOHWHOoO" <OoOHWHOoO@t-online.de>
Gesendet: 08.01.2020 17:05:38
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)

> Hallo Hans- Werner,
>
> Am Wed, 08 Jan 2020 13:08:37 +0000
> schrieb OoOHWHOoO <OoOHWHOoO@t-online.de>:
> >  Ich habe jetzt mal Thomas' Marko-Idee aufgegriffen und so
> >  modifiziert, dass bei einmaligem Aufruf alle "odt"-Dateien im
> >  Verzeichnis bearbeitet werden.
> >
> >  [1] Ich habe Dir das Makro auch an Deine private Email-Adresse
> >  gesendet mit Dateianhang "SuchenUndErsetzenInAllenDateien.txt". In
> >  der eMail (hier) gehen immer die Leerzeichen-Einrückungen und somit
> >  auch die Struktur verloren. Kopiere das Makro aus der Datei
> >  "SuchenUndErsetzenInAllenDateien.txt"bei Dir nach "Module1".
> Das wird nicht gehen, denn die von Dir als PN übermittelte Textdatei
> enthält einiges, was mir irgendwie bekannt vorkommt ;-) Beispiele:
>
> - Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:
> - Ãœber alle 'aSearch'-Zeichen:
> - gefundenen 'aSearch'-Zeichen durch das zugehörige "aRepalce"-Zeichen
> ersetzen
> -  Das aktuell indizierte 'aODT'-Dokument schließen:
>
> >  [2] Lege ein Verzeichnis (beispielsweise ".../ODT/") an und trage den
> >  kompletten Pfad im Makro ein:
> >
> >  dODT = "E:\TMP\ODT\"
> >  ersetzen durch
> >  dODT = "deine vollständige pfadangabe"
> >
> >  [3] Zum Testen erstelle in Deinem Verzeichnis drei "odt"-Dateien
> >  (ODT_1.odt  + ODT_2.odt  + ODT_3.odt) mit jeweils dem Inhalt: ÄÖÜäöüß
> >
> >  [4] Öffne eine neue Datei mit WRITER und starte das Makro.
> >
> >  [5] Nach Ausführung des Makros sollte in den drei Dateien "ÄÖÜäöüß"
> >  ersetzt sein durch "AeOeUeaeoeuess".
> >
> >  [6] Wenn Du in dem Makro
> >
> >  aPV(0).value = True
> >  ersetzt durch
> >  aPV(0).value = False
> >
> >  wird die jeweils bearbeitete Datei für Dich sichtbar geöffnet und Du
> >  kannst, wenn Du ganz schnell schaust, die Ersetzungen beobachten.
> >  Kann man mal bei den obigen drei Test-Dateien machen, ist aber bei
> >  der Verarbeitung vieler Dateien nicht empfehlenswert - verlangsamt
> >  nur die Verarbeitungsgeschwindigkeit.
> >
> >  [8] 'aSearch' und 'aReplace' musst Du nur um die neuen
> >  'aSearch'-Zeichen und die zugehörigen 'aReplace'-Zeichen erweitern.
> >  Vorherige Einträge müssen nicht gelöscht werden, außer natürlich
> >  diesen Einträgen für den Makro-Test, da Du ja die Umlaute und "ß"
> >  nicht ersetzen willst:
> >
> >  aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
> >  aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")
> >
> >  [7] Arbeite bitte IMMER NUR MIT KOPIEN DEINER DATEIEN, wenn Du dieses
> >  Makro anwendest !!!
> Immer? Ich wäre davon ausgegangen, dass es genügt, bei einem
> Testdurchlauf so zu verfahren. Wenn es funktioniert müsste doch alles
> gut sein, oder?
>
> Den nachfolgenden Abschnitt komplett so als Makro übernehmen, d.h. inkl.
> der darin enthaltenen Kommentare?
> >     Sub SuchenUndErsetzenInAllenDateien
> >
> >  '    D E K L A R A T I O N E N
> >
> >        Dim oDocument  as Object
> >        Dim oReplace   as Object  ' object
> >        Dim aDummy()   as Variant ' array
> >        Dim aReplace() as Variant ' array
> >        Dim aSearch()  as Variant ' array
> >        Dim iSearch    as Integer ' index
> >        Dim aODT()     as Variant ' array
> >        Dim dODT       as String  ' directory
> >        Dim fODT       as String  ' file
> >        Dim iODT       as Integer ' index
> >
> >  '    V O R B E L E G U N G E N
> >
> >        dODT = "E:\TMP\ODT\"
> >
> >        aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
> >        aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")
> >
> >        Dim aPV(0) as New com.sun.star.beans.PropertyValue
> >        aPV(0).name  = "Hidden"
> >        aPV(0).value = True
> >
> >  '    D A T E I N A M E N   E I N L E S E N
> >
> >  '    Ersten Dateinamen aus dem Verzeichnis 'dODT' in das Array 'aODT'
> >  einlesen:
> >        fODT = Dir(dODT & "*.odt",0)
> >        If (fODT = "") Then
> >           MsgBox ("Keine Dateien im Verzeichnis " & Chr(10) &_
> >                   dODT                            & Chr(10) &_
> >                   "gefunden !")
> >           End
> >        EndIf
> >        ReDim Preserve aODT(0)
> >        aODT(0) = Dir(dODT & "*.odt",0)
> >        iODT = 0
> >  '    Alle weiteren Dateinamen aus dem Verzeichnis 'dODT' in das Array
> >  'aODT' einlesen:
> >        Do
> >           fODT = Dir
> >           If ( fODT = "" ) Then
> >              Exit Do
> >           EndIf
> >           iODT = iODT + 1
> >           ReDim Preserve aODT(iODT)
> >           aODT(iODT) = fODT
> >        Loop
> >
> >  '    Z E I C H E N   S U C H E N   U N D   E R S E T Z E N
> >
> >  '    Über alle Dateinamen in dem Array 'aODT':
> >        For iODT = 0 To Ubound(aODT) Step 1
> >
> >  '       Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:
> >           oDocument =
> >  StarDesktop.loadComponentFromURL(ConvertToURL(dODT &
> >  aODT(iODT)),"_blank",0,aPV())
> >
> >  '       Über alle 'aSearch'-Zeichen:
> >           For iSearch = 0 to Ubound(aSearch) Step 1
> >  '          Das aktuell indizierte 'aSearch'-Zeichen in der aktuell
> >  indizierten Datei suchen und alle
> >  '          gefundenen 'aSearch'-Zeichen durch das zugehörige
> >  "aRepalce"-Zeichen ersetzen:
> >              oReplace = oDocument.CreateReplaceDescriptor
> >              With oReplace
> >                 .SetSearchString(aSearch(iSearch))
> >                 .SetReplaceString(aReplace(iSearch))
> >                 .SearchCaseSensitive = True
> >              End With
> >              oDocument.replaceAll(oReplace)
> >           Next
> >
> >  '       Das aktuell indizierte 'aODT'-Dokument speichern:
> >           oDocument.StoreAsURL(ConvertToURL(dODT &
> >  aODT(iODT)),aDummy()) '       Das aktuell indizierte 'aODT'-Dokument
> >  schließen: oDocument.Close(False)
> >
> >         Next
> >
> >     End Sub
> Viele Grüße
>
> Rainer
>
> --
> Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
> Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
> Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
> Listenarchiv: https://listarchives.libreoffice.org/de/users/
> Datenschutzerklärung: https://www.documentfoundation.org/privacy
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy