Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

[DeddyH]

Groß- und Kleinschreibung sind identisch?

[Klaus01]

..also, ich habe ein TMemo auf der Form und 3 Editfelder
Deinen Text aus dem 1 Posting paste ich in das Memofeld und lasse
den obigen Code darüberlaufen.
In den 3 Editfelder werden ISBN, Titel und Verfasser eingetragen.

Nun liegt es an Dir zu zeigen was bei Dir anders ist.

Grüße
Klaus

[Luckie]

Zitat:

Zitat von toyoman

hi, du könntest z.b. Pos verwenden um nach ISBN zu suchen.

Und wenn der Buchtitel "ISBN für Dummies" heißt?

Hat die Seite eventuell eine Schnittstelle vorgesehen? Wenn nicht, frage ich mich, ob das von der Seite gewünscht ist, dass man deren Informationen nutzt. Letztendlich steckt ja Arbeit und zeit dadrin und ich weiß nicht, ob das denen so recht ist, wenn man sich da einfach so bedient.

[Teekeks]

@Luckie:es wäre komisch und nicht mit dem sinn dieser Bibliothek übereistimmend wen man sich von der Deutschen Nationalbibliothek keine infos holen dürfte...

@DeddyH: ja sind.
@soulies: also: hier ist noch n bissl code...

Delphi-Quellcode:

procedure TForm4.ImportBClick(Sender: TObject);
var s_pfad:string;
    xx:integer;
begin
 s_pfad:=GetCurrentDir;
 if M_Import.ReadOnly=true then
 begin
   M_Import.ReadOnly:=false;
   M_Import.Clear;
   EreignissM.Lines.Add('Datenimport wurde aktiviert.');
 end else
   begin
 //Daten einlesen
 //ISBN einlesen...
     for xx:=0 to M_Import.Lines.Count-1 do
     begin
       if (Pos('ISBN',M_Import.Lines.Strings[xx])>0) then
         E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'ISBN: ', EmptyStr,[rfReplaceAll]) ;
       if (Pos('Titel',M_Import.Lines.Strings[xx])>0) then
         E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ;
       if (Pos('Verfasser',M_Import.Lines.Strings[xx])>0) then
         E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'Verfasser: ', EmptyStr,[rfReplaceAll]) ;
     end;
{     for xx:=0 to M_Import.Lines.Count-1 do
     begin
       if (Pos('ISBN',M_Import.Lines.Strings[xx])>0) then
        E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'ISBN: ', EmptyStr,[rfReplaceAll]) ;    //mal gucken was das macht...(von DB!)                                                                                              //funkt!!! supper!
 //ISBN ist da!
 //Titel einlesen...
       if (Pos('Titel',M_Import.Lines.Strings[xx])>0) then
        E_Titel.Caption := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ;
 //Titel ist auch da!
 //Verfasser...
       if (Pos('Verfasser',M_Import.Lines.Strings[xx])>0) then
        E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'Verfasser: ', EmptyStr,[rfReplaceAll]) ;
     end;  }
 //Verfasser auch vorhanden.
 //\Daten Einlesen
 //Mitteilung schreiben
   EreignissM.Lines.Add('Buch erfolgreich eingetragen!');
 //\Mitteilung schreiben
 //ursprung herstellen + Hilfe Laden
   M_Import.ReadOnly:=true;
   M_Import.Clear;
   Assignfile(F,s_pfad+Form1.s_PathDelimiter+'Dokumente'+Form1.s_PathDelimiter+'Hilfe'+Form1.s_PathDelimiter+'Import.txt');
   Reset(F);
   while not eof(F) do begin
     Readln(F, S);
     M_Import.Lines.add(S);
   end;
   if (IOResult<>0) then begin M_Import.lines.add('Dateizugriffsfehler!'); M_Import.Lines.Add('Hilfe konnte nicht geladen werden!'); end else
   EreignissM.Lines.Add('Datenimport wurde deaktiviert.');
   CloseFile(F);
   //\ursprung herstellen + Hilfe Laden
 end;
end;

wen jemand einen Fehler findet ist er besser als ich (seit ihr sowieso alle ^^ )
gruß Teekeks

[Teekeks]

allso es ist so das wen ich von hand folgendes eingebe:

Zitat:

Titel: test1
ISBN: test2
Verfasser: test3

dann wird alles richtig eingetragen, wen jedoch man das hier reinkopiert:

Zitat:

Link zu dieser Seite: http://d-nb.info/990813231
Titel: Von PHP bis my SQL : Dynamische Webseiten und Datenbanken - Kompakt und verständlich erklärt von Anfang an / Marco Franzbonenkamp
Verfasser: Franzbonenkamp, Marco
Ausgabe: 1. Aufl.
Verleger: Herzogenrath : Shaker Media
Erscheinungsjahr: 2008
Umfang/Format: 160 S. ; 210 mm x 148 mm
ISBN: 978-3-86858-118-8
Einband/Preis: Pb. : sfr 33.80 (freier Pr.), EUR 16.90, EUR 16.90 (AT)
Sachgruppe: 004 Informatik
Erscheinungstermin: Oktober 2008

dann wird nur der Titel eingetragen... ich bin rahtlos.....

[DeddyH]

Evtl. sind da noch nicht sichtbare Zeichen im Spiel.

Delphi-Quellcode:

for xx:=0 to M_Import.Lines.Count-1 do
     begin
       if (Pos('ISBN',trim(M_Import.Lines[xx]))=1) then
         E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'ISBN: ', EmptyStr,[rfReplaceAll]) ;
       if (Pos('Titel',trim(M_Import.Lines[xx]))=1) then
         E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ;
       if (Pos('Verfasser',trim(M_Import.Lines[xx]))=1) then
         E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'Verfasser: ', EmptyStr,[rfReplaceAll]) ;
     end;

[Teekeks]

Hi DeddyH!
hab ich mal ausprobiert aber fukt immernoch nicht mit dem eingefürgten (nur Titel wird eingetragen)
auch wen ich

Delphi-Quellcode:

trim(M_Import.text);

vorher mache wird das nichts... trotz alledem danke

gruß Teekeks

[DeddyH]

Speicher den Inhalt des Memos doch mal in eine Datei und häng die an, an irgendwas muss es ja liegen.

[Teekeks]

Ich hab jetz einfach den inhalt von M_Import mal in ne *.txt gehauen...

[DeddyH]

Bei mir funktioniert es. Allerdings sind die Zeilenumbrüche in der Datei im UNIX-Format, also nur LF statt CRLF, evtl. liegt es daran.