[*]Profan

Michael
W.

Ja, zurückgemeldete Ersetzungen machen ja auch Editoren und daran kann man auch oft ablesen, ob da etwas schief gegangen ist. Z.B. wenn man die Anzahl der Vorkommen kennt und es werden sehr viel mehr Ersetzungen angezeigt.

Dafür.

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

29.08.2015 ▲

Jörg
Sellmeyer

Mh - kannst du doch vorher ganz leicht herausbekommen, oder verstehe ich was falsch?
Kompilieren Markieren Separieren

Cls
Var s$ = "Das können mal eine, zwei oder auch drei sein."
Print Len(s$,"i")
WaitInput

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

29.08.2015 ▲

Jörg Sellmeyer (29.08.15)

H.Brill

Mh - kannst du doch vorher ganz leicht herausbekommen, oder verstehe ich was falsch?
Kompilieren Markieren Separieren

Cls
Var s$ = "Das können mal eine, zwei oder auch drei sein."
Print Len(s$,"i")
WaitInput

Das mag für einfache Trennzeichen bzw. Ersetzungen
ja richtig sein, aber wie sieht das denn bei regulären
Ausdrücken aus ?

Was ich meine :
Ein Trennzeichen ist nicht unbedingt das gleiche, als
das, was ich ersetzen will.
Kompilieren Markieren Separieren

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

Versuch doch das mal mit Len(s$, "...") hinzukriegen.

Jörg
Sellmeyer

Na ja - sooo schwer ist es nicht:
Kompilieren Markieren Separieren

Set("RegEx",1)
Var s$ = "XXX8:20xxx15:00YYYYY20:00yyyyy"
Var i% = Len(s$,"[]")
Print s$
Print Translate$(s$, "[0-9]{1,2}:[0-9]{1,2}", "[]")
s$ = Translate$(s$, "[0-9]{1,2}:[0-9]{1,2}", "[]")
print Len(s$,"[]") - i%
Waitinput

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

Michael
W.

...und das dann mal auf einen richtig großen Text loslassen...

Schön wäre es, wenn ein einiges Translate$ reichen würde.

Sonst könnte ich ja auch InStr$ in einer Schleife laufen lassen und die Treffer zählen. Dann ist aber das Translate$ sinnlos.

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

Jörg
Sellmeyer

Nein - das mit dem InStr brauchst du eben nicht zu machen, weil Len das in einem Rutsch erledigt.
Ich weiß jetzt nicht mehr, ob Translate rekursiv arbeitet. In dem Fall hilft Len nicht weiter aber ansonsten dürfte das relativ narrensicher und auch einigermaßen schnell sein.

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