/trunk/plugins/viathinksoft/objectTypes/oid/WeidOidConverter.js |
---|
File deleted |
/trunk/plugins/viathinksoft/objectTypes/oid/WeidOidConverter.class.php |
---|
105,7 → 105,7 |
} |
$oidstr = implode('.', $elements); |
$weid = strtolower($namespace) . strtoupper($weid); // add namespace again |
$weid = $namespace . $weid; // add namespace again |
return $oidstr; |
} |
/trunk_dos/VTSFUNCS.PAS |
---|
3,7 → 3,7 |
(************************************************) |
(* VTSFUNCS.PAS *) |
(* Author: Daniel Marschall *) |
(* Revision: 2022-02-22 *) |
(* Revision: 2022-02-20 *) |
(* License: Apache 2.0 *) |
(* This file contains: *) |
(* - Various functions *) |
39,7 → 39,6 |
function LastCharPos(const S: string; const Chr: char): integer; |
function LowerCase(s: string): string; |
function UpperCase(s: string): string; |
function base_convert_bigint(numstring: string; frombase, tobase: integer): string; |
implementation |
337,26 → 336,6 |
LowerCase := res; |
end; |
function UpperCase(s: string): string; |
var |
res: string; |
i: integer; |
begin |
res := ''; |
for i := 1 to Length(s) do |
begin |
if s[i] in ['a'..'z'] then |
begin |
res := res + Chr(Ord('A')+(Ord(s[i])-Ord('a'))); |
end |
else |
begin |
res := res + s[i]; |
end; |
end; |
UpperCase := res; |
end; |
function base_convert_bigint(numstring: string; frombase, tobase: integer): string; |
var |
i: Integer; |
/trunk_dos/WEID.PAS |
---|
3,7 → 3,7 |
(* |
* WEID<=>OID Converter for TurboPascal |
* (c) Webfan.de, ViaThinkSoft |
* Revision 2022-02-22 |
* Revision 2022-02-19 |
*) |
(* |
183,7 → 183,7 |
end; |
oidstr := Copy(oidstr, 1, Length(oidstr)-1); |
weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *) |
weid := namespace + weid; (* add namespace again *) |
WeidToOid := oidstr; |
end; |
/trunk_dos/WEID_Delphi.pas |
---|
3,7 → 3,7 |
(* |
* WEID<=>OID Converter for Delphi |
* (c) Webfan.de, ViaThinkSoft |
* Revision 2022-02-22 |
* Revision 2022-02-19 |
*) |
(* |
260,7 → 260,7 |
end; |
oidstr := Copy(oidstr, 1, Length(oidstr)-1); |
weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *) |
weid := namespace + weid; (* add namespace again *) |
result := oidstr; |
end; |