Monclers???????????????11 - ???

[werew301459]

???????????????11 - ?????????
????>>>
2008-5-29
?????????????????????DelphiScipt??????????????????????????????????,Monclers??????
?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,Moncler Sale UK,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,Beats By Dre Headphones,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????????????????????????????????,Louboutin Shoes??????????False?,Monster Online????????
//.............................................................................
// ??????????????????
// ?????
// 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 - ?????????
Related articles?


http://www.xu999.com/forumdisplay.php?fid=34