XProfan

31.07.2005 ▲

- page 1 -

Jörg
Sellmeyer

komisch... chez mir gibts avec Retour Ret$ aucun Probleme

Win98SE - peut-être ists oui chez ME la fois wieder alles anders....

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

GDL

allô Jörg

si Je l' Code folgendermassen abändere et ensuite 1 + Retour eingebe siehts le son Anhang aus.un return ret$ hat une Absturz zur Folge, qui seulement encore avec dem Resetknopf finissez volonté peux.
chez Anzeige im Hauptfenster avec drawtext passiert ca.
Kompilieren Marque Séparation

 $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

salut
Georg

Zwischenablage01.jpg	104 kB

Hochgeladen:	01.08.2005

Downloadcounter:
		Download

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

et si Du la fois statt
Kompilieren Marque Séparation

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

écris?

GDL

allô iF,

super ca allez, quoique je net weis pourquoi.Hängt ca avec qui Richedit dll Version peut-être zusammen? Wird sans qui Längenbeschränkung sonst zuviel retour(Überschreiten qui Profan-Stringlänge).
sur alle Fälle muss je qui Longueur ensuite encore avec ret$=left$(ret$,150)
begrenzen, là sonst encore ne Leerzeile eingefügt wird.mais und dir maintenant.

salut
Georg

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

Quelque chose comme habe je mir gedacht.

c'est pourquoi mon Tipp.

je hätte mir à Votre Stelle simple la fois cela quoi vom SendMessage retour wird 1:1 im Hexeditor angeschaut. j'ai mir gedacht cela là peut-être aussi encore etwaige Sonderzeichen übermittelt volonté - et cela XProfan beim Retour bzw. chez qui Weitergabe là quelque chose im grenier verkehrt pouvoir. alors - Trick 1.5e17 - schubse den le contenu des Cordes erstmal par une XProfan-eigene Stringmanipulationsprozedur. Zum Glätten quasi.

Salve.

ou bien XPSEler:
Kompilieren Marque Séparation

Nachtrag: (weils Quickposten son Amusement pouvoir.) ^ ^

peut-être hätte cela aussi déjà gereicht:
Kompilieren Marque Séparation

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

...
//ici Dein Code
...
swap ret$,ret$
return ret$

Hm - peut-être hätte que voici aussi déjà gereicht:
Kompilieren Marque Séparation

...
//ici Dein Code
ret$=ret$
return ret$

Salve, iF.

GDL

ah je hab doch Windows so lieb, lauter gentille Sachen pour Débutant, so comment je.
je crois je coutume ne Auszeit. Im geposteten Code gehts, dans qui Anwendung ensuite allez rien plus. Es wird zwar im Richedit alles wunderbar angezeigt, mais je peux den String pas plus auswerten, là qui eigentliche information de lauter kleinen vertical Strichen umrahmt ist.cet verschwinden zwar chez return bordure(ret$) mon Leerzeichen am Zeilenanfang mais malheureusement aussi.

Scheinbar ist es pas possible, qui aktuelle la ligne eines Richedit so auszulesen, comment qui la ligne réellement ist.tant pis.

salut
Georg

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

Dochdoch ists - je probiers demain Vormittag juste la fois.

Salve.

Michael
Wodrich

Wird qui la ligne peut-être dans Unicode retour (Leerzeichen gewandelt)?

qui kennt sich avec Unicode aus et peux la fois une Filterfunktion écrivons?

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

- page 2 -

Jörg
Sellmeyer

cela hat mir doch aucun Ruhe gelassen, besonders après que je pas sur GDL écouter konnte et es einmal ausprobiert habe - naturellement avec Komplettabsturz!

mais qui Solution ist la fois wieder entier simple:
un Substr$(la ligne$,1,Chr$(13)) erledscht cela Ganze - si Uni - ou bien Multicode

.
Kompilieren Marque Séparation

 $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

allô Jörg,

und dir, suis wieder nen Schritt plus.merci.
Verstehe zwar net, comment un Entfernen de nem CHR$(13) sur 900 kleine senkrechte Striche entfernt, bzw. comment cet überhaupt entstehen.

salut
Georg

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

Jörg
Sellmeyer

qui Striche sommes qui le contenu de la ligne$. tu as la ligne$ oui quasi avec Space$(10000) dimensioniert.
Wahrschscheinlich écrit qui Funktion ensuite 0-Bytes là rein et cela gibt ensuite Probleme.
Substr$

gibt plan seulement den 1. partie avant Chr$(13) zurück.

joli, qui es maintenant klappt!
Salut
Jörg

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