PureBoard

Code: Alles auswählen

DeclareModule Quotes
  #STR_CHAR_DoubleQuote = 34    ; "
  #STR_CHAR_SingleQuote = 39    ; '
  
  
  Declare.s AddQuotes_Classic(String$, cQuote.c=#STR_CHAR_DoubleQuote)

  Prototype.s AddQuotes(String$, cQuote.c=#STR_CHAR_DoubleQuote)
  ; Declare.s _AddQuotes_(*String, cQuote.c=#STR_CHAR_DoubleQuote) ; _AddQotes_ nur noch Private
  Define MyAddQuotes.AddQuotes  ; = @_AddQuotes_() ; die Adresszuweisung muss in's Modul
  Define OhterAddQuotes.AddQuotes ; nur um zu sehen ob das geht! 
EndDeclareModule


Module Quotes

  Procedure.s AddQuotes_Classic(String$, cQuote.c=#STR_CHAR_DoubleQuote)
   ; ASCII-34 = ", ASCII-39 = '
    
   ProcedureReturn Chr(cQuote) + PeekS(@String$) + Chr(cQuote)
   ;ProcedureReturn Chr(cQuote) + String$ + Chr(cQuote)      
   EndProcedure
    
  Procedure.s _AddQuotes_(*String, cQuote.c=#STR_CHAR_DoubleQuote)  ; 
    ; ASCII-34 = ", ASCII-39 = '
    ProcedureReturn Chr(cQuote) + PeekS(*String) + Chr(cQuote)
  EndProcedure
  
  MyAddQuotes = @_AddQuotes_()    ; die Adresszuweisung im Modul und braucht _AddQuotes_ nicht mehr Public
EndModule

UseModule Quotes
Define s$, N, K, t_C, t_P, t_m

N = 100000  
s$ = "Ich bin ein String und war ein String"

t_C = ElapsedMilliseconds()
For K=0 To N
  res$ = AddQuotes_Classic(s$)
Next
t_C = ElapsedMilliseconds()-t_C
Debug "Classic : " + t_C + "ms"
Debug res$
Debug ""

t_P = ElapsedMilliseconds()
For K=0 To N
  res$ =  MyAddQuotes(s$)
Next
t_P = ElapsedMilliseconds()-t_P
Debug "Prototype : " + t_P + "ms"
Debug res$
Debug ""


MessageRequester("Ergebnis", "Classic : " + t_C + "ms" + #CRLF$ + "Prototype : " + t_P )

Code: Alles auswählen

DeclareModule STR
  Prototype.i ReplaceChar(String$, cSearch.c, cReplace.c) ; ProtoType-Function for ReplaceChar
  Global ReplaceChar.ReplaceChar                 ; define Prototype-Handler for CountChar
  ;Define ReplaceChar.ReplaceChar                 ; define Prototype-Handler for CountChar

  #STR_CharSize=2
EndDeclareModule

Module STR

 Procedure.i _ReplaceChar(*String, cSearch.c, cReplace.c)
  ; ============================================================================
  ; NAME: _ReplaceChar
  ; DESC: !PointerVersion! use it as ProtoType ReplaceChar()
  ; DESC: Replace a Character in a String with an other Character
  ; DESC: To replace all ',' with a '.' use : ReplaceChar(@MyString, ',', '.')
  ; DESC: This a replacement for ReplaceString() only for a single Char
  ; DESC: and with direct *String Access. This is 2-3 tiems faster than
  ; DESC: ReplaceString().
  ; DESC: To UCase a single char use ReplaceChar(MyString, 'e', 'E')
  ; VAR(String$) : The String
  ; VAR(cSearch) : Character to search for and replace
  ; VAR(cReplace): the Replace Charcter (new Character)
  ; VAR(*RetVal_NoOfChars.Integer): Place here a Pointer to a PB Integer-Struct
  ;                               to get back the NoOfCharsFound/Replaced
  ; RET.s : The new String
  ; ============================================================================
    Protected *char.Character   ; Pointer to a virutal Char-Struct
    Protected N
    
    *char = *String         
    If *char    
      While *char\c               ; until end of String
        If *char\c =  cSearch
          *char\c = cReplace    ; replace the Char
          N + 1
        EndIf
        *char + #STR_CharSize   ; Index to next Char
      Wend
    EndIf
    ProcedureReturn N
  EndProcedure
  ReplaceChar = @_ReplaceChar()     ; Bind ProcedureAdress to the PrototypeHandler
  
EndModule


UseModule STR
EnableExplicit 

Procedure ShowIt()
  Define s$ = "Hallo Hallo"
  Define N
  Debug s$
  N = ReplaceChar(s$,'a', 'e')          ; mit Golbal ReplaceChar.ReplaceChar ; geht das immer
  ; N = STR::ReplaceChar(s$,'a', 'e')   ; mit Define ReplaceChar.ReplaceChar ; muss Modul vorgestellt werden
  Debug "Ersetzungen = " + N + " : " + s$
  
  N = ReplaceChar(s$,'H', 'B')
  Debug "Ersetzungen = " + N + " : " + s$
EndProcedure

ShowIt()

Code: Alles auswählen

#STR_CharSize=2    ; <--> #STR_CharSize=SizeOf(CHARACTER) 

Code: Alles auswählen

DeclareModule abc
  ; Kommentare einfügen oder entfernen um mit UseModule zu testen
  ; Global hallo_welt = 10
  Declare GetHallo()
EndDeclareModule

Module abc
  Global hallo_welt = 123
  
  Procedure GetHallo()
    ProcedureReturn hallo_welt
  EndProcedure
  
EndModule

;Debug abc::hallo_welt
Debug abc::GetHallo()
UseModule abc
Debug hallo_welt
Debug GetHallo()