Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi StringReplace Nummerierung (https://www.delphipraxis.net/13831-stringreplace-nummerierung.html)

greyblue 27. Dez 2003 16:55


StringReplace Nummerierung
 
Hallo,

ich möchte in einer TextDatei,wo "aa" vorkommt,durch "aa#" ersetzen(# steht für Nummerierung,also erstmal eine 1 und dann 2 usw ..)

mit StringReplace habe ich Problem,wenn die "aa"s in eine Zeile stehen ..

z.B.

faa
saafaa
aab

bekomme ich

faa1
saa2faa2
aa3b



StringReplace(tmp_string,alt,neu+intToStr(count),[rfReplaceAll]);

wer kann mir helfen? Danke!!

Viele Grüße

[edit=sakura] (Überschrift) + -> Leerzeichen :roll: Mfg, sakura[/edit]

sakura 27. Dez 2003 17:07

Re: StringReplace+Nummerierung
 
Das wirst Du vollständig selber lösen müssen ;-) D.h. den String immer nach dem zu suchenenden String durchsuchen und dann am besten einen neuen Zielstring erstellen und das Ergebnis stückchenweise zusammensetzen.

Mach mal einen Anfang und wir helfen bei den dann kommenden Problemen.
Hier im Forum suchenPos
Hier im Forum suchenPosEx
Hier im Forum suchenCopy
Hier im Forum suchenDelete

...:cat:...

greyblue 27. Dez 2003 17:13

Re: StringReplace+Nummerierung
 
jo,Danke ..

ich weiss nun wie ich machen soll ..

:-)

sakura 27. Dez 2003 17:14

Re: StringReplace+Nummerierung
 
Zitat:

Zitat von greyblue
ich weiss nun wie ich machen soll ..

:-)

:firejump: Wenn doch noch Fragen kommen, Du weißt ja, wo Du fragen kannst ;-)

...:cat:...

greyblue 28. Dez 2003 17:25

Re: StringReplace+Nummerierung
 
Zitat:

Zitat von sakura
Zitat:

Zitat von greyblue
ich weiss nun wie ich machen soll ..

:-)

:firejump: Wenn doch noch Fragen kommen, Du weißt ja, wo Du fragen kannst ;-)

...:cat:...

mit diese 4 Funktionen

POS
LENGTH
COPY
DELETE

habe ich geschafft :-)

Danke trotzdem ..

Gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:49 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