AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Überschrift aus Textdatei finden.

Ein Thema von Chris1896 · begonnen am 11. Jan 2011 · letzter Beitrag vom 12. Jan 2011
Antwort Antwort
Chris1896

Registriert seit: 17. Nov 2010
17 Beiträge
 
#1

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 15:38
Danke schonmal für die Hilfe, komme aber irgendwie trotzdem nicht weiter habe folgenden Quellcode hier im Forum gefunden und wenn ich das Testen will kommen Fehler

Code:
s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos(';', s);
if Pos1 <> 0 then // erstes Semikolon gefunden
begin
  // Position des zweiten Semikolons ermitteln;
  // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
  Pos2 := PosEx(';', s, Pos1 + 1);
  if Pos2 <> 0 then
    ShowMessage('gefunden an Position: ' + IntToStr(Pos2))
  else
    ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#2

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 15:42
Es wäre zuckersüß von Dir, wenn Du
-statt Code-Tags Delphi-Tags verwenden würdest
-uns sagst, welche Fehler auftreten
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 16:03
Wollen wir wetten, daß
uses StrUtils; fehlt?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Chris1896

Registriert seit: 17. Nov 2010
17 Beiträge
 
#4

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 16:26
unit1.pas(77,1) Error: Illegal expression

und in dieser zeile steht initialization
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 16:38
Jetzt wäre es hilfreich die ganze Unit zu sehen, oder zumindestens die letzten 10..20 Zeilen, den initialization als soches ist fehlerfrei. Die Ursache der Fehlermeldung müßte also davor liegen.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Chris1896

Registriert seit: 17. Nov 2010
17 Beiträge
 
#6

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 16:41
Button1Klick war nur ne probe die funktioniert hat...
Benutze Lazarus aber ist doch eigentlich wie delphi oder kommt das dadurch?
Danke dir für deine Hilfe

Delphi-Quellcode:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, StrUtils;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
    S: string;
   begin
   if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
   AssignFile(F, OpenDialog1.FileName); { Datei ausgewählt }
   Reset(F);
   Readln(F, S); { Erste Zeile der Datei lesen }
   Edit1.Text := S; { String in ein TEdit schreiben }
   CloseFile(F);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Pos1, Pos2, Pos3: byte;
 s : string; f : textfile;
 begin
s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos(';', s);
if Pos1 <> 0 then // erstes Semikolon gefunden
begin
  // Position des zweiten Semikolons ermitteln;
  // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
  Pos2 := PosEx(';', s, Pos1 + 1);
  if Pos2 <> 0 then
    edit1.Text:='gefunden an Position: ' + IntToStr(Pos2)
  else
    ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;





initialization
  {$I unit1.lrs}

end.
  Mit Zitat antworten Zitat
alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#7

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 16:48
Im ersten Überblick würde ich sagen, da fehlt doch das 'end;' am Ende deiner 2.Procedure

GRuss alfold
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#8

AW: Überschrift aus Textdatei finden.

  Alt 11. Jan 2011, 17:06
Was hast du denn genau vor?

Wenn du für dich persönlich einen Zeitungs-Reader basteln möchtest, ist das Parsen des HTML-Codes ungeeignet. Wenn die FAZ etwas daran ändert, funktioniert dein Programm möglicherweise nicht mehr.

Die Überschriften und eine kurze Zusammenfassung des Inhalts erhältst du auch über die ganzen Newsfeeds von denen (z.B. hier die Kategorie "Aktuelles").
Das ist ein standardisiertes Format und das wirst du daher immer auslesen können. Wenn du den ganzen Text lesen möchtest, musst du halt auf deren Website schauen.

Oder worum geht's dir genau? Was für ein Programm soll das werden?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz