PureBoard

Code: Alles auswählen

Procedure.s StringStrip(str$)
  ; stringstripleft (unicode)
  res$=""
  For x =0 To Len(str$)*2 Step 2
    uni=PeekU(@str$+x)
    If uni>32
      res$=Mid(str$,1+(x/2))
      Break
    EndIf
  Next
  ; stringstripright (unicode)
  str$=""
  res$= ReverseString(res$)
  For x =0 To Len(res$)*2 Step 2
    uni=PeekU(@res$+x)
    If uni>32
      str$=Mid(res$,1+(x/2))
      Break
    EndIf   
  Next
  str$= ReverseString(str$)
  ProcedureReturn str$
EndProcedure

Procedure _readsection(File$,Section$)
  
  Section$=LCase(Section$)
  File = OpenFile(1, File$)
  If File
    Format.l = ReadStringFormat(1)
    If Format = #PB_Ascii Or Format = #PB_UTF8 Or Format = #PB_Unicode
      length = Lof(1)
      If length
       *mem= AllocateMemory(length)
       ReadData(1, *mem, length)
      
       TxtFile$=PeekS(*mem,length,Format)
       FreeMemory(*mem) 
       CloseFile(1)
            
       Sectfound=0
       lins$=""      
       For x=1 To CountString(TxtFile$,#LF$)+1
        lin$= StringField(TxtFile$,x,#LF$)
        Line$ = StringStrip(lin$)  ; " " und #tab entfernen

        If Left(Line$, 1) = "["
         If Sectfound=1: Break: EndIf
         Sectfound=0
        EndIf
      
        If Sectfound=1
         If Line$="": Continue: EndIf ; leere Zeile
         If Left(Line$,2) = "//": Continue: EndIf
			   If Left(Line$,2) = "##": Continue: EndIf
			  			  
			   If Right(Line$,2)=",\"
				  lins$+RTrim(Line$,"\")
				  Continue
			   EndIf
			   lins$+Line$
		
			  
 			   Debug(lins$)
			   lins$=""
			  EndIf
        If LCase(Line$) = "["+Section$+"]": Sectfound=1: EndIf
       Next
      EndIf
    EndIf
  EndIf
EndProcedure

Code: Alles auswählen

Func _readsection($sFileName,$sSection)
	local $x

	$sLine = StringSplit(FileRead($sFileName), @LF)
	$sfound_sect =0
	$slins=""	; temp var für line
	for $x=1 to $sLine[0]
		$sLine[$x]= StringStripWS($sLine[$x],3)
		if $sLine[$x]="" then ContinueLoop ; leere Zeile
		if stringleft($sline[$x],1)= "["  then $sfound_sect =0; vielleicht andere liste ? lesen stoppen
		if $sfound_sect=1 then
			
			$sLine[$x]= StringStripWS($sLine[$x],3)
			if stringleft($sLine[$x],2) = "//" then ContinueLoop
			if stringleft($sLine[$x],2) = "##" then ContinueLoop

			if StringRight($sLine[$x],2)=",\" then
				$sLine[$x]=StringTrimRight($sLine[$x],1)
				$slins=$slins&$sLine[$x]
				ContinueLoop
			endif
			$slins=$slins&$sLine[$x]

			consolewrite($slins&crlf)
			$slins=""
			
		endif
		if $sline[$x] ="["&$sSection&"]" then $sfound_sect=1
	next
endfunc

Code: Alles auswählen

Structure CharacterArray
	c.c[0]
EndStructure

Procedure.s StringStrip(*Char.CharacterArray)
	Protected Length.i = MemoryStringLength(*Char)-1
	Protected Index.i = 0
	While *Char\c[Index] <= 32
		Index + 1
	Wend
	While *Char\c[Length] <= 32
		Length - 1
	Wend
	ProcedureReturn PeekS(@*Char\c[Index], Length-Index+1)
EndProcedure


Define String.s = #TAB$+#TAB$+"  Tabs und Leerzeichen"+#TAB$+"  "
MessageRequester("","'"+String+"'"+#LF$+"'"+StringStrip(@String)+"'")