Modul:Str

```
 local Str = {}

```

```
   function Str.len(frame)
     return mw.ustring.len(frame.args[1])
   end

```

```
   function Str.left(frame)
     local idx = tonumber(frame.args[2])
     if (not idx) or idx < 1 then
       return ""
     end
     return mw.ustring.sub(frame.args[1],1,idx)
   end

```

```
   function Str.right(frame)
     local laenge = tonumber(frame.args[2])
     if (not laenge) or laenge < 1 then
       return ""
     else
     laenge = - laenge
     end
     return mw.ustring.sub(frame.args[1],laenge,-1)
   end

```

```
   function Str.index(frame)
     local idx = tonumber(frame.args[2])
     if (not idx) or idx < 1 then
       return ""
     end
     return mw.ustring.sub(frame.args[1],idx,idx)
   end

```

```
   function Str.sub(frame)
     local von = tonumber(frame.args[2])
     local laenge = tonumber(frame.args[3])
     if (not von) or (not laenge) then
       return ""
     end
     if (von < 1) then
       von = 1
     end
     local bis = von + laenge - 1
     if (bis < von) then
       return ""
     end
     return mw.ustring.sub(frame.args[1],von,bis)
   end

```

```
   function Str.crop(frame)
     local s = frame.args[1]
     local cut = tonumber(frame.args[2])
     local laenge =  mw.ustring.len(s)
     if (not cut) or (cut < 1) then
       return s
     end
     return mw.ustring.sub(s,1,laenge - cut)
   end

```

```
   function Str.cropleft(frame)
     local s = frame.args[1]
     local cut = tonumber(frame.args[2])
     local laenge =  mw.ustring.len(s)
     if (not cut) or (cut < 1) then
       return s
     end
     return mw.ustring.sub(s,cut+1,-1)
   end

```

```
   function Str.find(frame)
     if not frame.args[2] or frame.args[2] == "" then
       return 1
     end
     local  idx = mw.ustring.find(frame.args[1], frame.args[2],1, true)
     if idx then
         return idx
     else
         return -1
     end
   end

```

```
   function Str.hex2dez(frame)
     a = tonumber(frame.args[1],16)
     if a then
       return a
     else
       return 0
     end
   end

```

```
   function Str.match(frame)
       local text = frame.args[1] or ""
       local pattern = frame.args[2] or ""
       local index = tonumber(frame.args[3]) or 0
       if (text == "" or pattern == "") then return "" end

       -- return all captures (denoted by brackets in the pattern) if index is zero, otherwise return only the index-th capture
       if index <= 0 then
           return mw.ustring.match(text, pattern)
       else
           return ({mw.ustring.match(text, pattern)})[index]
       end
   end

```

function escape\_lua\_regex(str)
 return mw.ustring.gsub(str, ".", {
 ["%"] = "%%";
 ["^"] = "%^";
 ["$"] = "%$";
 ["."] = "%.";
 ["("] = "%(";
 [")"] = "%)";
 ["["] = "%[";
 ["]"] = "%]";
 ["?"] = "%?";
 ["\*"] = "%\*";
 ["+"] = "%+";
 ["-"] = "%-";
 ["\0"] = "%z";

```
 	})

```

end

function Str.replace(frame)
 local text = frame.args[1] or "" -- Text, der bearbeitet werden soll
 local search = frame.args[2] or "" -- Textstellen innerhalb von "text" die ersetzt werden sollen
 if text == "" or search == "" then return "" end

 local replace = frame.args[3] or "" -- Ersetzungstext
 local count = tonumber(frame.args[4]) -- Anzahl der Ersetzungen (optional)
 local regexsearch = frame.args[5] -- beliebiger Wert um dafür zu sorgen, dass der Suchtext "search" als Lua-regulärer Ausdruck behandelt werden soll

 if not regexsearch or regexsearch == "" then
 search = escape\_lua\_regex(search)
 replace = mw.ustring.gsub(replace, "%%", "%%%%")
 end

 local result
 if count then
 result,\_ = mw.ustring.gsub(text, search, replace, count)
 else
 result,\_ = mw.ustring.gsub(text, search, replace)
 end
 return result
end

 -- richtet Zahlen numerisch aus
 function Str.adjustnumber(frame)
 local ausgabe;
 local text = frame.args[1] or "" -- Text, der bearbeitet werden soll, i.d.R. eine Dezimalzahl
 local i\_li = math.floor(tonumber(frame.args[2])) or 2; -- maximale Stellen links vom Trennzeichen
 local i\_re = math.floor(tonumber(frame.args[3])) or 2; -- maximale Stellen rechts vom Trennzeichen
 local sign = frame.args['Z'] or "," -- Trennzeichen
 local zeroes='00000000000000000000'; -- 20 duerften ausreichen.
 local zpos = 0;
 local len = mw.ustring.len(text);
 if not text or sign == "" then
 zpos = len + 1;
 else
 zpos = mw.ustring.find(text, sign,1, true) or len;
 end

 local zl = 0;
 local zr = 0;
 local t\_li = "";
 local t\_re = "";
 local z\_li ="";
 local z\_re ="";

 if zpos > 1 then
 t\_li = mw.ustring.sub(text,1, zpos-1);
 else
 t\_li="";
 end

 if len-zpos > 0 then
 t\_re = mw.ustring.sub(text,zpos+1,-1);
 else
 t\_re="";
 end

 zl = i\_li - mw.ustring.len(t\_li);
 if zl < 1 then
 zl = 0;
 z\_li = "";
 else
 z\_li = '' .. mw.ustring.sub(zeroes,1,zl) .. '';
 end

 zr = i\_re - mw.ustring.len(t\_re);
 if zr < 1 then
 zr = 0;
 z\_re ="";
 else
 z\_re ='' .. mw.ustring.sub(zeroes,1,zr) .. '';
 end
 ausgabe = z\_li .. t\_li .. sign .. t\_re .. z\_re;
 return ausgabe;
 end

```
return Str

```