《软件自动化测试成功之道》节选11 - 常用脚本函数的封装

《软件自动化测试成功之道》节选11 - 常用脚本函数的封装

http://www.china-pub.com/196509

 

 

 

 

项目回顾>>>

2008-5-29

今天发现很多地方需要使用到字符串的操作，而DelphiScipt的字符串操作函数不大好用，因此有必要把常用的一些字符串操作封装成函数，已备调用。

 

（1） 替换字符串

//.............................................................................

// 目的：替换字符串

// 输入参数：

//          Str:待替换的字符串

//          StrTobeRep:需要被替换掉的字符串

//          StrRep:替换的字符串

// 返回结果：替换后的字符串

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_RePlace(Str,StrTobeRep,StrRep);

begin

  Str := dotNET.System_Text.StringBuilder.zctor(Str);

  Str := Str.RePlace_2(StrTobeRep,StrRep).ToString;

  Result := Str;

end;

Procedure Test_String_RePlace;

  Var Str : OleVariant;

begin

  Str := String_RePlace('D:/Code/FileSelctionDialog/FileSelctionDialog/bin/Debug','D:','|桌面|我的电脑|本地磁盘 (D:)');

  Log.Message(String_RePlace(Str,'/','|'));

end;

这里使用的是.NET类库中的StringBuilder对象，另外，也可以使用Utilities对象中的StringReplace来替换字符串：

Procedure Test_String_RePlace_2;

  Var Str : OleVariant;

begin

  Str := Utilities.StringReplace('D:/Code/FileSelctionDialog/FileSelctionDialog/bin/Debug','D:','|桌面|我的电脑|本地磁盘 (D:)',1);

  Log.Message(Utilities.StringReplace(Str,'/','|',1));

end;

其中StringReplace的第三个参数是一个标志位，可以使用以下两个值：

1：是否替换所有。如果没有使用该值，则仅替换找到的第一个。

2：是否大小写敏感。使用该值表示大小写不敏感地匹配，不使用该值则表示大小写敏感。

（2）分割字符串

//.............................................................................

// 目的：分割字符串

// 输入参数：

//          Str:待替换的字符串

//          Separator:分割符

// 返回结果：分割后的字符串保存在数组并返回

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_Split(Str,Separator);

  Var StringArray,Count ,I: OleVariant;

begin

  StringArray := CreateVariantArray(0,0);

  Count := BuiltIn.GetListCount(Str, Separator);

  VarArrayRedim(StringArray,Count);

  For I:=0 to Count - 1 do

  begin

    StringArray[I] := BuiltIn.GetListItem(Str , I , Separator);

  end;

  Result := StringArray;

end; 

Procedure Test_String_Split;

  Var StringArray,I : OleVariant;

begin

  StringArray := String_Split('D:/Code/FileSelctionDialog/FileSelctionDialog/bin/Debug','/');

  For I := 0 to VarArrayHighBound(StringArray,1)-1 do

  begin

    Log.Message(StringArray[I]);

  end;

end;

（3）读取部分字符串

//.............................................................................

// 目的：读取字符串中的一部分

// 输入参数：

//          Str:待读取的字符串

//          StartIndex:开始读取的Index位置

//          EndIndex：结束读取的Index位置

// 返回结果：读取到的部分字符串

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_SubString(Str,StartIndex,EndIndex);

begin

  Str := dotNET.System_Text.StringBuilder.zctor(Str).ToString;

  Str := Str.SubString(StartIndex,EndIndex).ToString;

  Result := Str;   

end;

Procedure Test_String_SubString;

begin

  Log.Message(String_SubString('1234567890',0,2));

end;

这里使用的是.NET类库中的StringBuilder对象的SubString函数，另外，也可以使用使用DelphiScript的Copy函数来读取字符串中的一部分：

// 使用DelphiScript的Copy函数来读取字符串中的一部分

Procedure Test_String_SubString_2;

  var Str : OleVariant;

begin

  Str:='1234567890'; 

  Log.Message(Copy(Str,2,5)); 

  Log.Message(Copy(Str,2, 20));

  Log.Message(Copy(Str,-2,3));

  Log.Message(Copy(Str,2,0));

end;

（4）查找字符串

查找字符串可以使用.NET的String对象的Contains函数，用于确定是否包含指定的字符串：

//.............................................................................

// 目的：查找字符串是否包含指定的字符串

// 输入参数：

//          Str:待查找的字符串

//          SubStr:被查找的字符串

// 返回结果：

//          True：包含指定的字符串

//          False：不包含指定的字符串

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_Contains(Str,SubStr);

begin

  Str := dotNET.System_Text.StringBuilder.zctor(Str).ToString;

  Result := Str.Contains(SubStr);

end;

Procedure Test_String_Contains;

begin

   Log.Message(String_Contains('01234567890','456'));   

end;

另外，也可以使用DelphiScript提供的Pos函数来判断是否出现指定的字符串，如果包含，则返回第一个出现的位置；如果不包含，则返回False值，如下代码所示：

//.............................................................................

// 目的：查找字符串是否包含指定的字符串

// 输入参数：

//          Str:待查找的字符串

//          SubStr:被查找的字符串

// 返回结果：

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_Contains_2(Str,SubStr);

  Var Index :OleVariant;

begin

  Result := False;

  Index := Pos(SubStr,Str);

  IF Index > 0 then

    Result := Index;

end;

Procedure Test_String_Contains_2;

begin

   Log.Message(String_Contains_2('01234567890','456'));   

end;

（5）匹配开头字符串

//.............................................................................

// 目的：判断字符串是否以指定的字符串开头

// 输入参数：

//          Str:待查找的字符串

//          SubStr:开头的字符串

// 返回结果：

//          True：字符串以指定的字符串开头

//          False：字符串不以指定的字符串开头

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_StartsWith(Str,SubStr);

begin

  Str := dotNET.System_Text.StringBuilder.zctor(Str).ToString;

  Result := Str.StartsWith(SubStr);

end;

Procedure Test_String_StartsWith;

begin

   Log.Message(String_StartsWith('01234567890','123'));   

end;

（6）匹配结尾字符串

//.............................................................................

// 目的：判断字符串是否以指定的字符串结尾

// 输入参数：

//          Str:待查找的字符串

//          SubStr:结尾的字符串

// 返回结果：

//          True：字符串以指定的字符串结尾

//          False：字符串不以指定的字符串结尾

// 注意事项：

// 作者：陈能技

// 日期：2008-5-29

//.............................................................................

Function String_EndsWith(Str,SubStr);

begin

  Str := dotNET.System_Text.StringBuilder.zctor(Str).ToString;

  SubStr := dotNET.System_Text.StringBuilder.zctor(SubStr).ToString; 

  Result := Str.EndsWith(SubStr);

end;

Procedure Test_String_EndsWith;

begin

   Log.Message(String_EndsWith('01234567890','1230'));   

end;

《软件自动化测试成功之道》节选11 - 常用脚本函数的封装

http://www.china-pub.com/196509