| |
| |
|
| - Página 1 - |
|
GDL | ¡Hola Profaner,
habe el problema, dass Yo en folgendem Code no hinbekomme, dass auch el Leerzeichen al Anfang uno Línea en el RTF con zurückgegeben voluntad.Tal vez blanco alguien Rat oder ne otro Solución.Gracias. 
KompilierenMarcaSeparación $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 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
beep
sendkey(reg&,8)
zeile$=RicheditGetLine(reg&)
sendkey(reg&,10)
sendstring(reg&,zeile$)
sendkey(reg&,10)
endif
wend
Servus
Georg |
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
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 ...  | 01.08.2005 ▲ |
|
| |
|
|
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.
KompilierenMarcaSeparació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 |
 |
| |
| |
| |
|
|
 | |
| |
| |
| |
|
|
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 |
|
| |
| |
| |
|
|
| 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. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
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 |
|
| |
| |
| |
|
|
| 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. | 01.08.2005 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
Jörg
Sellmeyer | Das ha me doch no Ruhe gelassen, besonders después de que no en GDL hören podría y lo una vez ausprobiert habe - natürlich con Komplettabsturz!
Aber el Solución es veces otra vez bastante simplemente:
Ein Substr$(Línea$,1,Chr$(13)) erledscht el Ganze - si Uni - oder Multicode  .
KompilierenMarcaSeparación $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 ... | 01.08.2005 ▲ |
|
| |
|
|
GDL | ¡Hola Jörg,
lo va, bin otra vez nen Schritt más.Gracias.
Verstehe zwar net, como una Entfernen de nem CHR$(13) encima 900 kleine senkrechte Striche lejos, o. como esta überhaupt entstehen.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | El Striche son el Inhalt de Línea$. Usted hast Línea$ sí quasi con Espacio$(10000) dimensioniert.
Wahrschscheinlich schreibt el Función entonces 0-Bytes como rein y el son entonces Problemas.
Substr$  son eben sólo el 1. Teil antes Chr$(13) zurück.
Schön, daß lo ahora klappt!
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 01.08.2005 ▲ |
|
| |
|
(823)
Deutsch
English
Français
Español
Italia