| |
| |
|
 | Ich habe mich heute nachmittag über die Funktion Replace geärgert, da sie in der ProSpeed 2.6 (1) kein als ErsatzString annahm (2) Fehler beim ersetzen machte.
Es kam dann eine fette Fehlermeldung Exception EAccessViolation etc.
Aber dann dachte ich mir, lad ich mir die neue Version 2.7 runter und siehe da alle beide Probleme wunderbar gelöst. Vielleicht sind diese Bugs wirklich schon uralt, aber dennoch möchte ich mich bei Frank bedanken, weil es wirklich glücklich macht, wenn man etwas zum funktionieren bringen kann:
dieser Code läuft mit der Version 2.6 nicht:
=> mit der 2.7 wunderbar!!!
KompilierenMarkierenSeparierendeclare Dll_Prospeed&,SuchString$,ErsatzString$,LenSuchString&
declare LenErsatzString&,LenQuellBereich&,MultiEdit&
declare quelle#, ziel#
dim quelle#,100
dim ziel#,100
window 20,20-700,500
Dll_Prospeed& = UseDll("G:\Dll\ProSpeed.dll") ---Verzeichnis anpassen!
MultiEdit& = Create("MultiEdit",%HWnd,"",20,20,600,400)
Def CopyMemory(5) !"ProSpeed","CopyMemory"
Def Replace(7) !"ProSpeed","Replace"
print Ord("z")
String quelle#,0 = "[..][..][..][..]"
SetText MultiEdit&,String$(quelle#,0)
waitinput
SuchString$ = "[]"+"z"
---Der Ersatzstring bringt eine Fehlermeldung, wenn er nichts enthält :-(
ErsatzString$ = "_"+"z"
LenSuchString& = Len(SuchString$)
LenErsatzString& = Len(ErsatzString$)
LenQuellBereich& = SizeOf(quelle#)
Replace(quelle#,LenQuellBereich&,ziel#,addr(SuchString$),LenSuchString&,add
r(ErsatzString$),LenErsatzString&)
CopyMemory(ziel#,0,quelle#,0,LenQuellBereich&)
SetText MultiEdit&,String$(quelle#,0)
waitinput
dispose quelle#
dispose ziel#
FreeDll Dll_Prospeed&
Danke Frank – du bist gleichzeitig ein intellektuelles und soziales Genie: sehr gute Anfänger/Fortgeschrittenen/Profi(?)-Tools mit Forum-Support und na ja, das auch noch kostenlos – wenn ich zu Geld komme, dann werd ich spenden |
|
| |
| |
| |
|
|
| Hi David,
> Ich habe mich heute nachmittag über die Funktion Replace geärgert, da sie in der ProSpeed 2.6 (1) kein als ErsatzString
> annahm (2) Fehler beim ersetzen machte.
> [...]
> Aber dann dachte ich mir, lad ich mir die neue Version 2.7 runter und siehe da alle beide Probleme wunderbar gelöst.
Stimmt, die Fehler hatte mir Sven Bader schon gemeldet und ich hatte sie zu Beginn der 2.7er Realisierung behoben.
> Danke Frank – du bist gleichzeitig ein intellektuelles und soziales Genie: sehr gute Anfänger/Fortgeschrittenen/Profi(?)-Tools
> mit Forum-Support und na ja, das auch noch kostenlos – wenn ich zu Geld komme, dann werd ich spenden
Na danke für die aufmunternen Worte !
Da hoffe ich doch, das du schnell zum Millionär wirst
Gruß, Frank |
|
| |
| |
| |
|
(889)
Deutsch
English
Français
Español
Italia