XProfan

07/31/05 ▲

- Page 1 -

Jörg
Sellmeyer

comic... by me Gibts with Return Ret$ no Problems

Win98SE - Perhaps ists Yes with ME time again everything differently....

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

GDL

Hello Jörg

if I whom code folgendermassen abändere and then 1 + Return eingebe siehts loudly attachment from.One return ret$ has a crash to follow, the only yet with the Resetknopf exits go can.
with Display in the Mainwindow with drawtext happens this.
Compile Mark Separation

 $H Windows.ph
 $H Messages.ph
 $H Richedit.ph
declare reg&,ende%,ende&,zeile$,lang&
Struct CHARRANGE = cpMin&,cpMax&
================================================================

Proc RicheditGetLine

    Parameters REG&
    returns linechars
    Declare Range#,Retval&,Ret$,RetLong&
    Dim Range#,CHARRANGE
    SendMessage(REG&,~EM_EXGETSEL,0,Range#)
    Retval& = SendMessage(REG&,~EM_EXLINEFROMCHAR,0,Range#.cpMin&)
    Ret$ = Space$(100000)  Zeile weglassen bringt Profan zum sofortigen Absturz
    SendMessage(REG&,~EM_GETLINE,Retval&,Addr(Ret$))
    Dispose Range#
    zeile$=ret$
    Return Trim$(Ret$)     bei   return ret$   kein Reagieren

EndProc

======================================================================
window 0,0 - 600,600
ende&=createbutton(%hwnd,"Ende",500,500,80,20)
reg&=@Create("RichEdit",%hwnd,"",10,10,200,200)
setfocus(reg&)
clear ende%

whilenot ende%

    getmessage
    case getfocus(ende&):ende%=1

    if &wparam=13

        sendkey(reg&,8)
        RicheditGetLine(reg&)
        sendkey(reg&,10)
        sendstring(reg&,zeile$)
        sendkey(reg&,10)
        zeile$=left$(zeile$,80)
        drawtext 1,500,zeile$

    endif

wend

Hello
Georg

Zwischenablage01.jpg	104 kB

Hochgeladen:	08/01/05

Downloadcounter:
		Download

Windows7 Xprofan 8,9,10 [...]

And if You time instead of
Compile Mark Separation

Return Ret$
einfach
Return mid$(ret$,1,len(ret$))re>

write?

GDL

Hello iF,

super this goes, though I net wisely Why.hang this with the Richedit dll Version Perhaps together? becomes without The Längenbeschränkung otherwise too much zurückgegeben(Überschreiten the Profan-String-Length).
On any Cases must I The length still with ret$=left$(ret$,150)
limit, there otherwise yet ne Leerzeile eingefügt becomes.but It's all right now.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Something like have I me virtual.

therefore my Tipp.

I had me on your place simply time the what of Sendmessage zurückgegeben becomes 1:1 in the Hexeditor angeschaut. I have me virtual the there Perhaps too yet etwaige Sonderzeichen übermittelt go - and the XProfan at Return or. with the Disclosure there something in memory wrong power. means - ploy 1.5e17 - schubse whom Content the Strings first by a XProfan-Own Stringmanipulationsprozedur. to that Glätten quasi.

salvo.

or XPSEler:
Compile Mark Separation

Nachtrag: (weils Quickposten son Fun power.) ^^

Perhaps had the already gereicht:
Compile Mark Separation

declare bval$
...
//hier Dein Code
...
sendmessage(...
...
bval$=ret$
return$

...
//here your code
...
swap ret$,ret$
return ret$

Hm - Perhaps had that here already gereicht:
Compile Mark Separation

...
//here your code
ret$=ret$
return ret$

salvo, iF.

GDL

alas I Have still Windows to endearing, lauter nice things for Beginner, so How I.
I faith I custom ne Auszeit. in the geposteten code GEHTS, in the application then goes nothing more. it'll of course in the Richedit everything wonderful displayed, but I can whom String not any more evaluate, since the eigentliche information of lauter small senkrechten Strichen umrahmt is.These vanish of course with return trim(ret$) my space on the Beginning of the line but unfortunately too.

apparently is not possible, The actually row one Richedit so auszulesen, as row objectively is.Schade.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Dochdoch ists - I probiers tommorrow forenoon same time.

salvo.

Michael
Wodrich

becomes The row Perhaps in Unicode zurückgegeben (space gewandelt)?

who knows itself with Unicode from and can time a Filterfunktion write?

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

- Page 2 -

Jörg
Sellmeyer

the has me still no silence let, particularly after I do not on GDL listen could and it once ausprobiert have - naturally with Komplettabsturz!

but The Solution is time again integrally simply:
One SubStr$(row$,1,Chr$(13)) erledscht the whole - whether Uni - or Multicode

.
Compile Mark Separation

 $H Windows.ph
 $H Messages.ph
 $H Richedit.ph
Declare Reg&,Ende%,Ende&,Zeile$
Struct Charrange = Cpmin&,Cpmax&
================================================================

Proc Richeditgetline

    Parameters Reg&
    returns linechars
    Declare Range#,Retval&,Ret$,Retlong&
    Dim Range#,Charrange
    Sendmessage(Reg&,~Em_exgetsel,0,Range#)
    Retval& = Sendmessage(Reg&,~Em_exlinefromchar,0,Range#.Cpmin&)
    Ret$ = Space$(100000)Zeile weglassen bringt Profan zum sofortigen Absturz
    Sendmessage(Reg&,~Em_getline,Retval&,Addr(Ret$))
    Dispose Range#
    Return (Ret$)  bei return ret$ kein Reagieren

Endproc

======================================================================
Window 0,0 - 600,600
Ende&=Createbutton(%Hwnd,"Ende",500,500,80,20)
Reg&=@Create("RichEdit",%Hwnd,"",10,10,200,200)
Setfocus(Reg&)
Clear Ende%
Declare xx%,ss$

Whilenot Ende%

    Getmessage
    Case Getfocus(Ende&):Ende%=1

    If &Wparam=13

        Beep
        Sendkey(Reg&,8)
        Zeile$=Richeditgetline(Reg&)
        Zeile$=SubStr$(Zeile$,1,Chr$(13))Hier wird der überflüssige Teil abgeschnitten
        Drawtext 1,500,Zeile$
        Sendkey(Reg&,10)
        Sendstring(Reg&,Zeile$)jetzt wird auch das Return-Zeichen nicht mehr mitgesendet
        Sendkey(Reg&,10)

    Endif

Wend

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

GDL

Hello Jörg,

It's all right, be again NEN step moreover.thanks.
understand of course net, like a Remove of nem CHR$(13) over 900 small senkrechte Striche removes, or. How these at all come into being.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

The Striche are the Content of row$. you have row$ Yes quasi with Space$(10000) dimensioniert.
Wahrschscheinlich writes The function then 0-Bytes there mere and the gives then Problems.
SubStr$

gives even only whom 1. part to Chr$(13) back.

Beautiful, that it now works!
Greeting
Jörg

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