{"id":832,"date":"2013-01-10T14:41:02","date_gmt":"2013-01-10T13:41:02","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=832"},"modified":"2018-06-12T20:42:33","modified_gmt":"2018-06-12T18:42:33","slug":"ibm-doors-dxl-die-fehlenden-stringfunktionen-the-missing-string-functions","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=832","title":{"rendered":"IBM Doors DXL: Die fehlenden Stringfunktionen \/ The missing String functions"},"content":{"rendered":"

Problem<\/h1>\n

DXL besitzt leider nur sehr wenige Stringfunktionen. Man muss sich f\u00fcr einfache Stringmanipulationen eine eigene Bibliothek bauen.
\nDXL consists only of a very less number of string functions. For this purpose you have to implement your own library.<\/p>\n

Ansatz – Approach<\/h1>\n

Ich habe die wichtigsten Stringfunktionen aus JAVA\/PHP in eine Bibliothek ausgelagert, die ich im Kopf meiner DXL Skripte einbinde…
\nI have implemented a library with the most important string function from JAVA\/PHP, which can be included in the head of DXL scripts…<\/p>\n

L\u00f6sung – Solution<\/h1>\n

Das Einbinden erfolgt z.B. mit<\/p>\n

#include "\\\\\\\\der\\\\netzwerk\\\\pfad\\\\strings.inc";<\/pre>\n
wobei oben ein Netzwerkpfad genutzt wird. Ohne Pfadangebe muss die Datei direkt im dxl-Verzeichnis der Installation des Doors-Clients liegen.<\/p>\n
\r\n\r\n\/******************************\r\n * String funktionen\r\n * @Author: Bjoern Karpenstein \r\n * @Datum:  2012-11-06 \r\n ******************************\/\r\n\/\/ Zweistellige Ganzzahl mit fuehrender Null\r\nstring getZeroPrefixedInt(int i)\r\n{\r\n\tstring s = i "";\r\n\tif (i < 10) s = "0" s "";\r\n\treturn s;\r\n}\r\n \r\n\/\/ Gib datum und Uhrzeit als String\r\nstring getDateTime()\r\n{\r\n\tstring dateTimeString = "";\r\n\tint now = intOf(dateAndTime(today));\r\n\tDate d = dateOnly(today);\r\n\tint day = intOf(date(stringOf(d)));\r\n\tint diff = now-day;\r\n\tint hours = diff \/ 3600;\r\n\tint mins = (diff - (3600 * hours)) \/ 60;\r\n\tint secs = diff - (hours * 3600) - (mins * 60);\r\n\r\n\treturn "<td>" stringOf(today, "yyyy-MM-dd") "<\/td><td>" getZeroPrefixedInt(hours) ":" getZeroPrefixedInt(mins) ":" getZeroPrefixedInt(secs) "<\/td>";\r\n} \r\n\r\n\/\/ Gib datum und Uhrzeit als String f\u00fcr Dateien\r\nstring getFileTimestamp()\r\n{\r\n\tstring dateTimeString = "";\r\n\tint now = intOf(dateAndTime(today));\r\n\tDate d = dateOnly(today);\r\n\tint day = intOf(date(stringOf(d)));\r\n\tint diff = now-day;\r\n\tint hours = diff \/ 3600;\r\n\tint mins = (diff - (3600 * hours)) \/ 60;\r\n\tint secs = diff - (hours * 3600) - (mins * 60);\r\n\r\n\treturn stringOf(today, "yyyy-MM-dd") "_" getZeroPrefixedInt(hours) "_" getZeroPrefixedInt(mins) "_" getZeroPrefixedInt(secs) "";\r\n} \r\n\r\n\/\/ Gib datum und Uhrzeit als String f\u00fcr Dateien\r\nstring getAvitumTimestamp()\r\n{\r\n\tstring dateTimeString = "";\r\n\tint now = intOf(dateAndTime(today));\r\n\tDate d = dateOnly(today);\r\n\tint day = intOf(date(stringOf(d)));\r\n\tint diff = now-day;\r\n\tint hours = diff \/ 3600;\r\n\tint mins = (diff - (3600 * hours)) \/ 60;\r\n\tint secs = diff - (hours * 3600) - (mins * 60);\r\n\r\n\treturn stringOf(today, "yyyy-MM-dd") " " getZeroPrefixedInt(hours) ":" getZeroPrefixedInt(mins) ":" getZeroPrefixedInt(secs) "";\r\n} \r\n\r\n\/\/ Gib datum und Uhrzeit als String f\u00fcr Dateien\r\nstring getAvitumDate(Date d)\r\n{\r\n\treturn stringOf(d, "yyyy-MM-dd");\r\n} \r\n \r\n\/\/ Gibt die Groesse eines Arrays zur\u00fcck\r\nint getArraySize(Array a){\r\n    int size = 0;\r\n    while( !null(get(a, size, 0) ) )\r\n        size++;\r\n    return size;\r\n}\r\n\r\n\/\/ Fuegt einen String in ein Array hinzu\r\nvoid addArrayString(Array a, string str)\r\n{\r\n    int array_index = getArraySize(a);\r\n\r\n    put(a, str, array_index, 0);\r\n}\r\n\r\n\/\/ Gibt den String im Array zurueck\r\nstring getArrayString(Array a, int index)\r\n{\r\n    return (string get(a, index, 0));\r\n}\r\n\r\n\/\/ Setze String f\u00fcr vorhandene Array-Position\r\nvoid setArrayString(Array a, int change_index, string newString)\r\n{\r\n\tput(a, newString, change_index, 0);\r\n}\r\n\r\n\/\/ Der notorische Sortieralgorithmus f\u00fcr Arme\r\nvoid bubbleSort(Array a, bool asc)\r\n{\r\n\tint size=getArraySize(a);\r\n\r\n\tint i=0;\r\n\tint j=0;\r\n\tfor(i=0; i<size; i++)\r\n\t{\r\n\t\tfor(j=0;j<size; j++)\r\n\t\t{\r\n\t\t\tbool sortierKriterium=asc?getArrayString(a,i)<getArrayString(a,j):getArrayString(a,i)>getArrayString(a,j);\r\n\t\t\tif(sortierKriterium)\r\n\t\t\t{\r\n\t\t\t\t\/\/ Tauschen\r\n\t\t\t\tstring swapRAM=getArrayString(a,j);\r\n\t\t\t\tsetArrayString(a, j, getArrayString(a,i));\r\n\t\t\t\tsetArrayString(a, i, swapRAM);\r\n\t\t\t\t\r\n\t\t\t}\r\n\t\t}\r\n\t}\t\r\n}\r\n\r\n\r\n\/\/ Zum analysieren eines Strings auf seine Ascii Zeichen\r\nstring giveMeAscii(string withoutAscii)\r\n{\r\n\tstring myAsciiString = "";\r\n\tfor (i=0; i<length(withoutAscii); i++)\r\n\t{  \r\n   \t\tchar c = withoutAscii[i];            \/\/ <<<--- here you go, get the char\r\n   \t\tint ascii = intOf(c);        \/\/ <<<--- convert char to Ascii Code\r\n   \t\tmyAsciiString = myAsciiString "" c "[" ascii "]";\r\n\t}\r\n\t\r\n\treturn myAsciiString;\r\n}\r\n\r\n\/\/ Erstellt z.B. einen CSV String \r\nstring joinString(string joiner, Array str_array)\r\n{\r\n    Buffer joined = create;\r\n    int array_index = 0;\r\n\r\n    joined += "";\r\n\r\n    for(array_index = 0; array_index < getArraySize(str_array); array_index++)\r\n    {\r\n        joined += getArrayString(str_array, array_index);\r\n        if( array_index + 1 < getArraySize(str_array) )\r\n            joined += joiner;\r\n    }\r\n\r\n    return stringOf(joined)\r\n}\r\n\r\n\/\/ Zerhackt einen String nach einem definierten Zeichen und gibt ihn als Array zurueck\r\nArray split(string splitter, string str)\r\n{\r\n    Array tokens = create(1, 1);\r\n    Buffer buf = create;\r\n    int str_index;\r\n\r\n    buf = "";\r\n\r\n    for(str_index = 0; str_index < length(str); str_index++){\r\n        if( str[str_index:str_index] == splitter ){\r\n            addArrayString(tokens, stringOf(buf));\r\n            buf = "";\r\n        }else{\r\n            buf += str[str_index:str_index];\r\n        }\r\n    }\r\n    addArrayString(tokens, stringOf(buf));\r\n\r\n    delete buf;\r\n    return tokens;\r\n}\r\n\r\n\/\/ If the string starts with another string\r\nbool startsWith(string theString, string startsWithWhat)\r\n{\r\n\tif(length(theString)<length(startsWithWhat))\r\n\t{\r\n\t\treturn false;\r\n\t}\r\n\treturn theString[0:length(startsWithWhat)-1]==startsWithWhat\r\n}\r\n\r\n\/\/ Zaehlt wie oft Skip-Listen-Keys mit einem Teilstring anfangen\r\nint countKeysThatStartWith(string prefixPfad, Skip skipListeToLookForStart)\r\n{\r\n\tint countedKeys=0;\r\n\tfor myIterator in skipListeToLookForStart do \r\n  \t{\r\n    \tstring keyValue = (string key(skipListeToLookForStart));\r\n    \t\r\n    \tstring currentPfad = "";\r\n    \tif(find(skipListeToLookForStart, keyValue, currentPfad))\r\n    \t{\r\n\t    \tif(startsWith( keyValue, prefixPfad))\r\n\t    \t{\r\n\t\t    \t\tcountedKeys++;\r\n\t    \t}\r\n  \t\t}\r\n  \t}\r\n  \t\r\n  \treturn countedKeys;\r\n}\r\n\r\n\/\/ A String Replace function because there is nothing in the standard\r\nstring replace (string sSource, string sSearch, string sReplace) \r\n{\r\n    int iLen = length sSource\r\n    if (iLen == 0) return ""\r\n    \r\n    int iLenSearch = length(sSearch)\r\n    \r\n    if (iLenSearch == 0) \r\n    { \r\n        print "Parameter error", "in strings.inc\/replace: search string must not be empty"\r\n        return "" \r\n    }\r\n    \r\n    \/\/ read the first char for latter comparison -> speed optimization\r\n    char firstChar = sSearch[0]\r\n    \r\n    Buffer s = create() \r\n    int pos = 0, d1,d2;    \r\n    int i\r\n    \r\n    while (pos < iLen) { \r\n        char ch = sSource[pos]; \r\n        bool found = true\r\n        \r\n        if (ch != firstChar) {pos ++; s+= ch; continue}\r\n        for (i = 1; i < iLenSearch; i++) \r\n           if (sSource[pos+i] != sSearch[i]) { found = false; break }\r\n        if (!found) {pos++; s+= ch; continue}\r\n        s += sReplace\r\n        pos += iLenSearch\r\n    }\r\n    \r\n    string result = stringOf s\r\n    delete s\r\n    return result\r\n}\r\n\r\n\/\/ Backslashes maskieren und LF durch <br> ersetzen\r\nstring mask(string toMask)\r\n{\r\n\tstring backslashStrip   = replace(toMask, "\\\\", "\\\\\\\\");\r\n\tstring doubleQuoteStrip = replace(backslashStrip, "\\"", "\\\\\\"");\r\n\tstring replaceLFWithBRs = replace(doubleQuoteStrip,"\\n","<br\/>");\t\t\r\n\t\/\/ string replaceLFWithBRs = replace(doubleQuoteStrip,"\012","<br\/>");\t\t\r\n\t\/\/return replace(replaceLFWithBRs, "\015", "");\r\n\treturn replaceLFWithBRs;\r\n}\r\n\r\n\/\/ Backslashes maskieren und LF durch <br> ersetzen\r\nstring unmask(string toUnMask)\r\n{\r\n\tstring backslashStrip = replace(toUnMask, "\\\\\\\\","\\\\");\r\n\tstring doubleQuoteStrip = replace(backslashStrip, "\\\\\\"","\\"");\r\n\t\r\n\t\/\/ wenn da <br\/> drinne sind ignoriere 13 oder 10 \r\n\t\r\n\tstring machLFWeg = replace(doubleQuoteStrip,"<br\/>","\\n");\r\n\t\r\n\t\/\/ string machLFWeg = replace(doubleQuoteStrip,"<br\/>","\012") <- 10 wech;\r\n\t\/\/ return replace(machLFWeg, "\015", "") <- 13 wech;\r\n\t\r\n\treturn machLFWeg;\r\n}\r\n\r\n\/\/ LTRIM gibts wohl nicht\r\nstring leftTrim(string einString)\r\n{\r\n   int dieLetztePosition=-1;\r\n   for (x=0; x<length(einString); x++)\r\n   {\r\n      if( einString[x:x] != " " )\r\n      {\r\n        dieLetztePosition=x;\r\n         break;\r\n      }\r\n   }\r\n\r\n   return einString[dieLetztePosition:];\r\n}\r\n\r\n\/\/ RTRIM gibts wohl nicht\r\nstring rightTrim(string einString)\r\n{\r\n   int dieLetztePosition=-1;\r\n   for (x=length(einString)-1; x>=0; x--)\r\n   {\r\n      if( einString[x:x] != " " )\r\n      {\r\n        dieLetztePosition=x;\r\n         break;\r\n      }\r\n   }\r\n\r\n   return einString[0:dieLetztePosition];\r\n}\r\n\r\n\/\/ Gibt die erste Position eines Strings zur\u00fcck\r\nint indexOf(string testString, string part)\r\n{\r\n\tBuffer buf = create()\r\n\tbuf = testString\r\n\tint index = 0\r\n\twhile(true)\r\n\t{\r\n\t    index = contains(buf, part, index)\r\n\t    if(0 <= index)\r\n\t    {\r\n\t        return index;\r\n\t        index += length(part)\r\n\t    }\r\n\t    else { return -1; break }\r\n\t}\r\n\tdelete(buf)\r\n}\r\n\r\n\/\/ Gibt die erste Position eines zeichens zurueck\r\nint indexOfChar(string derString, string dasZeichen)\r\n{\r\n   int dieLetztePosition=-1;\r\n   \r\n   for (x=0; x<length(derString)-1;x++)\r\n   {\r\n      if( derString[x:x] "" == dasZeichen "")\r\n      {\r\n        dieLetztePosition=x;\r\n         break;\r\n      }\r\n   }\r\n\r\n   return dieLetztePosition;\r\n}\r\n\r\n\/\/ Gibt die Auftretens-Haeufigkeit eines Characters zurueck\r\nint getCharOccurrence(string characterChain, string charToCheckFor)\r\n{\r\n   int countChars=0;\r\n\r\n   for (x=0; x<length(characterChain);x++)\r\n   {\r\n      if( characterChain[x:x] "" == charToCheckFor"")\r\n      {\r\n\t\tcountChars++;\r\n      }\r\n   }\r\n   return countChars;\r\n}\r\n\r\n\/\/ Gibt die erste Position eines zeichens zurueck\r\nint indexOfFrom(string derString, string dasZeichen, int n)\r\n{\r\n   int dieLetztePosition=-1;\r\n   int zeichenCount=0;\r\n   \r\n   for (x=0; x<length(derString)-1;x++)\r\n   {\r\n      if( derString[x:x] "" == dasZeichen "")\r\n      {\r\n      \tzeichenCount++;\r\n      \t\r\n      \tif(zeichenCount!=n)\r\n      \t{\r\n      \t\tcontinue;\r\n      \t}\r\n      \t\r\n        dieLetztePosition=x;\r\n        break;\r\n      }\r\n   }\r\n\r\n   return dieLetztePosition;\r\n}\r\n\r\n\/\/ Gibt die letzte Position eines zeichens zurueck\r\nint lastIndexOf(string derString, string dasZeichen)\r\n{\r\n   int dieLetztePosition=-1;\r\n   \r\n   for (x=length(derString)-1; x>=0; x--)\r\n   {\r\n      if( derString[x:x] "" == dasZeichen "")\r\n      {\r\n        dieLetztePosition=x;\r\n         break;\r\n      }\r\n   }\r\n\r\n   return dieLetztePosition;\r\n}\r\n\r\n\/\/ Alle Zeichen links und rechts abschneiden\r\nstring trim(string einString)\r\n{\r\n\treturn leftTrim(rightTrim(einString)) "";\r\n}\r\n\r\n\/\/ Ersetze Zeilen in einem String\r\nstring replaceLines(string content, int startLine, int targetLine, string toReplace)\r\n{\r\n\tstring newContent="";\r\n\tArray stringLines = split("\\n", content);\r\n\tint stringLineCount=getArraySize(stringLines);\r\n\t\r\n\tif(startLine>targetLine)\r\n\t{\r\n\t\treturn "replaceLines: the start index is bigger than the target index";\r\n\t}\r\n\t\r\n\tif(startLine==-1||targetLine==-1)\r\n\t{\r\n\t\treturn "replaceLines: Select start and target index bigger or equal to zero";\r\n\t}\r\n\t\r\n\tint i=0;\r\n\tfor(i=0;i<stringLineCount;i++)\r\n\t{\r\n\t\tstring stringZeile=getArrayString(stringLines,i);\t\r\n\t\t\r\n\t\tif(i>=startLine&&i<=targetLine)\r\n\t\t{\r\n\t\t\tif(i==startLine)\r\n\t\t\t{\r\n\t\t\t\tnewContent=newContent "" toReplace "\\n";\r\n\t\t\t}\r\n\t\t}\r\n\t\telse\r\n\t\t{\r\n\t\t\tnewContent=newContent "" stringZeile "\\n";\r\n\t\t}\r\n\r\n\t}\r\n\t\r\n\treturn newContent;\r\n}\r\n\r\n<\/pre>\n