Teilstring ersetzen

#strict

//TqmTqms kleine Stringfunktionen
//enthalten bis jetzt:

// string StrReplace(string zeichenkette,string suchMuster,string ersetzenDurch)
// string SubStr(int start,string zeichenkette,int ende)
// string func CharAt(string zeichenkette,int i)
// string func GetBuchstabe(int zahl)




   //string StrReplace(string zeichenkette,string suchMuster,string ersetzenDurch)by TqmTqm
   //die funktion StrReplace durchsucht die gesamte "zeichenkette" nach dem "suchMuster" und ersetzt
   //dieses durch "ersetzeDurch" und gibt dann den modifizierten string zurück

func StrReplace(string zeichenkette,string suchMuster,string ersetzenDurch){
   for (var i = 0;i<GetLength(zeichenkette);i++){
      if (suchMuster eq SubStr(i,zeichenkette,GetLength(suchMuster)+i))
         zeichenkette = Format("%s%s%s",SubStr(0,zeichenkette,i),ersetzenDurch,SubStr(GetLength(suchMuster)+i,zeichenkette,GetLength(zeichenkette)));   
   }
   return(zeichenkette);
}

   //string SubStr(int start,string zeichenkette, int ende) by TqmTqm
   //die funktion SubString erzeugt aus der übergebenden zeichenkette
   //einen teilstring. start makiert dabei das erste zeichen was angezeigt werden soll
   //um beispielsweise aus "Clonk" "lonk" zumachen müsste man SubStr(1,"Clonk") aufrufen
   //bei start 0 würde wieder Clonk herauskommen. Außerdem gibt es noch optional den 'ende'
   //parameter, damit kann man das ende des neuen strings festlegen
   //SubStr(1,"Hamburger",4) erzeugt beispielsweise "amb"
   //weitere stringfunktionen sind in arbeit


func SubStr(int start,string zeichenkette,int ende){

   var neueZeichenkette = "";
   for (var i = 0;i<GetLength(zeichenkette) && (i < ende || ende == 0);i++){
      if (i >= start)
         neueZeichenkette = Format("%s%s",neueZeichenkette,GetBuchstabe(GetChar(zeichenkette,i)));
   }
   return(neueZeichenkette);
}

   //string CharAt(string zeichenkette,int zahl) by TqmTqm
   //die funktion CharAt ist wie GetChar, blos das sie
   //statt dem int wert den wirklichen buchstaben zurückgibt


func CharAt(string zeichenkette,int i){
   return (GetBuchstabe(GetChar(zeichenkette,i)));
}

   //string GetBuchstabe(int zahl) by TqmTqm
   //die funktion GetBuchstabe erzeugt aus einer übergebenen zahl den druckbaren ascii buchstabe

func GetBuchstabe(int zahl){
   var asciiArray = [" ","?","!","''","#","$","%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","@","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","[","Backslash","]","^","`","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","{","|","}","~"];
   return(asciiArray[zahl-32]);
}