由于工作需要 打包时需要将一个路径转换成网站配置文件中能接受的格式,即将原本的C:\Program Files\Flagele\ExpWater转换成c\:/Program Files/Flagele/ExpWater,这个处理包括以下几个方面:
1、将“\”替换成“/”
2、在字符串第二个位置插入“\”字符
3、将第一个字符由大写转换成小写
以下是相关代码:
1、这里写了一个小函数replace,供转换时调用
//转换函数,把遇到的“\”变成“/”
function replace(AStr: string): string;
var
IP,newstr: string;
i,k: Integer;
begin
//此处获取要转换的字符串,保存在IP变量中
RegQueryStringValue(HKEY_LOCAL_MACHINE,***'注册表中的位置***, 'InsPath', IP);
k:=LENGTH(IP);
for i := 1 to k do
begin
if IP = '\' then
begin
IP := '/';
i:=i+1;
end
else
begin
i:=i+1;
end;
end;
Result := IP;
end;
2、这个问题,pascal语言中有专门的字符串转换函数:
INSERT('\',installpath,2);
引用网上的解释:
插入子串。 (过程)Insert(s1,s2,I) 把s1插入到s2的第I个位置。
例:s:='abc';insert('12',s,2);结果s:='a12bc'
3、将ASCII码加32
IP[1]:=chr(ord(IP[1])+32);