| |
| |
|
 | Ich habe mich heute nachmittag circa 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 corre 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#
| 24.04.2004 ▲ | |
|
| |
|
|
| Hi David,
> Ich habe mich heute nachmittag circa 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 Foro-Sostegno und na ja, das auch noch kostenlos – wenn ich zu Geld komme, dann werd ich spenden
Na danke per die aufmunternen Worte !
Da hoffe ich doch, das du schnell zum Millionär wirst
Saluto, Frank |
|
| |
| |
| |
|
(893)
Deutsch
English
Français
Español
Italia