PureBasic Forums - English

Code: Select all

EnableExplicit 

Enumeration ReturnMode
  #FStr_ReturnCharNo
  #FStr_ReturnPointer
EndEnumeration

Prototype.i FindCharReverse(String$, cSearch.c, cfgReturnValue = #FStr_ReturnCharNo)
Global FindCharReverse.FindCharReverse                  ; define Prototype-Handler for FindCharReverse


Procedure.i _FindCharReverse(*String, cSearch.c, cfgReturnValue = #FStr_ReturnCharNo, *outEndOfString.Integer=0)
; ============================================================================
; NAME: FindCharReverse
; DESC: !PointerVersion! use it as ProtoType FindCharReverse()
; DESC: Finds the first psoition of Char from reverse
; DESC: 
; VAR(*String) : Pointer to the String
; VAR(cSearch) : Character to find
; VAR(cfgReturnValue) : #FStr_ReturnCharNo=0 => Returns Charposition 1..n or 0
;                       #FStr_ReturnPointer=1 => Returns address of Char or 0
; VAR(*outEndOfString=0) : Optional Pointer to return the address of EndOfString/NullChar
; RET.i : Character Position 1..n of cSearch or Pointer to cSearch  
; ============================================================================
  
  Protected *LastChar
  Protected *pChar.Character = *String
  
    
    If Not *String
      ProcedureReturn 0
    EndIf
    
    While *pChar\c
      If *pChar\c = cSearch
        *LastChar = *pChar
      EndIf
      *pChar + SizeOf(Character)
    Wend
    
    If *outEndOfString
      *outEndOfString\i = *pChar
    EndIf
    
    If cfgReturnValue =  #FStr_ReturnPointer Or *LastChar = 0
      ProcedureReturn *LastChar
    Else
      ProcedureReturn (*LastChar - *pChar) / SizeOf(Character) + 1
    EndIf
EndProcedure
FindCharReverse = @_FindCharReverse()   ; Bind ProcedureAddress to the PrototypeHandler
  
Define File$ = "c:\test\file.john doe"
Define File$ = "c:\test\file.dat"

Define Ext$, Full$
Define *Dot

*Dot = FindCharReverse(File$, '.', #FStr_ReturnPointer)
Ext$ = PeekS(*Dot+SizeOf(Character))
Full$ = PeekS(@File$)
Debug Ext$
Debug Full$
Debug File$
  

Code: Select all

*Dot = _FindCharReverse(@File$, '.', #FStr_ReturnPointer)

Code: Select all

Prototype.i FindCharReverse(String$, cSearch.c, cfgReturnValue = #FStr_ReturnCharNo,) ; wrong
Prototype.i FindCharReverse(String$, cSearch.c, cfgReturnValue = #FStr_ReturnCharNo, *outEndOfString.Integer=0) ; correct!