85 lines
3.5 KiB
Text
85 lines
3.5 KiB
Text
//***************************************************************************//
|
|
//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
|
|
|