Einzelnen Beitrag anzeigen

Novo

Registriert seit: 27. Mai 2007
122 Beiträge
 
Delphi 7 Enterprise
 
#27

Re: PosExUltra - Ultimative Stringsuche/Parser

  Alt 25. Feb 2010, 18:33
Zitat von HeikoAdams:
Um das ganze richtig elegant zu machen, würde ich das ganze so umbauen:
Delphi-Quellcode:
function ExtractBetween(const aSource, aPrefix, aSuffix, aNewPrefix, aNewSuffix : string;
                         const aFindAll : Boolean = True): TStrings;
dann kann man sich den Parameter aWords nämlich komplett sparen
Keine gute idee, daraus ne funktion zu machen.
Ausserdem geht das nichtmal:
      ListBox1.Items.AddStrings(FuncExtractBetween(source, '[img]', '[/img]</img>', '', '', True)); Bei:
Code:
<img src="http://blub.de
" alt="album"></img>
<img src="http://blub.de
" alt="bild"></img>
<img src="http://blub.de
" alt="bild"></img>
<img src="http://blub.de
" alt="album"></img>
<img src="http://blub.de
" alt="album"></img>
<img src="http://blub.de
" alt="bild"></img>
<img src="http://blub.de
" alt="album"></img>
mal alle album links ziehn.
öhm und ist die rückwärtssuche nun wirklich überflüssig?
Takeo
Don't make me angry...
You wouldn't like me when I'm angry!
Blut ist leben, Leben ist Blut, ins Licht geboren suchen wir die Dunkelheit!
  Mit Zitat antworten Zitat