[*]Profan

Jörg
Sellmeyer

I behaupte time: the Einarbeiten (with own Worten without simply whom Text To copy), is a unglaublicher hoisted, whom Roland on my own not creates.
simply into Help hineinkopieren is not because of Urheberschutzrecht.
itself The Page but on the computer To wander, is a hoisted of few Augenblicken, the one too for future the know saves..

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08/25/15 ▲

H.Brill

has Perhaps someone yet the Topic, the particularly
The Fangvariablen anspricht, parat ?
above it having letztes year P.woodpecker in Paules Forum
a whole Page written. I find it mere not
More and having it forget on PC To Save.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Dou you mean this here? [...]

H.Brill

thanks, Yes the was is vaguely.
though having p.woodpecker later in a
others Thread a whole Page, even
with Examples, written.

but the help me already moreover.

Michael
W.

LOL, one Draufblick and it'll something klarer.
with RegEx is the simply backreference.

in the part, the Roland uses are 9 Backreferences possible. and Yes, tappt im dunkeln grab itself the what in rounds clinging is.
one can means with a RegEx up to 9 pieces a found String filter out.

the must though then too umgesetzt go. I faith, the Roland here yet nothing installed has.

The Library bid yet some pieces More. though are missing too pieces in the Library, z.B. Lookarounds are not include.

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

H.Brill

though I herewith not yet so correctly. klarkomme:
Compile Mark Separation

print Match$("([0-9]{1,2})~2","abcdef11gghijklmnopqrst22uuvwxyzz")

here wished I The 22 behind st abgreifen. make I
there what wrong ?

PS:
Yes, i think too, that Roland The reg. expressions
only very rudimentär (partly) implementiert has.
there missing yet some, what too thoroughly useable would.

what too yet absolutely mere should :
Compile Mark Separation

Print SubStr$("XXX8:20xxx15:00YYYYY20:00yyyyy", 2, "[0-9]{1,2}:[0-9]{1,2}")

That one here z.B. The 2. Uhrzeit abgreifen could.
too Len(s, [D]) would evtl. one candidate. If D too
with reg. squeeze out works could.

If one with the reg. squeeze out time started has,
would like one tappt im dunkeln sometime not any more missen.

Michael
W.

To 22:
Hierfür need one The Backreferences not, the goes with einfachem RegEx. the inside the rounds clinging reicht - without The rounds clinging. they say: 1 To 2 Digits.
Compile Mark Separation

Cls
Declare RegExMaske$, SuchText$, StartPos&, Treffer&
Declare savePos&, saveLen&, saveTxt$
Set("RegEx",1)
RegExMaske$ = "[0-9]{1,2}"
SuchText$ = "abcdef11gghijklmnopqrst22uuvwxyzz"
StartPos& = 0
Treffer& = 0
Print SuchText$

While InStr(RegExMaske$, SuchText$, StartPos&) <> 0

    savePos& = %MatchPos
    saveLen& = %MatchLen
    saveTxt$ = $Match
    Inc Treffer&
    Print "  gefunden: \q";saveTxt$;"\q, Posi:",savePos&+StartPos&;", Länge:",saveLen&;", Treffer:",Treffer&
    Inc StartPos&, savePos& + saveLen&

EndWhile

Print "ENDE"
WaitEnd

...and the others Done itself still too of self.

I Have simply time whom Text and the RegEx supplant. whom remainder power then the Programmer so, How it it having would like.
Compile Mark Separation

Cls
Declare RegExMaske$, SuchText$, StartPos&, Treffer&
Declare savePos&, saveLen&, saveTxt$
Set("RegEx",1)
RegExMaske$ = "[0-9]{1,2}:[0-9]{1,2}"
SuchText$ = "XXX8:20xxx15:00YYYYY20:00yyyyy"
StartPos& = 0
Treffer& = 0
Print SuchText$

While InStr(RegExMaske$, SuchText$, StartPos&) <> 0

    savePos& = %MatchPos
    saveLen& = %MatchLen
    saveTxt$ = $Match
    Inc Treffer&
    Print "  found: \q";saveTxt$;"\q, Posi:",savePos&+StartPos&;", length:",saveLen&;", hits:",Treffer&
    Inc StartPos&, savePos& + saveLen&

EndWhile

Print "ENDE"
WaitEnd

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

Michael
W.

H.Brill (30.08.15)

here wished I The 22 behind st abgreifen.

For this wären then The Lookaraunds again well (gibt's but not yet):
Compile Mark Separation

RegExMaske$ = "(?<=st)[0-9]{1,2}:[0-9]{1,2}"

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

H.Brill

thanks, with Loop is it already clear.
Perhaps can itself Roland Yes yet what to occur.
would be hold beautiful, if it too without Loop
weg would.

there stick Yes yet each crowd capability behind it.
yet so a couple ideas :
- Set("RegEx", 2)
there it these Lib too for Utf-8 for Delphi gives,
would one switch on The Unicode-Lib
neither badly. there entfiele then the
previous Konvertieren the Strings.
- container-function RegEx(....)
so could one z.B. The Modifikatoren
bearing. so sähen too so some
Suchmuster not any more so kryptisch from, if
one tappt im dunkeln otherwise 'on the fly' commit.