Hey,

also ich hab einen Text vorliegen, der eigentlich immer gleich ist. In diesem Text befinden sich verschiedene Zahlen, die event. der Optikhalber auch mit Punkten unterteilt sind (bsp 1.234.567) oder auch ganz kurz sein können (bsp 0). Die einzelnen Zahlen können auch nur durch ein Leerzeichen voneinander getrennt sein. Nun möchte ich also diese Zahlen extrahieren. Gibt es da irgendwas fertiges, oder muss ich Wort für Wort durch den String gehen und auf Zahl oder Buchstabe überprüfen?

Oder hat jemand ne komplett andere/bessere Idee sowas vernünftig zu lösen?


Es sei noch gesagt, das es komplett nonVCL ist. Also keine Units sprich SysUtils usw.

Danke für Vorschläge im vorraus

mfg Martin

Wie wäre es alle Buchstaben und nicht benötigte Sonderzeichen zu Blanks (Unterstreicher,Ausrufezeichen...) zu machen und diese dann aus dem Text zu entfernen?
Dann sollten nur noch gültige Zahlen zurück bleiben.

Gruß
K-H

Aber wie kann ich die dann danach effektiv voneinander trennen?
Die Zahlen dürfen sich ja nicht verändern dadurch oder gar zusammen geschmissen werden.

Ich hatte als erste des Idee es mit zwei Schleifen zu machen. Also die erste geht nach und nach den String durch und die zweite kommt dann in Aktion, wenn die erste ne Zahl gefunden hat. Aber da kommt halt die Idee, ob man das nicht irgendwie "besser" lösen könnte.

.. ich würde die Trennzeichen vereinheitlichen und dann eine Funktion wie explode
nehmen um die Zahlen(Strings) in eine Liste zu bekommen.
Die Liste kannst Du dann weiter auswerten.

Grüße
Klaus

Hier eine Funktion die eine Zahl ermittelt. Mit leichter Anpassung kann man auch alle Zahlen eines Strings ermitteln, bzw. um Tausender Zeichen erweitern.

zusammenfalten · markieren

Delphi-Quellcode:

    //Prüft auf Zahl im Strings, wie "Neuer Text (2)". Bei vorhanden sein
    //gibt StrB den Teil vor der Zahl, StrN die Zahl, StrE den Rest.
    function IsNumIn(Str: String; var StrB, StrNum, StrE: String): Boolean;
    var
      k: Integer;
    begin
      StrB := ''; // Text vor Zahl
      StrNum := ''; // Zahl
      StrE := ''; // Text nach Zahl

      k := 1;
      while k <= Length(Str) do
        if Pos(Str[k], '0123456789') = 0 then
        begin
          StrB := StrB + Str[k];
          Inc(k);
        end else Break;

      while k <= Length(Str) do
        if Pos(Str[k], '0123456789') > 0 then
        begin
          StrNum := StrNum + Str[k];
          Inc(k);
        end else Break;

      StrE := Copy(Str, k, Length(Str));
      Result := StrNum <> '';
    end;

hi,

[EDIT]Hatte das mit dem NON-VCL überlesen... Hier einmal überarbeitet [/EDIT]

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

type
  TStringArray = array of string;

procedure GetNums(AString: string; var AStrArray: TStringArray);

implementation

procedure GetNums(AString: string; var AStrArray: TStringArray);
var
  ndx: Integer;
  sHelp: string;
begin
  sHelp := '';
  SetLength(AStrArray, 0);
  for ndx := 1 to Length(AString) do
  begin
    if (AString[ndx] in ['0'..'9']) then
    begin
      sHelp := sHelp + AString[ndx];
    end
    else if (sHelp <> '') then
    begin
      SetLength(AStrArray, Length(AStrArray)+1);
      AStrArray[High(AStrArray)] := sHelp;
      sHelp := '';
    end;
  end;

  // Edit Ihr habt ja recht.
  if (sHelp <> '') then
  begin
    SetLength(AStrArray, Length(AStrArray)+1);
    AStrArray[High(AStrArray)] := sHelp;
    sHelp := '';
  end;
end;

end.

Was sind Zahlen?
z.B. inklusive Vorzeichen, Komma, Tausenderseparator und womöglich noch mit Exponent.

TStringArray ... falls es im D7 das schon gibt, dann besser TStringDynArray verwenden, für eine bessere Typkompatibilität.

@angos: Wenn AString mit einer Zahl endet, dann wird diese vergessen.
Also nach der Schleife dieses besser nochmals beachten.

markieren

Delphi-Quellcode:

  if sHelp <> '' then
  begin
    SetLength(AStrArray, Length(AStrArray)+1);
    AStrArray[High(AStrArray)] := sHelp;
  end;

Mit Vorzeichen:

zusammenfalten · markieren

Delphi-Quellcode:

function GetNums(const Text: string): TIntegerDynArray;
var
  L, i: Integer;
begin
  SetLength(Result, 1);
  Result[0] := '';
  L := 0;
  for i := 1 to Length(Text) do
    if (Text[i] in ['0'..'9']) or ((Result[L] = '') and (Text[i] in ['+', '-'])
        and (i < Length(Text)) and (Text[i + 1] in ['0'..'9'])) then
      Insert(Text[i], Result[L], Length(Result[L]) + 1) // Result[L] := Result[L] + Text[i]
    else if Result[L] <> '' then begin
      Inc(L);
      SetLength(Result, L + 1);
    end;
  if Result[L] = '' then
    SetLength(Result, L);
end;

// ab D2006/TDE
function GetNums(const Text: string): TIntegerDynArray;
var
  C, V: Char;
  L: Integer;
begin
  SetLength(Result, 1);
  Result[0] := '';
  L := 0;
  V := #0;
  for C in Text do begin
    if C in ['0'..'9'] then begin
      if V in ['+', '-'] then
        Result[L] := V;
      Insert(C, Result[L], Length(Result[L]) + 1);
    end else if Result[L] <> '' then begin
      Inc(L);
      SetLength(Result, L + 1);
    end;
    V := C;
  end;
  if Result[L] = '' then
    SetLength(Result, L);
end;

ohne Vorzeichen

zusammenfalten · markieren

Delphi-Quellcode:

function GetNums(const Text: string): TIntegerDynArray;
var
  L, i: Integer;
begin
  SetLength(Result, 1);
  Result[0] := '';
  L := 0;
  for i := 1 to Length(Text) do
    if Text[i] in ['0'..'9'] then
      Insert(Text[i], Result[L], Length(Result[L]) + 1)
    else if Result[L] <> '' then begin
      Inc(L);
      SetLength(Result, L + 1);
    end;
  if Result[L] = '' then
    SetLength(Result, L);
end;

// ab D2006/TDE
function GetNums(const Text: string): TIntegerDynArray;
var
  C: Char;
  L: Integer;
begin
  SetLength(Result, 1);
  Result[0] := '';
  L := 0;
  for C in Text do
    if C in ['0'..'9'] then
      Insert(C, Result[L], Length(Result[L]) + 1)
    else if Result[L] <> '' then begin
      Inc(L);
      SetLength(Result, L + 1);
    end;
  if Result[L] = '' then
    SetLength(Result, L);
end;

Zitat von himitsu:

Was sind Zahlen?
z.B. inklusive Vorzeichen, Komma, Tausenderseparator und womöglich noch mit Exponent.

Eben, genau.
Und da frage ich mich doch, wozu denn alle diese derartigen Codes eigentlich gut sein sollen, wenn mit denen bei einem String wie z.B. 'xxxx2.098yyyy' herauskommt, dass solch ein String angeblich die zwei Zahlen 2 und 098 enthalte, wobei doch tatsächlich darin nur die eine einzige Zahl 2.098 enthalten ist....

Zitat von angos:

hi,

[EDIT]Hatte das mit dem NON-VCL überlesen... Hier einmal überarbeitet [/EDIT]

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

type
  TStringArray = array of string;

procedure GetNums(AString: string; var AStrArray: TStringArray);

implementation

procedure GetNums(AString: string; var AStrArray: TStringArray);
var
  ndx: Integer;
  sHelp: string;
begin
  sHelp := '';
  SetLength(AStrArray, 0);
  for ndx := 1 to Length(AString) do
  begin
    if (AString[ndx] in ['0'..'9']) then
    begin
      sHelp := sHelp + AString[ndx];
    end
    else if (sHelp <> '') then
    begin
      SetLength(AStrArray, Length(AStrArray)+1);
      AStrArray[High(AStrArray)] := sHelp;
      sHelp := '';
    end;
  end;
end;

end.

Das hier ist übrigens fehlerhaft, denn, was passiert bei solch einem String "abc1"?
Erst bei i = length(string) (letzter Durchlauf) wird sHelp gesetzt, das Speichern der Zahl geschieht aber nur, wenn es sich <beim nächsten Zeichen> nicht um eine Zahl handelt (hier gibt es kein nächstes Zeichen (letzter Schleifendurchlauf))

Vielleicht sollten wir keine weiteren Codes liefern bis der Threadersteller ganz genau mitteilt was er unter Zahl versteht, denn je komplexer die Zahl, desto komplexer der Code. Einfacher Integer ist kein Problem, aber wenn schon Tausender Zeichen beachtet werden müssen, dann gehe ich von Real Zahlen aus, dann vielleicht auch -1.23e45. Bevor also der Threadersteller nicht genauer wird, ist es Rätselraten.