Buchstaben zählen (Windows only)

[Falko]

Code: Alles auswählen

OpenWindow(0,100,100,200,100,"Wie lang ist dieser Text?")
hdc.l=GetDC_(WindowID(0))
Lang.l=GetWindowTextLength_(WindowID(0))
lpRect.RECT
lpRect\left=0
lpRect\top=40
lpRect\right=200
lpRect\bottom=300
DrawText_(hdc,"Der Text ist :"+Str(Lang)+" Zeichen lang",30,lpRect,#DT_CENTER	)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
ReleaseDC_(WindowID(0),hdc)

[RSBasic]

Wenn man die Länge des Fenster-Titels ermitteln möchte, dann kann man den Code, den du geschrieben hast, verwenden.

Aber um allgemein die Anzahl der Zeichen einer Zeichenkette zu ermitteln, dann lieber so:

Code: Alles auswählen

EnableExplicit

Define String$

String$="Test-String"
MessageRequester("","Zeichenkette: "+String$+Chr(13)+"Anzahl der Zeichen: "+Str(lstrlen_(String$)),0)

\\Edit:
Klar, es gibt dafür Len()^^, aber ist ja nur nen API-Beispiel.

[Falko]

--> Wenn man die Länge des Fenster-Titels ermitteln möchte, dann kann man den Code, den du geschrieben hast, verwenden

Das meinte ich (Windows only)
Und nicht String only

Gruß Falko