PureBoard

Code: Alles auswählen

Debug StringField("D:\INFORMENT\[TRAILER]\00 Schneider Im Wendezeichen der Eidechse (2013)\Folder.jpg", CountString("D:\INFORMENT\[TRAILER]\00 Schneider Im Wendezeichen der Eidechse (2013)\Folder.jpg", "\"), "\")

Code: Alles auswählen

Debug GetFilePart(RTrim(GetPathPart("D:\INFORMENT\[TRAILER]\00 Schneider Im Wendezeichen der Eidechse (2013)\Folder.jpg"), "\"))

Code: Alles auswählen

;-TOP

; Comment : SplitString to list with option double-quotes
; Author  : mk-soft
; Version : v1.03
; Created : 03.11.2017
; Updated : 
; Link GR : 
; Link EN : 

; OS      : All

; ***************************************************************************************

Procedure SplitString(String.s, Separator.s, List Result.s(), DQuote = #False)
  Protected *String.character, *Separator.character
  Protected *Start, *End, exit, lock, do, dq, len
  
  ClearList(Result())
  *String = @String
  *Separator = @Separator
  *Start = *String
  *End = *String
  Repeat
    If *String\c = 0
      exit = #True
      do = #True
      If Not dq
        *End = *String
      EndIf
    Else
      If DQuote And *String\c = '"'
        If Not lock
          lock = #True
          dq = #True
          *Start = *String + SizeOf(character)
        Else
          lock = #False
          *End = *String
        EndIf
      EndIf
      If *String\c = *Separator\c And Not lock
        do = #True
        If Not dq
          *End = *String
        EndIf
      EndIf
    EndIf
    If do
      AddElement(Result()) 
      len = (*End - *Start) / SizeOf(character)
      If Len > 0
        Result() = PeekS(*Start, len) 
      EndIf
      *Start = *String + SizeOf(character)
      do = #False
      dq = #False
    EndIf
    *String + SizeOf(character)
  Until exit
  ProcedureReturn ListSize(Result())
EndProcedure

; ***************************************************************************************

;-Test

CompilerIf #PB_Compiler_IsMainFile
  
  Global NewList r1.s()
  Global text.s = "0;1x;2xx;'Text with separator (;)';4xxxx;5xxxxx;'Text with linefeed " + #LF$ + "and separator (;)';End"
  text = ReplaceString(text, "'", #DQUOTE$)
  ;text = "Hello World"
  Debug "Text = " + text
  Debug "Count = " + SplitString(text, ";", r1(), #True)
  ForEach r1()
    Debug "#"+r1()+"#"
  Next
  
  text = "D:\INFORMENT\[TRAILER]\00 Schneider Im Wendezeichen der Eidechse (2013)\Folder.jpg"
  Debug "Count = " + SplitString(text, "\", r1())
  ForEach r1()
    Debug "#"+r1()+"#"
  Next
  
CompilerEndIf