Office: (Office 2010) Text auslesen und in Textfelder schreiben

Hallo,
wenn ich lese, dass mit Leerzeichen aufgefüllt wird, könnte ich mir vorstellen, dass jedes Feld die gleiche Länge hat. Dann könnte man es mit einem normalen Import mit Feldern fester Länge versuchen. Access bietet die Möglichkeit beim Import die Felder mit "Beginn bei Zeichen" und "Zeichenzahl" zu definieren.
Nimm mal den Editor stelle die Schriftart auf eine nicht proportionale Schrift (Courier) ein und schau Dir die Datei mal an. Da kannst Du genau sehen ob das geeignet wäre.
Einen ähnlichen Hinweis gab es schon von Eberhard in #2.
Der Import würde dann so aussehen (siehe Bild, wegen Größe als PDF).

Das ist Deine Tabelle von oben. Nur die beiden Leerzeichen vor der Zeit habe ich manuell eingefügt. Möglicherweise sind die aber in Wirklichkeit doch vorhanden. Prüfung erfolgt wie gesagt mit dem Editor mit Courier als Schriftart.

 

... geht meistens.

- Mehrere Leerzeichen kann man per Ersetzung auf jeweils eines reduzieren.
- Mit unregelmäigen Leerzeichen wird das Split anders teilen und unpraktikabel.
- Feste Längen haben sich damit eh erledigt oder vielleicht nicht ...?

Mit regulären Ausdrücken kann man nach Mustern suchen und ist weniger auf feste Längen oder vorhandene Zeichen angewiesen. Zur Erstellung eines entsprechenden Suchmusters sollte man aber alle Darstellungsvarianten der Ausdrücke kennen.

Zusatzfrage:

Da die Rede nun davon ist, wie die Ausdrücke genau aussehen: Welche Bedeutung haben jetzt diese Ziffern im genannten Zusammenhang?

 

Hallo und vielen Dank für die Antworten,
die Ziffern sind nur Nummerierungen, die vom System vorgegeben werden.
Diese könnten also ebenfalls "abgeschnitten" werden.
Maßgebend ist alles ab der Fluggesellschaft (LH oder AB...) und bis zur Ankunftsuhrzeit.

Die Länge der Felder könnte man zu 99% folgendermaßen definieren:

Fluggesellschaft(AB, LH...): 2-stellig
Flugnummer: 3- oder 4-stellig
Datum(TTMMM): 5-stellig
Terminal: 1- oder 2-stellig(numerisch/alphanumerisch)
Abflugzeit(hhmm): 4-stellig
Ankunftszeit(hhmm): 4-stellig

Vielleicht eine etwas blöde Frage: Für den Textimportassistent benötige ich doch eine Textdatei, oder wo werden sonst die Daten hergenommen?

Bin gerade etwas überfordert und weiß gar nicht, wo ich jetzt weiter machen soll.
Ich habe Deinen Code, Eberhard, ausprobiert. Funktioniert super. Aber halt nur dann, wenn die Zeile genau so belegt ist.
Jetzt hab ich aber das Problem mit den Leerzeichen und verschieden-stelligen Flugnummern.
Ähhm, Hilfe! ;-)
VG
Rico

 

Hallo,
ich habe jetzt erstgesehen, dass es da um ein Memo geht. Aber das ließe sich ja in eine Textdatei exportieren. Wenn es notwenig sein sollte.
Ich habe immer noch den Verdacht, dass der Text doch formatiert ist. Stelle mal im Memo einen nicht proportionale Schrift ein und schau mal wie das aussieht. Ich habe mal das Datenbeispiel aus #15 in eine Memo eingefügt (SA Courier). Siehe Bild oben Original und unten vor der Zeit 2 LZ eingefügt (in 1. und letzter Zeile).
Versuche das mal.

Möglicherweise kannst Du ja die fehlenden Zeichen vor der Zeit manuelle einfügen, dann hast Du klare Feldlängen und dann dürfte das kein Problem sein.

 

Eine Textdatei kann man simpel erzeugen: Beliebigen Text speichern
Vorteil wäre hier, man könnte alle Datensätze auf einmal einlesen
=> Texttabelle über Spezifikation verknüpfen und Inhalte per Anfügeabfrage in Zieltabelle schieben. Im Rahmen der Abfrage könnten auch Umkonvertierungen (wie z.B. bei den Zeiten) unmittelbar vorgenommen werden.
Dazu müsste die Importspezifikation im Vergleich zu Klaus Vorschlag noch etwas angepasst werden (Trennung AB und 3456 sofort, zu entfernende Leerzeichen in Extraspalten, um Trim einzusparen u.ä.).
Bei festen Längen braucht man aber feste Längen.

Ob jetzt dieser Massenimport bei 10 Zeilen oder weniger aber jetzt einen spürbaren zeitlichen Vorteil gegenüber dem zeilenweisen Einlesen erbringt, da wäre ich stark im Zweifel.
Auch beim zeilenweisen Einlesen erscheinen feste verlässliche Längen notwendig.

Fehlende Zeichen könnte man evtl. vor dem Auswerten einfügen a la
Code:

Solche Zeilenoperationen würden dann dem Sinn der Verwendung der Textdatei widersprechen.

Die gab es anfangs nicht. D.h. also, Du möchtest die selber entfernen, ehe die automatische Verarbeitung beginnt ...?

Ich bevorzuge es, Lösungen auf klare Aufgabenstellungen zu erstellen, das Reagieren auf ein Lämmerschwanz-Wackeln überlasse ich gern anderen.

 

Ich hab das mal ausprobiert mit SA Courier.
Ja, da sind diese Leerzeichen dazwischen.

Man könnte also z.B. sagen, dass die Feldlänge für Fluggesellschaft und Flugnummer 6-stellig ist(z.B AB+Leerzeichen+3-stellige Nummer, oder LH+4-stellige Nummer)

Nur, wie wandele ich das nun um?
Der Code von Eberhard ist ja genial, aber wie definiere ich jetzt Feldlängen, bzw. "bearbeite" die Zeile so, dass am Ende die jeweils richtigen Werte in der Tabelle stehen?

 

Sorry Eberhard, das hat sich wohl überschnitten.
Ja, Du hast völlig recht, die Aufgabenstellung sollte von Anfang an klar sein.
Ich habe leider diese Nummerierung erst jetzt entdeckt.

Die automatische Verarbeitung sollte mir das Löschen der Nummerierung abnehmen, so dass die eigentliche Verarbeitung ohne die Nummerierungen beginnen kann.

 

Hallo,

auch die Leerzeichen vor der Uhrzeit ?
Ich würde mir das einfach machen. Exportiere das Memo in eine Textdatei und importiere diese über die Option feste Feldlängen.
Der Importassi bietet alles dazu. Und da kannst Du auch gleich festlegen welche Felder nicht importiert werden sollen.

 

ich werde es mal versuchen über den Importweg

Danke Euch

 

Hallo zusammen,
über den Textimport werde ich das sehr wahrscheinlich lösen können.
Jetzt habe ich noch das Problem mit dem Datum.

In meinem Feld steht z.B. 24MAR
Wie kann ich das nun umwandeln in ein Datumsformat.
Wichtig! Das Feld hat noch kein Datumsformat, es steht also lediglich "24MAR" da und ich möchte das nun umwandeln in 24.03.17
Dabei ist die Jahreszahl immer das aktuelle Jahr.

Vielen Dank schon mal für Eure Hilfe
VG
Rico

 

Das mit dem aktuellen Jahr würde ich stark bezweifeln.
Wenn Du jetzt im Januar Werte vom März hast, würde man im November etwas vom Januar erwarten. Eine Rückwärtsrechniung könnte da Verwirrungen auslösen.

Ansonsten: Wenn Dir der Import der Textdatei gelingt, hast Du da eine funktionierende Importspezifikation erstellt. Die Datums- und Zeitwerte wären da noch Text.
Jetzt kannst Du für den laufenden Betrieb die Textdatei (Texttabelle) statt zu importieren verknüpfen. Das spart Datenmüll in der DB.
Zusätzlich hast Du eine geplante Zieltabelle in der Datenbank mit den richtigen benötigten Feldern und entsprechenden Datentypen.

Somit kannst Du basierend auf den beiden Tabellen eine Anfügeabfrage erstellen, um die Inhalte in die Zieltabelle zu verschieben. Im Rahmen der Abfrage kannst Du für die Felder entsprechende Umkonvertierungen vornehmen, so wie sie oben in der Prozedur bereits gezeigt wurden und ja offensichtlich zufriedenstellende Ergebnisse erbracht hatten.

 

Entweder bastelst Du Dir selbst eine Übersetzungsroutine oder Du verwendest eine API-Funktion, um aus dem String ein Datum zu erzeugen. Hier ein mögliches Grundgerüst zum Aufbauen einer eigenen Funktion: Code:

 

Vielen Dank Euch beiden!
Hab gerade ein kleines Verständnisproblem:

Über den Importassistenten habe ich mir eine Spezifikation erstellt.
Die Daten werden nun von der .txt ordentlich in die verknüpfte Zieltabelle geschrieben.

Da es sich z.B. um 2 Flüge handelt, steht im ersten Datensatz -neben der Nummer, Flugzeiten usw- "24MAR" und im 2.Datensatz "25Mar"

In meinem Formular greife ich auf diese verknüpfte Tabelle zu und wenn ich das Formular in der Datenblattansicht öffne, steht bei Abflugdatum natürlich "24Mar" im ersten Datensatz und "25Mar" im 2. Datensatz.
Hier soll aber 24.03.17 bzw. 25.03.17 stehen.

Eine Anfügeabfrage benötige ich zur Zeit noch nicht, da ich mir immer nur die Datensätze der verknüpften Tabelle ansehen möchte.
Es ist mir schon klar, dass sich diese ständig verändern.

Wenn ich das nun hingebracht habe, möchte ich alle Datensätze der verknüpften Tabelle in Outlook kopieren und versenden.
Das kommt aber erst später....

Die Verknüpfung hilft mir dabei sehr, da ich die Daten für eine weitere Verwendung(nachdem ich sie versendet habe) nicht mehr benötige.

VG
Rico

 

Du benötigst eine Abfrage basierend auf der Verknüpfung. Dort könntest Du dann eine Funktion verwenden, die Dir aus den beiden Texten jeweils ein Datum zurück liefert. Für konkrete Hilfe müsste man das Jahreshandling (siehe ebs17s Anmerkung) kennen, sowie wissen, wie Tage < 10 gehandhabt werden: 01DEC oder 1DEC?

Ob Du dann die beiden Zeichenketten selbst parst (Monatsabkürzungen müssten dafür definiert vorliegen) oder mit der gezeigten API-Funktion und einem passenden LCID-Wert oder mit temporärer Umstellung des Systems auf amerikanisch und CDate die Auswertung vornehmen willst, musst Du selbst entscheiden.

 

Hallo,
mit einer Hilfstabelle für die englischen Monatskürzel und der Monatszahl geht das ganze auch nur über SQL (2 Abfragen) ohne VBA.
Zuerst eine Abfrage (Abfrage1) die aus dem Feld mit dem Kurzdatum (hier Feld4) das Monatskürzel ermitttelt:
Code:

Feldnamen natürlich anpassen.
Dann auf dieser Abfrage (Abfrage1) aufbauend:
Code:

Mit Verknüpfung über das Monatskürzel.