| |
| |
Import-Strategie- #24462 in section [744289] |
| Sec: |
(1) Allgemeines |
| Von: |
Cyprian Kuschka |
| An: |
Hans-Peter Grözinger |
| Am/Um: |
11.10.2025 09:06:30 gelesen |
Hallo Zusammen,
| |
Hallo Zusammen !
| |
ungewollte Zeichen kannst bzw. musst du wohl pro Zelle wahlweise per regex oder CHRTRAN() entfernen.
|
Ich gehe einen anderen Weg:
- Excel speichern als XML
- Alle Sonderzeichen per STRTRAN aus der XML-Datei entfernen
- XML wieder ins Excel einlesen
Damit habe ich in einem Aufwasch diese ver§&%ZSD&Tten Sonderzeichen, welche vermutlich durch Handeingabe reinkommen, weggeputzt.
Diese Zeichen werden aktuell entfernt:
lcFile = FILETOSTR( lcXMLFileName )
lcFile1 = STRTRAN( lcFile, '
', '|' )
lcFile2 = STRTRAN( lcFile1, '
', '|' )
lcFile3 = STRTRAN( lcFile2, ' ', '' )
lcFile4 = STRTRAN( lcFile3, '-', '' )
lcFile5 = STRTRAN( lcFile4, '', '' )
STRTOFILE( lcFile5, lcXMLFileNameClean )
|
Da Excel in diesem Fall immer auf dem Rechner installiert sein muss, habe ich mich für REGEX entschieden. Mit dem geringsten Aufwand sind die Probleme, die zumendest vorher aufgetreten sind, vom Tisch. Hier ein kurzer Abschnitt :
oRegex = CREATEOBJECT("VBScript.RegExp")
oRegex.Global = .T. && alle Treffer
oRegex.IgnoreCase = .T. && Groß/Kleinschreibung ignorieren
...
Natürlich kommt mit dem Essen der Appetit, aber dann ist das nur ein Kinderspiel mit CASE alle ankommenden Wünsche zu präzisieren.
Danke für die Impulse, Klasse dass der Fuchs (DFPUG- Plattform) noch da ist!
Viele Grüße
Cyprian
|
|
|
|
