Gui einfärbung,,, textareatext

Übersicht

BlitzBasic

BlitzPlus

	Mathias-Kwiatkowski Betreff: Gui einfärbung,,, textareatext	Di, Jan 03, 2006 17:53 Antworten mit Zitat
hi habe ein neues problem, hoffe finde schnell abhilfe... dieses mal gehts darum ein wort einzufärben, normalerweise nicht schwirig, aber diese wort kann 100000 benutzt werden, und dann soll auch nur das wort rot eingefärbt werden! naja so habe ich angefangen: nur was ist falsch? Code: [AUSKLAPPEN] [EINKLAPPEN] window = CreateWindow("Fenster",100,100,600,400,Desktop(),3) textarea = CreateTextArea(0,0,ClientWidth(window),ClientHeight(window),window) Repeat If WaitEvent()=$803 Then End ;farbe rot <- r=255 g=0 b=0 strg$=TextAreaText$(textarea) temp=Len(TextAreaText$(textarea)) For x=0 To Len(TextAreaText$(textarea)) If Instr(Lower$(TextAreaText$(textarea)),"buttonstate") Then FormatTextAreaText textarea,r,g,b,1,temp-11+x,11 EndIf Next Forever

Mathias-Kwiatkowski

Betreff: Gui einfärbung,,, textareatext

Di, Jan 03, 2006 17:53
Antworten mit Zitat

hi habe ein neues problem, hoffe finde schnell abhilfe...
dieses mal gehts darum ein wort einzufärben, normalerweise nicht schwirig, aber diese wort kann 100000 benutzt werden, und dann soll auch nur das wort rot eingefärbt werden!

naja so habe ich angefangen: nur was ist falsch?
Code: [AUSKLAPPEN]

window = CreateWindow("Fenster",100,100,600,400,Desktop(),3)
textarea = CreateTextArea(0,0,ClientWidth(window),ClientHeight(window),window)

Repeat
If WaitEvent()=$803 Then End

;farbe rot <-
r=255
g=0
b=0

strg$=TextAreaText$(textarea)
temp=Len(TextAreaText$(textarea))

For x=0 To Len(TextAreaText$(textarea))
If Instr(Lower$(TextAreaText$(textarea)),"buttonstate") Then
FormatTextAreaText textarea,r,g,b,1,temp-11+x,11
EndIf
Next

Forever

	simi	Di, Jan 03, 2006 20:24 Antworten mit Zitat
hi.... ich denke mal, du gehst das problem ein bisschen falsch an.... instr gibt dir nämlich schön die fundstelle deines Wortes zurück.... jetzt kannst du nur von dort her einfärben..... => pos = instr(text,suchwort) FormatTextAreaText textare,.....,pos,len(suchwort) so sollte das eigentlich gehen Jetzt willst du ja alle suchwörter finden.... dafür hat instr einen 3. Parameter. mit diesem kannst du angeben, ab welcher position du dein text finden willst.... Dort kannst du dann die letzte Fundstelle plus ein Zeihcen weiter (sonst wird immer das gleiche Wort gefunden) angeben..... Mit diesem Wissen sollte deine Suchfunktion schon halb funktionieren..... cu simi

simi

Di, Jan 03, 2006 20:24
Antworten mit Zitat

hi....

ich denke mal, du gehst das problem ein bisschen falsch an.... Wink

instr gibt dir nämlich schön die fundstelle deines Wortes zurück.... jetzt kannst du nur von dort her einfärben..... =>

pos = instr(text,suchwort)
FormatTextAreaText textare,.....,pos,len(suchwort)

so sollte das eigentlich gehen Wink

Jetzt willst du ja alle suchwörter finden.... dafür hat instr einen 3. Parameter. mit diesem kannst du angeben, ab welcher position du dein text finden willst.... Dort kannst du dann die letzte Fundstelle plus ein Zeihcen weiter (sonst wird immer das gleiche Wort gefunden) angeben.....

Mit diesem Wissen sollte deine Suchfunktion schon halb funktionieren.....

cu simi