XProfan

31.07.2005 ▲

Tausche

volver trim(..
en
volver ..

Salve.

31.07.2005 ▲

GDL

Hola si,

habe lo en el code vermerkt, con volver ret$ kein Reagieren des Programmes mehr.

Servus
Georg

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

31.07.2005 ▲

Jörg
Sellmeyer

komisch... en me gibts con Volver Ret$ no Problemas

Win98SE - tal vez ists sí en ME veces otra vez alles anders....

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

GDL

¡Hola Jörg

si yo el código folgendermassen abändere y luego 1 + Volver eingebe siehts laut Anhang de.Ein volver ret$ ha choque a Folge, el sólo todavía con el Resetknopf darse por concluido kann.
En Anzeige en el Ventana principal con drawtext passiert dies.
Kompilieren Marca Separación

 $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

Servus
Georg

Zwischenablage01.jpg	104 kB

Hochgeladen:	01.08.2005

Ladeanzahl:
		Descargar

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

Und si veces en lugar de
Kompilieren Marca Separación

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

schreibst?

GDL

Hola si,

super dies va, obwohl Yo net weis por qué.Hängt dies con el Richedit dll Versión tal vez zusammen? Wird sin la Längenbeschränkung sonst zuviel zurückgegeben(Überschreiten el Profano-Stringlänge).
Auf todos Fälle muss Yo el Longitud entonces con ret$=left$(ret$,150)
begrenzen, como sonst o ne- Leerzeile eingefügt se.Aber lo va ahora.

Servus
Georg

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

Algo como Yo me pensamiento.

Deshalb mein Tipp.

Yo hätte me a Su Punto simplemente veces el qué vom SendMessage zurückgegeben se 1:1 en el Hexeditor angeschaut. Yo habe me pensamiento el hay tal vez auch todavía etwaige Sonderzeichen übermittelt voluntad - y el XProfan beim Volver o. en Weitergabe como algo en el Speicher verkehrt macht. Also - Trick 1.5e17 - schubse el Inhalt des Cuerdas primero por una XProfan-propio Stringmanipulationsprozedur. Zum Glätten quasi.

Salve.

Oder XPSEler:
Kompilieren Marca Separación

Apéndice: (weils Quickposten son Spaß macht.) ^ ^

Tal vez hätte el auch ya gereicht:
Kompilieren Marca Separación

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

...
//hier Su Code
...
swap ret$,ret$
volver ret$

Hm - tal vez hätte que aquí auch ya gereicht:
Kompilieren Marca Separación

...
//hier Su Code
ret$=ret$
volver ret$

Salve, IF.

GDL

Ach Yo tener doch Windows así lieb, lauter nette Sachen para Principiante, como Yo.
Yo glaube Yo costumbre ne Auszeit. Im geposteten Code gehts, en el Anwendung entonces va nichts mehr. Lo se zwar en el Richedit alles wunderbar adecuado, pero yo kann el String no mehr auswerten, como el eigentliche Information de lauter pequeño senkrechten Strichen umrahmt es.Diese verschwinden zwar en volver trim(ret$) mi Leerzeichen al Zeilenanfang aber desafortunadamente auch.

Scheinbar es no posible, el aktuelle Línea uno Richedit así auszulesen, como Línea tatsächlich es.Schade.

Servus
Georg

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

Dochdoch ists - Yo probiers morgen Vormittag igual veces.

Salve.

Michael
Wodrich

Wird el Línea tal vez en Unicode zurückgegeben (Leerzeichen gewandelt)?

Wer sabe se con Unicode de y kann veces una Filterfunktion escribir?

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.