PureBasic Forums - English

Code: Select all

 ScintillaSendMessage(SciID, #SCI_SETANCHOR, StartSearch)
 ScintillaSendMessage(SciID, #SCI_SEARCHANCHOR)
 Start= ScintillaSendMessage(SciID, #SCI_SEARCHNEXT, 0, @Search)
 

Code: Select all

Procedure ScintillaCallBack(Gadget, *scinotify.SCNotification)
EndProcedure

OpenWindow(0, 0, 0, 320, 240, "Scintilla", #PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), @ScintillaCallBack())
ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 1, #SC_MARGIN_NUMBER)

; Set example text (PB 5.50 or newer)
*UTF8 = UTF8("sum = this.value + 5 + value + blabl VALUE sdfgdgdf vaLue;")
ScintillaSendMessage(0, #SCI_SETTEXT, 0, *UTF8)
FreeMemory(*UTF8)
#StyleBleu = 1

Procedure SearchText(SciID, Search.s, StartSearch)

 LgText = ScintillaSendMessage(SciID, #SCI_GETLENGTH)
 ScintillaSendMessage(SciID, #SCI_SETTARGETSTART, StartSearch)
 ScintillaSendMessage(SciID, #SCI_SETTARGETEND, LgText)
 Start = ScintillaSendMessage(SciID, #SCI_SEARCHNEXT, 0, @Search)
 
 ProcedureReturn Start
 
EndProcedure

Text$ = "value"

For i = 1 To 3
 Position = SearchText(0, Text$, Position)
 Debug Position
 Position + 1
Next 

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

Procedure ScintillaCallBack(Gadget, *scinotify.SCNotification)
EndProcedure

OpenWindow(0, 0, 0, 640, 240, "Scintilla", #PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), @ScintillaCallBack())
ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 1, #SC_MARGIN_NUMBER)

; Set example text (PB 5.50 or newer)
*UTF8 = UTF8("sum = this.value + 5 + value + blabl VALUE sdfgdgdf vaLue;")
ScintillaSendMessage(0, #SCI_SETTEXT, 0, *UTF8)
FreeMemory(*UTF8)
#StyleBleu = 1


Procedure SearchText(SciID, Search.s)
  LgText = ScintillaSendMessage(SciID, #SCI_GETLENGTH)
  byteLen = StringByteLength(search, #PB_UTF8)
  *mem = AllocateMemory(byteLen + 1)
  PokeS(*mem, search, -1, #PB_UTF8)
  pos = ScintillaSendMessage(SciID, #SCI_GETSELECTIONEND)
  ScintillaSendMessage(SciID, #SCI_SETTARGETSTART, pos)
  ScintillaSendMessage(SciID, #SCI_SETTARGETEND, LgText)
  result = ScintillaSendMessage(SciID, #SCI_SEARCHINTARGET, byteLen, *mem)
  If result <> -1
     ScintillaSendMessage(SciID, #SCI_SETSEL, ScintillaSendMessage(SciID, #SCI_GETTARGETSTART), ScintillaSendMessage(SciID, #SCI_GETTARGETEND))
  EndIf
 ProcedureReturn result
 
EndProcedure

Text$ = "value"

Repeat
  Position = SearchText(0, Text$)
  Debug position
Until Position = -1

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

Procedure ScintillaCallBack(Gadget, *scinotify.SCNotification)
EndProcedure

OpenWindow(0, 0, 0, 640, 240, "Scintilla", #PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), @ScintillaCallBack())
ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 1, #SC_MARGIN_NUMBER)

; Set example text (PB 5.50 or newer)
*UTF8 = UTF8("sum = this.value + 5 + value + blabl VALUE sdfgdgdf vaLue;")
ScintillaSendMessage(0, #SCI_SETTEXT, 0, *UTF8)
FreeMemory(*UTF8)

Procedure SearchText(SciID, Search.s, Position)

  LgText = ScintillaSendMessage(SciID, #SCI_GETLENGTH)
  *mem = UTF8(Search)
  ScintillaSendMessage(SciID, #SCI_SETTARGETSTART, Position)
  ScintillaSendMessage(SciID, #SCI_SETTARGETEND, LgText)
  result = ScintillaSendMessage(SciID, #SCI_SEARCHINTARGET, MemoryStringLength(*mem, #PB_UTF8|#PB_ByteLength), *mem)
  FreeMemory(*mem)
  ProcedureReturn result
 
EndProcedure

Debug SearchText(0, "value", 12)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow