[文字列の一部を置換する]
文字列中の、指定された文字列を、指定された文字列で置き換えます。
置換えには AnsiReplaceStr、AnsiReplaceText関数を使います。
AnsiReplaceText関数は大文字小文字の区別をしません。
削除は Delete手続き、挿入は Insert手続きを使います。
関数ではなく手続きですので、戻り値はありません。
対象文字列を直接、削除または挿入します。
【ソースコード】 [tips0023.pas]
program tips0023;
{$APPTYPE CONSOLE}
uses
SysUtils, StrUtils;
var
strValue :String;
strBefore:String;
strAfter :String;
strInt :String;
begin
strValue := 'Hakata'; strBefore := 'a'; strAfter := 'o';
WriteLn('「' + strValue + '」の' +
'「' + strBefore + '」を「' + strAfter + '」に置換すると' +
'「' + AnsiReplaceStr(strValue, strBefore, strAfter) + '」になります。');
strValue := 'Hakata'; strBefore := 'Ha'; strAfter := 'Ni';
WriteLn('「' + strValue + '」の' +
'「' + strBefore + '」を「' + strAfter + '」に置換すると' +
'「' + AnsiReplaceStr(strValue, strBefore, strAfter) + '」になります。');
strValue := 'Hakata'; strAfter := strValue;
Delete(strAfter,5,1);
WriteLn('「' + strValue + '」の' +
'5文字目を消すと' +
'「' + strAfter + '」になります。');
strValue := 'Hakata'; strAfter := strValue;
Delete(strAfter,Length(strAfter)-2,3);
WriteLn('「' + strValue + '」の' +
'後ろから3文字を消すと' +
'「' + strAfter + '」になります。');
strValue := 'Hakata'; strInt:='ma'; strAfter := strValue;
Insert(strInt,strAfter,5);
WriteLn('「' + strValue + '」の' +
'5文字目の前にに「'+ strInt +'」を入れると' +
'「' + strAfter + '」になります。');
end.
【コンパイル&実行】 [tips0023.bat]
dcc32 tips0023.pas
tips0023.exe > tips0023.txt
pause
【実行結果】 [tips0023.txt]
「Hakata」の「a」を「o」に置換すると「Hokoto」になります。
「Hakata」の「Ha」を「Ni」に置換すると「Nikata」になります。
「Hakata」の5文字目を消すと「Hakaa」になります。
「Hakata」の後ろから3文字を消すと「Hak」になります。
「Hakata」の5文字目の前にに「ma」を入れると「Hakamata」になります。
Copyright c 2009, ohishi,All rights reserved.