PureBasic Forums - English

Code: Select all

Procedure.s StringFieldSet(Liste.s,Position.l,Trenner.s,Wert.s)
   Protected a.l, i.l, tmp.s
   a=CountString(Liste,Trenner)
   If (a+1)<Position:ProcedureReturn Liste:EndIf
   Dim dummy.s(a)
   ;Zerlegen
   For i=1 To (a+1)
       If i=Position
          dummy(i-1)=Wert
       Else
          dummy(i-1)=StringField(Liste,i,Trenner)
       EndIf
   Next
   ;Wieder zusammenbauen
   tmp=""
   For i=0 To (a-1)
       tmp=tmp+dummy(i)+";"
   Next
   tmp=tmp+dummy(a)
   ReDim dummy.s(0)
   ProcedureReturn tmp
EndProcedure