String auslesen

skaven · Beiträge: 41

Hallo zusammen,

ich würde gernen eine Zeichenkette die so aussieht

'j 1000 4000' pof#*'-->PRD'%&/'45465'##*'-->PRD'hgdas()'45811'#+*'-->' usw.

nach den Zahlen durchsuchen und diese dann ausschneiden und in fortlaufende variablen speichern.

Hab leider keine Idee wie

Ist ja auch Montag.

Hat jemand ne Idee?

jaenicke · Verfasst: Mo 25.10.04 11:24

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var i: Integer;
    s, s2, tmp: String;
begin
    for i:=0 to Length(s) - 1 do
        if s[i] in ['1'..'9','0'] then
            s2:=s2+s[i];
    tmp:=s;
    s:='';
    for i:=0 to Length(tmp) - 1 do
        if not (tmp[i] in ['1'..'9','0']) then
            s:=s+tmp[i];

Alle Zahlen in s werden an s2 angehängt. Dann wird s gelöscht und alles außer Zahlen wieder in s getan.

skaven · Beiträge: 41

Hallo jaenicke,

sieht ganz gut aus, aber ich würde grene zwei einzelen variablen haben, denn ich muß diese am ende vergleichen.

das heißt eine variable wo alle zahlenfolgen die jemals zwischen prd gestanden haben, funktioniert nicht.

Brauche zwie varibale mit je 5 zeichen.

Oder bin ich jetzt total verpeilt und habe dein programm nicht verstanden?

Ja ja, der Montag

skaven · Beiträge: 41

Hi,

würde gerne nur die zahlen zwischen prd und > auslesen. Wie steck ich denn die grenzen das der strig nur zwischen diesen beiden zeichen durchsucht wird?

jasocul · Verfasst: Mo 25.10.04 11:51

Mit der Funktion Pos kannst du die beiden Stellen bestimmen. Dann musst du nur noch die Schleife entsprechend anpassen.

jaenicke · Verfasst: Mo 25.10.04 12:05

@jasocul: Nee, eben nicht, denn dann müsste er für 0 bis 9 je eine Pos-Abfrage machen, denn es ist ja wahrscheinlich nicht bekannt, mit welcher Zahl die Zahlenfolgen anfangen.

Lösung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var i: Integer;  
    s, s2, s3: String;  
begin  
    i:=0;
    while (i < Length(s)) and not (s[i] in ['1'..'9','0']) do
        Inc(i);
    s2:=Copy(s,i+1,Length(s)-i);
    Inc(i,5);
    while (i < Length(s)) and not (s[i] in ['1'..'9','0']) do
        Inc(i);
    s3:=Copy(s,i+1,Length(s)-i);

s enthält den ursprünglichen String, s2 und s3 die beiden gefundenen 5-ziffrigen Zahlen.

jasocul · Verfasst: Mo 25.10.04 12:10

Stimmt doch. Er hat als Such-Begriff "prd" und ">" vorgegeben.

skaven · Beiträge: 41

Kann mir das jemand mal bitte erklären, verstehe den Code nicht. Wo wird auf PRD hingewiesen?

jasocul · Verfasst: Mo 25.10.04 13:06 Titel: Re: funktioniert nicht

skaven hat folgendes geschrieben:

Hi,

würde gerne nur die zahlen zwischen prd und > auslesen. Wie steck ich denn die grenzen das der strig nur zwischen diesen beiden zeichen durchsucht wird?

Hier?!

und dann:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var i: Integer;    
    s, s2, s3: String;    
begin
    s:=copy(s,pos('PRD',s),pos('>',s)-pos('PRD',s)+1); // ungetestet
    i:=0;  
    while (i < Length(s)) and not (s[i] in ['1'..'9','0']) do  
        Inc(i);  
    s2:=Copy(s,i+1,Length(s)-i);  
    Inc(i,5);  
    while (i < Length(s)) and not (s[i] in ['1'..'9','0']) do  
        Inc(i);  
    s3:=Copy(s,i+1,Length(s)-i);

skaven · Beiträge: 41

Bei dem letzten Programm ist doch s mein eingelesener string, oder?

jasocul · Verfasst: Mo 25.10.04 13:50

ja.
Wenn du die Kombination PRD > öfter in einem String hast, musst du den String natürlich ein bisschen aufbröseln.

skaven · Beiträge: 41

Das funktioniert leider nicht, irgendwie wird der PRD Befehl nicht richtig erkannt!

skaven · Beiträge: 41

Hier ist mal das komplette Programm, vielleicht fallen den Cracks ein paar Fehler auf. Wäre nett wenn Ihr mal darüber schauen würdet.

Dabke schon mal.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
   Liste : TStringList;
   i,x, data_length, value_last, value, u : Integer;
   hilftext, data, filename, s, s2, s3 : String;
   prdwerte : array of integer;
   begin
   liste :=tstringlist.create;
  if OpenDialog1.Execute then          { Dialog zum Dateiöffnen anzeigen }
  begin
    filename := OpenDialog1.FileName;
   try
    Liste.LoadFromFile(filename);
    for i := 0 to Liste.Count-1 do
      begin
       apdcomport1.putstring(Liste[i]);     {Übermittelt Daten aus Com1}
       apdcomport1.putstring(#13);
        repeat
         apdcomport1.putstring('prd');
         apdcomport1.putstring(#13);
           while (ApdComPort1.CharReady) do  {ComPort wird komplett ausgelesen}
            begin
             Data := data+ApdComPort1.GetChar;   {ComPort wird ausgelesen}
            end;
       begin
       data:=copy(data,pos('PRD',data),pos('>',data)-pos('PRD',data)+1); {Ermittlung der Zahlenposition}
        u:=0;
        while (u < Length(data)) and not (data[u] in ['1'..'9','0']) do
          Inc(u);
          s2:=Copy(data,u+1,Length(data)-u);
          Inc(u,6);
         while (u < Length(data)) and not (data[u] in ['1'..'9','0']) do
          Inc(u);
          s3:=Copy(data,u+1,Length(data)-u);
       end;
          Setlength(prdwerte,length(prdwerte)+length(data));
          data_length:=length(data);
         for x:=1 to data_length do
          begin
           prdwerte[Length(prdwerte) - Length(Data)] := strtoint(Data[x]);
           delete(data,0,1);
           differenzwert := prdwerte[high(prdwerte)-1]-prdwerte[high(prdwerte)];
           hilftext := inttostr(prdwerte[x]);
           Memo1.text := Memo1.text+hilftext;
          end;
       until data_length<=10;
      end
     finally
    Liste.Free;
   end;
  end;
end;

jasocul · Verfasst: Mo 25.10.04 14:56

Schon mal Schrittweise durch den Source gegangen (Debuggen)?
Lass dir doch mal Anzeigen, was in Data steht.
Was für einen Fehler bekommst du denn, bzw. wie wirkt sich das aus?

skaven · Beiträge: 41

Das mit dem Stringauswerten funktioniert nicht richtig.

der erste Teil weird abgeschnitten, aber der rest nicht.

jasocul · Verfasst: Mo 25.10.04 15:18

Der Fehler steckt hier:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

        while (u < Length(data)) and not (data[u] in ['1'..'9','0']) do  
          Inc(u);  
// bis hierhin ok
        s2 := '';
        while (u < Length(data)) and (data[u] in ['1'..'9','0']) do  
        begin
          s2:=s2+Data[u];  
          Inc(u);  
        end;

skaven · Beiträge: 41

Das hat ja supi geklappt, aber wie mache ich das wenn ich in der zeichenkette mehrere prd´s habe udn alle nacheinander abfragen will und die letzten zwei ermittelten zahlenwerte miteinander vergleichen möchte?

Soviele Fragen, sorry

jojo-sp · Verfasst: Mo 25.10.04 15:35

Ich weis jetzt nicht, in wie weit das schon bedacht wurde, aber wenn die Datenmenge einen bestimmten Wert erreicht hat, wird das ganze nach und nach über Com gesendet.
Hatte nämlich mal das Prob, das mir Daten fehlten.

_________________
Ist der Ruf erst ruiniert, lebts sich gänzlich ungeniert...
Wilhelm Busch (1832 - 1908)

jasocul · Verfasst: Mo 25.10.04 15:36

Das mit den vielen Frage ist schon ok.
Zum Problem:
Das meinte ich weiter oben mit: "aufbröseln".
Du musst dir immer "Zwischenstrings" basteln.
Also eine weitere Variable, die den Wert bis zum ersten ">" speichert. Aus der anderen Variablen musst du dann den Bereich bis dahin löschen.
Deine Strings sehen dann etwa so aus:
Anfang:
j 1000 4000' pof#*'-->PRD'%&/'45465'##*'-->PRD'hgdas()'45811'#+*'-->'
Erster Schritt:
j 1000 4000' pof#*'-->
PRD'%&/'45465'##*'-->PRD'hgdas()'45811'#+*'-->'
Zweiter Schritt:
PRD'%&/'45465'##*'-->
PRD'hgdas()'45811'#+*'-->'
Fertig.
Du benötigst dafür die String-Funktionen Copy und Delete.
Und eine Schleife, die den ganzen String durchläuft bis kein ">" mehr drin ist.

skaven · Beiträge: 41

Das Problem den ersten String zu überspringen, also "J 1000 ... ", habe ich gelöst.

Mir wird jetzt eine korrekte Zahl ausgegeben. Würde diesen durchlauf gerne so oft wiederholen, wie mir prd werte angeboten werden, max. 20 stück die letzten zwei würde ich gerne in variablen speichern, z.b. last value und value und diese auf >=10 überprüfen.

Hänge Euch nochmal meinen aktuellen Code an.

Riesen DANK jasocul.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
   Liste : TStringList;
   i,x, data_length, value_last, u : Integer;
   hilftext, data, filename,value : String;
   prdwerte : array of integer;
   begin
   liste :=tstringlist.create;
  if OpenDialog1.Execute then          { Dialog zum Dateiöffnen anzeigen }
  begin
    filename := OpenDialog1.FileName;
   try
    Liste.LoadFromFile(filename);
    for i := 0 to Liste.Count-1 do
      begin
       apdcomport1.putstring(Liste[i]);     {Übermittelt Daten aus Com1}
       apdcomport1.putstring(#13);

       { Bestätigung des ersten Befehles loeschen }
       while (pos('>',data) = 0) do
          while (ApdComPort1.CharReady) do  {ComPort wird komplett ausgelesen}
            begin
             Data := data+ApdComPort1.GetChar;   {ComPort wird ausgelesen}
            end;
       data := '';


        repeat
         apdcomport1.putstring('prd');
         apdcomport1.putstring(#13);

       { Zeichen einlesen bis Endzeichen ">" }
         while (pos('>',data) = 0) do
          while (ApdComPort1.CharReady) do  {ComPort wird komplett ausgelesen}
            begin
             Data := data+ApdComPort1.GetChar;   {ComPort wird ausgelesen}
            end;
       begin
        // data:=copy(data,pos('PRD',data),pos('>',data)-pos('PRD',data)+1); {Ermittlung der Zahlenposition}
        u:=0;
         {Ermittlung der Zahlenposition}
        while (u < Length(data)) and not (data[u] in ['1'..'9','0']) do
          Inc(u);
          {auslesen und speichern der Zahlen}
         while (u < Length(data)) and (data[u] in ['1'..'9','0']) do
        begin
          value:=value+Data[u];
          Inc(u);
         end;

         {speichern der Zahlenwerte in einem Array}
          Setlength(prdwerte,length(prdwerte)+length(data));
          data_length:=length(data);
         for x:=1 to data_length do
          begin
           prdwerte[Length(prdwerte) - Length(Data)] := strtoint(Data[x]);
           delete(data,0,1);
           // differenzwert := prdwerte[high(prdwerte)-1]-prdwerte[high(prdwerte)];
          // hilftext := inttostr(prdwerte[x]);
           Memo1.text := value;
          end;
         end;
       until data_length<=10;
      end
     finally
    Liste.Free;
   end;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme