Import von strukturierten Datein

RonMat · 22. September 2004

Aus einem Fremdsystem muß ich eine Datei importieren, die eine bestimmte Struktur enthält. Die Felder sind mit der Startpos. und mit der Länge bekannt. Das Beispiel habe ich mal angehängt. Ich habe zwar Erfahrungen mit CSV-Dat, aber dieses ist mir doch fremd. Kann mir einer weiterhelfen?
Mir fehlt einfach der Ansatz - LS ist dann kein Problem

Die ersten zwei Zeichen geben mir die Zeilenherkunft wieder: z.B.
H1= Auftragsnummer
H2=Ansprechpartner mit eMail-Adresse
H3=....
H4=....
H7=Zielhafen
.
.

H132712-1003
H2Testmann,Hugo test@test.com
H3CHIWCHF 00337-74 INTUT IMP
H4 Firma XYZ
H5DCH (siehe Rücklieferung) 40221Düsseldorf
H7Rotterdam ECT Home 08.10.2003
H8Düsseldorf DCH 10.10.2003
C2IPXU314541420DV
K2001 0010000000000035002
K2002 0010000000000318002

RockWilder · 22. September 2004

n'Abend!

Hat denn ein Datensatz immer 10 Zeilen? Wenn ja, kannst du es versuchen mit

Code

Array erstellen mit 10 Elementen, die die Namen deiner Felder tragen
Datei zum Lesen öffnen
Solange nicht Dateiende erreicht
   Neues Notes-Dokument erstellen
   mach
      Dokument.Array[zähler] = Zeile abzüglich der ersten beiden Zeichen
      nächste Zeile einlesen
      zähler um 1 raufsetzen
   bis zähler = 10
   Dokument speichern
ende Solange

Alles anzeigen

Sowas in der Art wird wohl klappen, denke ich...

greetz
RW

RonMat · 22. September 2004

Danke für die Info, aber leider ist die Zeilenanahl nicht immer gleich. Es können teilweise bis zu 20 Zeilen werden und das gemeine daran ist, daß innerhalb der Zeilen verschiedene Felder sind. Als Beispiel:

Zeile1: 1-8 Kundennummer, 9-18 Feld x, 19-80 Feld y
Zeile2: 1-45 text1, 46-80 Text 2 .....

Diali · 23. September 2004

zu unterschiedliche Zeilenanzahl pro Datensatz:
in dem Fall musst Du die Zeichen auswerten, die Dir die Zeile angeben (H1, H2, H3 usw.)

zu mehrere Felder in einer Zeile:
mit Left und Mid kannst Du Dir aus dem String Teile extrahieren

z.B.:
Kundennummer = Left(Zeile,
FeldX = Mid( Zeile , 9, 9)
FeldY = Mid( Zeile , 19, 61)
usw.

Gruß
Dirk

lodsnods · 23. September 2004

Hi,

wenn das strukturierte Daten sind, dann will ich mal unstrukturierte Daten sehen

Woran erkennst Du denn, daß ein neuer Datensatz beginnt? An dem H1 ???

Falls ja, dann sollte das Programm halbwegs so aussehen:

Code

Datei zum lesen öffnen
doc = nothing
while not EOF
    lies Zeile ein
    if beginnt mit H1 
    then 
        if not(doc is nothing) then speichere doc 
        create neues doc
    end if
    füge Daten entsprechend ihrer Bestimmung ein
wend
if not(doc is nothing) then speichere Doc
Datei schließen

Alles anzeigen

RockWilder · 23. September 2004

Zitat

wenn das strukturierte Daten sind, dann will ich mal unstrukturierte Daten sehen

:lol: :lol: :lol: :lol: :lol: :lol:

Teilen