Nicht sichtbare Zeichen im String eliminieren

[Tyrael Y.]

Hallo zusammen,

ich möchte ganz gerne einige werte in eine ini Datei schreiben..
unter anderem auch SQL - Anweisungen...
... manche der SQL-Anweisungen gehen über mehrere Zeilen und beinhalten somit ein Enter-Zeichen bzw.#13#10

... wie kann ich nicht sichtbare Zeichen innerhalb eines Strings geschickt eliminieren...?

... die nicht sichtbaren Zeichen sind mitten im String angelagert


danke für jeden Vorschlag


P.S.: Leerzeichen sollen natürlich erhalten bleiben

[Christian Seehase]

Moin Tyrael,

wenn Du Werte hast, die über mehrere Zeilen gehen und in einer INI gespeichert werden sollen, kannst Du sie ja zeilenweise in aufeinanderfolgenden Idents speichern.
Die einfachste Variante Zeichen zu eleminieren wäre wohl die Funktion StringReplace.
Aufwändiger aber schneller wäre es den String in einen anderen zeichenweise zu übernehmen, und dabei einfach die unterwünschten Zeichen wegzulassen.

[Tyrael Y.]

Morgen zusammen,

Zitat:

wenn Du Werte hast, die über mehrere Zeilen gehen und in einer INI gespeichert werden sollen, kannst Du sie ja zeilenweise in aufeinanderfolgenden Idents speichern.

Leider kann ich das nicht. Die Werte, bzw die SQL-Anweisung muss letztendlich in einem Key stehen,
jede Anweisung ein Key. Das ist später für die Auswertung wichtig.

Zitat:

Aufwändiger aber schneller wäre es den String in einen anderen zeichenweise zu übernehmen, und dabei einfach die unterwünschten Zeichen wegzulassen.

1. Wie kann ich einen String zeichenweise übernehmen. Doch nicht etwa mit copy() , oder?
Bei c++ wäre es einfach da ein String ein Array of Chars ist.
In Delphi ist es, denke ich auch intern ein Array of Char, aber kann ich die einzelnen Zeichen mit mit myString[i]
ansprechen ?
2. Wie kann ich denn das nicht sichtbare Zeichen identifizieren, über #Zahl?

danke im voraus.

Gruß Tyrael

[Honie]

Hi,

Delphi-Quellcode:

var
  i: integer;
  source,dest: string;

begin
  source := 'Das ist '#13#10'ein Test '#8'mit Sonderzeichen;
  dest := '';
  for i := 1 to length(source) do 
    if ord(source[i])>=32 then
      dest := dest+source[i];
end;

Sollte für 1-Byte Zeichensätze funktionieren. Für eventuelle Probleme mit WideStrings
sollte man zum extrahieren der einzelnen Zeichen eine entsprechende Fuktion nehmen und
nicht mit [] auf das Zeichen zu greifen.

Gruß
Holger

[edit=Christian Seehase] Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Tyrael Y.]

Danke schön.

klappt alles

[Jens Schumann]

Hallo,
hier kommt die schnellste Variante, die ich kenne

Delphi-Quellcode:

function DeleteNonNumbers(const Value: String): String;
var
  I: Integer;
  P: PChar; 
begin 
  SetLength(Result, Length(Value)); 
  P := PChar(Result); 
  for I := 1 to Length(value) do 
    if ord(source[i])>=32 then
    begin 
      P^ := Value[I]; 
      Inc(P); 
    end; 
  SetLength(Result, P - PChar(Result)); 
end;

Quelle

[Tyrael Y.]

Sieht vielversprechend aus, ich werde es mal testen


Gruß Tyrael