init

Tools/CodeGeneration/Templates/Common/StringUtil.tdl

@@ -0,0 +1,85 @@
+//***************************************************************************//
+//A kapott sztring első betűjét nagybetűvé alakítja.                         //
+//***************************************************************************//
+tcl_proc ToUpperFirst(str)
+    return [string toupper [string index $str 0]][string range $str 1 end];
+end proc
+
+
+//***************************************************************************//
+//A kapott sztring első betűjét kisbetűvé alakítja.                          //
+//***************************************************************************//
+tcl_proc ToLowerFirst(str)
+    return [string tolower [string index $str 0]][string range $str 1 end];
+end proc
+
+
+//***************************************************************************//
+// A kapott sztringet nagybetűssé alakítja.                                  //
+//***************************************************************************//
+tcl_proc ToUpper(str)
+    return [string toupper [string range $str 0 end]];
+end proc
+
+
+//***************************************************************************//
+// A kapott sztringet kisbetűssé alakítja.                                   //
+//***************************************************************************//
+tcl_proc ToLower(str)
+    return [string tolower [string range $str 0 end]];
+end proc
+
+
+//***************************************************************************//
+// Levágja a paraméterként kapott string jobb oldalát, úgy hogy a string     //
+// a paraméterben kapott hosszúságú legyen. Ha a string röveidebb volt, mint //
+// a paraméterként megadott érték, akkor változatlan marad a string.         //
+//***************************************************************************//
+tcl_proc TruncateString(str, length)
+    return [string range $str 0 $length]
+end proc
+
+
+//***************************************************************************//
+// kiegészít egy sztringet töltelék karakterrel, hogy a string megadott      //
+// hosszúságú legyen.                                                        //
+//     str: a bejövő string                                                  //
+//     length: a kivánt hossz                                                //
+//     delimitter: a töltelék karakter                                       //
+//     pos: string elé vagy mögé rakja a töltelék karaktereket               //
+//         értékei: [pre|post]                                               //
+//***************************************************************************//
+tcl_proc CompleteString(str,length, delimitter, pos)
+    set strLength [string length $str];
+
+    set res ""
+    set dl $delimitter
+
+    if {$strLength >= $length } {
+        return $str
+    } else {
+        while {$strLength < $length} {
+            set res $res$dl
+	    incr strLength
+        }
+    }
+
+    if {$pos == "pre"} {
+       return $res$str
+    } else {
+        if {$pos == "post"} {
+           return $str$res
+        }
+    }
+end proc
+
+
+//***************************************************************************//
+// UID_xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx formátumú GUID-ból               //
+// xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx formátumú GUID-ot csinál.            //
+// gyk: levágja az elejét                                                    //
+//***************************************************************************//
+tcl_proc TrimGUID(str)
+	return [string range $str 4 end];
+end proc
+