XProfan

- Página 1 -

Nico
Madysa

Oh, natürlich zeigt él dir nichts a. SetWindowTextW es una API-Función y kann con XProfan-Cuerdas nichts anfangen; uno muss ihm el Adresse en el Cuerdas überweisen:

Var static&=CreateW("STATIC","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
var a$ = utf("Test ") + chrw($401) + utf(" Test")
SetWindowTextW(static&,Addr(a$))

So geht's.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

29.05.2012 ▲

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Hoch, Yo hahm a el Stephan el Präkompi en el Einsatz ha ^ ^

Stephan
Sonneborn

Nico Madysa (29.05.12)

So geht's.

Sí, así geht's. *sichandenkopfschlägt*
Gracias Nico, para Su Ayuda!

Aber nun el Ausbaustufe:
Yo habe Textos (z.B. de Excel), el mentira así antes: "Отмена"
Como bekomme Yo el nun como texto en un Unicode-Control adecuado?
Man debería doch zuerst una vez herausbekommen, welches Signo es el porque nun, qué como adecuado se. Ein ORD() liefert natürlich auch otra vez sólo Pagar zwischen 0...255. Gibts a una entsprechendes OrdW()?
Dann podría uno tal vez cada String zeichenweise umsetzen en el UniCode-Formato y luego como Genazes otra vez Mostrar.
(Falls en el Posting sólo ?????? adecuado voluntad: In mi ersten Contribución es el russische Begriff)

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Ordw como Nuevo: [...]

nproc ordw(cadena s){

    long m=dim(2)
    char m&,0=left$(s$+"\z\z",2)
    long wc=word(m,0)
    disponer(m)
    volver wc

}

o.:

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

proc ordw

    parámetros s$
    declarar m#
    dim m#,2
    char m#,0=left$(s$+"\z\z",2)
    var wc&=word(m#,0)
    disponer m#
    volver wc&

ENDPROC

[OFFTOPIC]
Stephan Sonneborn (30.05.12)

(Falls en el Posting sólo ?????? adecuado voluntad: In mi ersten Contribución es el russische Begriff)

Scheinbar una Bug meiner Post Previsualización -

schaue Yo en Gelegenheit a. [/OFFTOPIC]

Nico
Madysa

Auf dieser Página [...]

findest du así bastante todos Kodierungsumwandlungen, el dein Herz begehren kann, como NProcs; auch Widechar-Varianten de Chr$() y Ord() son esta.

Yo hoffe, lo bereitet dir no Schwierigkeiten, ellos en un XPSE-freie Syntax a traducir.

Aber Yo sehe gerade no, por qué du OrdW brauchen solltest.
Dem Widechar-Control, el con CreateW erstellt worden es, müsstest du sólo el Texto por SetWindowTextW zuweisen.
Wenn el Texto, el du zuweisen willst, ya widecharkodiert es (also 2 Bytes pro Signo), entonces hay esta gar no Hindernisse.

Oder con otro Worten: Yo sehe gerade no, wo dein Problema liegt.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

Stephan
Sonneborn

Nico Madysa (30.05.12)

Oder con otro Worten: Yo sehe gerade no, wo dein Problema liegt.

Mein Problema liegt hierin:
Füg veces esta beiden Zeilen en Su Quellcode una:

var b$ = "укепщьаь вввапа"
SetWindowTextW(static&,addr(b$))

En me voluntad entonces chinesische (oder qué De todos modos) Signo adecuado...

russichertext.jpg	41 kB

Hochgeladen:	31.05.2012

Ladeanzahl:
		Descargar

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

31.05.2012 ▲

Yo habe Usted hier algo "hingeschmiert" qué el Inhalt uno con Widechar-Chars-
gefüllten Zwischenablage como CHR$(...-Sequenz en el Zwischenablage ablegt.

So kannst Usted z.B.: укепщьаь

en el Zwischenablage nehmen y luego el Programa starten y luego kommt como:

chr$(67)+chr$(4)+chr$(58)+chr$(4)+chr$(53)+chr$(4)+chr$(63)+chr$(4)+chr$(73)+chr$(4)+chr$(76)+chr$(4)+chr$(48)+chr$(4)+chr$(76)+chr$(4)

en fuera.

Das wiederum como Valor para b$ zeigt el Gewünschte.

Descargar
externer Descargar

wideclipdta2chrclipdta.exe

 {$cleq}
 {$compiler c:\XProfan12}
 {$runtime c:\XProfan12}
decimals 0
cls
casenot OpenClipboard(null) : end
long mem=GetClipboardData(cf_unicodeText)
casenot mem : end
long c,b
cadena s

do{

    b=byte(mem,c)
    casenot b : casenot byte(mem,c+1) : romper
    s=s+"chr$("+str$(b)+")+"
    c++

}

closeClipboard()
caso s=="" : end
clearclip
putclip mid$(s,1,len(s)-1)
end

1.247 kB

Hochgeladen:

31.05.2012

zwischenablage02.png Prevista

7 kB

Hochgeladen:

31.05.2012

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

31.05.2012 ▲

Stephan Sonneborn (31.05.12)

- Página 2 -

Nico
Madysa

En me voluntad entonces chinesische (oder qué De todos modos) Signo adecuado...

Ach así, klar. Das muss schiefgehen. XProfan es sí sicherlich no dafür ausgelegt, dass el Ver código fuente Unicode-Signo enthält. Wenn du deinen Unicodetext aber woandersher nimmst (Zwischenablage oder una UTF-kodierte Textdatei), entonces debería lo no Problemas geben.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

31.05.2012 ▲

Stephan
Sonneborn

Nico Madysa (31.05.12)

Wenn du deinen Unicodetext aber woandersher nimmst (Zwischenablage oder una UTF-kodierte Textdatei), entonces debería lo no Problemas geben.

Yo el Textos en uno DLL.
Das Auslesen con EXSTRING$() scheidet por lo tanto de.

Pensé, dass LoadStringW() weiterhilft:

DEF LoadStringW(4)      !"USER32", "LoadStringW"

y luego

'************************************************************************************************
' Textos de DLL lesen                                                                           *
'************************************************************************************************

PROC Read_Texts

    DECLARE i%, o%, k%, Adresse%
    DECLARE Buffer#
    DIM Buffer#,4097
    '+----------------------------------------------------------------------------------------------+
    '  Logindialog: (Adresse 100)
    '+----------------------------------------------------------------------------------------------+
    Adresse%  = 100
    LogTitle$ = EXTSTRING$(SMEDLL&, Adresse%)
    i% = 1

    WHILELOOP 1,3,1

        'LogButton$[i%] = EXTSTRING$(SMEDLL&, Adresse%+&LOOP)
        CLEAR Buffer#
        LoadStringW(SMEDLL&, Adresse%+&LOOP, Buffer#, 4097)
        LogButton$[i%] = STRINGW$(Buffer#,0)
        INC i%

    WEND

    DISPOSE Buffer#

ENDPROC

Leider liefert el Ergebnis en el anhängenden Bild.

russichertext2.jpg Prevista

33 kB

Kurzbeschreibung:

Eingabedialog

Hochgeladen:

01.06.2012

russichertext3.jpg Prevista

53 kB

Kurzbeschreibung:

Eintrag en DLL

Hochgeladen:

01.06.2012

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

01.06.2012 ▲

Wieviel son LoadStringW zurück?

Imho en lugar de:

LogButton$[i%] = STRINGW$(Buffer#,0)

más:

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

count&=LoadStringW(...
LogButton$[i%] = char$(Buffer#,0,count&)

No sicher bin Yo si vlt. incluso LogButton$[i%] = char$(Buffer#,0,count&*2) heissen

debería como imho el Documentación dazu no eindeutig es.

01.06.2012 ▲

Stephan
Sonneborn

IF (01.06.12)

Wieviel son LoadStringW zurück?

En diesem Texto "OK ываысаи" bringt lo 10 zurück. Hay auch 10 Signo.

IF (01.06.12)

Imho en lugar de:

LogButton$ = STRINGW$(Buffer#,0)

más:

count&=LoadStringW(...

LogButton$ = char$(Buffer#,0,count&)

No sicher bin Yo si vlt. incluso LogButton$ = char$(Buffer#,0,count&*2) heissen debería como imho el Documentación dazu no eindeutig es.

Sombrero desafortunadamente beides nichts gebracht...

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

11.07.2012 ▲

Yo habe ahora algo el Faden perdido.

Wenn LoadStringW el korrekte Zeichenanzahl liefert entonces simplemente: