Daten aus INI-Datei lesen und mit Stringlist bearbeiten

[Tommy111]

Moin,
hab folgendes Problem:
ich möchte aus einem String mit Leerzeichen(Zahlenwerte u. Zeichen) nur Zahlenwerte auslesen und diese dann einer Variablen zuweisen. Is net leicht zu erklären, hab mir folgendes gedacht:

Zuerst lese ich einen String, z.B. s:='0.001 ABC 1.45' aus einer INI_datei.
Nun will ich diesen String in einer Function, von mir aus "Function Format(s:string ; FormatListe:Stringlist ; out Variablenliste)" bearbeiten.

Code:

FormatListe.Strings[0] := 'v1=1,5'  //d.h. Variable 1 geht von Bit 1 bis 5
FormatListe.Strings[1] := 'v2=15,18'  //d.h. Variable 2 geht von Bit 15 bis 18

Hatte mir das so gedacht, ob es Sinn macht weiß ich net, find irgendwie net so richtig den Anfang bei der Sache. :gruebel:

Bin für jede Anregung dankbar! :?

[Minz]

verstehe ehrlich gesagt noch nicht so ganz wo genau dein Problem liegt :)

Weißt du nicht, wie du die Zahlen aus dem String holst?

Hast du Probleme die StringList zu verwenden?

etc.

[Tommy111]

Genau das ist mein Problem, die Zahlen aus dem String rausholen, aber nicht die Zeichen. Und die Stellen an der die Zahlen stehen bzw. die Zahlen selbst in einer Laufvariablen speichern.

[Sprint]

So "0.001 ABC 1.45" sieht die Quelle aus? Und wie soll das Ergebnis aussehen?

[Minz]

Code:

s:='0.001ABC';

for i:=1 to length(s) do 
    if (ord(s[i])>=48) and (ord(s[i])<=57) then ergebnis:=ergebnis+s[i]; // 48 bis 57 sind die ASCII-Codes für 0 bis 9

evtl. ist der 1. Index von s gleich 0 und nicht 1. Dann musst du for-next Schleife von 0 bis length(s)-1 machen.

[Tommy111]

OK,
so weit so gut, der Punkt sollte jedoch auch noch zur Zahl gehören.
Dann wollte ich auch noch bei mehreren Zahlen(z.B. '0.001_abc_1.45 ....') die Zahlen und deren Position(z.B. Zahl 0.001 geht von Bit 1-5 im String und Zahl 1.45 geht von Bit 11-14 usw.) jeweils einer Variablen(z.B. v1:=0.001 und steht an der Stelle 1-5 im String) zuweisen. Ich glaub dad wird ziehmlich kompliziert?!
:roteyes:

[Minz]

Wenn die Zahlen an einer festen Position im String stehen,
wie du sagt Bit 1-5 und 11-14 etc. dann ist das nicht so schwer.

Code:

v1:=strtofloat(copy(s,1,5));
v2:=strtofloat(copy(s,11,4));

ahso glaube du musst den Punkt vorher in ein Komma umwandeln damit strtofloat funktioniert...

[Tommy111]

Danke, das hat geklappt!
Was aber, wenn die Zahlen keine feste Position im String haben?
Um nochmal auf meine Anfangsidee zu kommen, ich hab da mal en bißchen in der Hilfe rumgeschaut. Kann man das ganze auch mit

Code:

StringList.Strings[0] := 'v1=1,5';
StringList.Strings[1] := 'v2=11,14';

machen?? Muß man dann vorher eine neue Stringliste erstellen? Hab noch nie mit StringList gearbeitet! Kennst du vielleicht en guten Link oder ne Lektüre (Buch) wo das arbeiten mit Strings,Stringlisten oder generell mit Datenerfassung und Bearbeitung beschrieben wird??

[Minz]

TStringList ist ein Objekt. Wenn du es benutzen willst, musst du eine erstellen.

Wenn du die Zahlen nicht als Zahlen brauchst sondern erstmal als strings dann:

Code:

v1, v2: string;
sl: TStringlist;
pos: integer;

sl:=TStringList.create;
v1:='v1='+copy(s,1,4);
pos:=sl.add(v1);

so ungefähr müsste das gehen

Ein gutes Buch kenne ich leider nicht. Ich arbeite hauptsächlich mit der Delphi-Hilfe und Internet.

[Minz]

achso keine feste Position:

Dann durchläufst du solange den String:

- bis du eine Zahl findest
- bis die Zahl von einem anderen Zeichen abgebrochen wird
- bis der String zuende ist

Code:

zahl: boolean;
zahlstart, zahllength: integer;
zahlstring: string;

zahl:=false;
for i:=low(s) to high(s) do begin
    if (ord(s[i])>=48) and (ord(s[i])<=57) then begin
       zahl:=true;
       zahlstart:=i;
    end;
    if zahl then begin
       if (s[i]<>'.') then begin
          if (ord(s[i])<48) or (ord(s[i])>57) then begin
             zahl:=false;
             zahllength:=i-zahlstart;
             zahlstring:=copy(s,zahlstart,zahllength); 
          end;
       end;
    end;
end;

[Tommy111]

Also, wenn ich ne feste Position angebe klappt ja jetzt, aber wenn sie net fest ist das is noch net so ganz richtig!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var pos : integer;
    sl: TStringList;
    s,v1,v2 : string;

procedure TForm1.Button6Click(Sender: TObject);
begin
 Close
end;

procedure TForm1.Button7Click(Sender: TObject);  // Stringliste >> Memofeld
var zahl: boolean;
    zahlstart, zahllength,i: integer;
    zahlstring: string;

begin
 (*with OpenDialog1 do
 begin
  Filter := 'Textdateien (*.TXT)|*.TXT';
  DefaultExt := 'TXT';
  if Execute then sl.LoadFromFile(Filename)
 end
 FileName := 'C:\Dokumente und Einstellungen\Tommy\Desktop\Delphi2'; *)
 
 s:='0.001   abc   1.45';        //zum Testen
 zahl:=false;
 for i:=1 to length(s) do begin
    if (ord(s[i])>=48) and (ord(s[i])<=57) then begin
       zahl:=true;
       zahlstart:=i;
    end;
    if zahl then begin
       if (s[i]<>'.') then begin
          if (ord(s[i])<48) or (ord(s[i])>57) then begin
             zahl:=false;
             zahllength:=i-zahlstart;
             zahlstring:=copy(s,zahlstart,zahllength);
          end;
       end;
    end;
 end;

 pos:=sl.Add(zahlstring);    //wenn Position nicht feststeht


 (* v1:='v1='+copy(s,1,5);     //bei fester Position
 pos:=sl.Add(v1);
 v2:='v2='+copy(s,15,18);
 pos:=sl.Add(v2);  *)

 Memo1.Lines.AddStrings(sl)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 sl := TStringList.Create
end;

end.

??? Will, wenn Position nicht feststeht genauso meine Stringliste auf em Memo ausgeben, wie bei fester Position.

[ub60]

Mal ne ganz andere Idee:

Delphi-Quellcode:

s:='Variable=Wert';

var p : Integer;
    Trennstring, Variablenstring, Wertstring : String;
begin
  // Trennstring definieren
  Trennstring:='='; 
  // seine Position ermitteln
  p:=Pos(Trennstring,s);
  // davor steht die Variable
  Variablenstring:=Copy(s,1,p-1);
  // die braucht man jetzt nicht mehr, das Trennzeichen auch nicht
  Delete(s,1,p+Length(Trennstring)-1);
  // der Rest ist die Zahl (jetzt noch als String)
  Wertstring:=s;
end;

Der Quellcode sollte beliebig modifizierbar sein, Du musst Dir nur überlegen, welche Trennstrings oder Trennzeichen Du benutzt.

[Minz]

Code:

s:='0.001   abc   1.45';        //zum Testen
zahl:=false;
for i:=1 to length(s) do begin
    if (ord(s[i])>=48) and (ord(s[i])<=57) and (not zahl) then begin
       zahl:=true;
       zahlstart:=i;
    end;
    if zahl then begin
       if (s[i]<>'.') then begin
          if (ord(s[i])<48) or (ord(s[i])>57) then begin
             zahl:=false;
             zahllength:=i-zahlstart;
             zahlstring:=copy(s,zahlstart,zahllength);
             pos:=sl.add(zahlstring);
          end;
       end;
    end;
end;

probiers so mal ... pos:=sl.add(zahlstring); musst du am ende jetzt wegnehmen weils in der schleife steht -
ganz wichtig das "and (not zahl)"

@ub60
kann es sein das dein ding nicht für mehrere Zahlen in einem String funktioniert?
habs mir aber net so genau angeschaut...

[SirThornberry]

[OT]

Zitat:

Zitat von Tommy111

Code:

FormatListe.Strings[0] := 'v1=1,5'  //d.h. Variable 1 geht von Bit 1 bis 5
FormatListe.Strings[1] := 'v2=15,18'  //d.h. Variable 2 geht von Bit 15 bis 18

Es handelt sich hier nicht um Bits sondern um Bytes.
[/OT]

[Minz]

Recht haddu, aber ich wusste ja was gemeint war...

[Tommy111]

Also ich bekomms einfach net auf die Reihe.
Wenn ich

Code:

pos:=sl.Add(zahlstring);

jetz in die Schleife mit einsetze wie du gesagt, dann gibt der mir immer nur ne 1 auf em Memo aus! komm da net mit :wall:. Eigentlich müßt der mir doch die Zahl in die Stringliste schreiben?! Oder? Sieht so aus als ob ich immer nur die Anfangsposition ausgebe. Was meinst du denn mit "and (not zahl)" ???
Glaub ich geh jetz erst mal en Bier trinken :cheers: .

[IngoD7]

Zitat:

Zitat von Tommy111

Was meinst du denn mit "and (not zahl)" ???

Das in dieser Zeile:

Delphi-Quellcode:

if (ord(s[i])>=48) and (ord(s[i])<=57) and (not zahl) then begin

[Tommy111]

:spin2: danke für den Tip Ingo, hat jetz funktioniert.
Vielen Dank auch an Minz, hast mir sehr geholfen!! :coder: