Seite 1 von 1
Buchstaben zählen (Windows only)
Verfasst: 14.02.2011 23:05
von 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)
Re: Buchstaben zählen (Windows only)
Verfasst: 14.02.2011 23:10
von 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)
Klar, es gibt dafür Len()^^, aber ist ja nur nen API-Beispiel.
Re: Buchstaben zählen (Windows only)
Verfasst: 14.02.2011 23:14
von 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