//***************************************************************************//
//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