| 10069 |
end; |
end; |
| 10070 |
|
|
| 10071 |
procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 10072 |
|
var |
| 10073 |
|
i: Integer; |
| 10074 |
|
j: Integer; |
| 10075 |
|
tempString: string; |
| 10076 |
|
tmpURL: string; |
| 10077 |
|
oldHost: string; |
| 10078 |
|
oldBoardName: string; |
| 10079 |
|
newHost: string; |
| 10080 |
|
newBoardName: string; |
| 10081 |
|
TabList: TStringList; |
| 10082 |
begin |
begin |
| 10083 |
//RoundList.URLReplace(oldURLs, newURLs); |
TabList := TStringList.Create; |
| 10084 |
|
if oldURLs.Count <> newURLs.Count then |
| 10085 |
|
Exit; |
| 10086 |
|
//ここから、BoardのURLの変更 |
| 10087 |
|
for j :=0 to oldURLs.Count - 1 do begin |
| 10088 |
|
for i :=0 to TabList.Count - 1 do begin |
| 10089 |
|
if TabList.Text = oldURLs[j] then |
| 10090 |
|
TabList.Text := newURLs[j]; |
| 10091 |
|
end; |
| 10092 |
|
end; |
| 10093 |
|
//ここまで、BoardのURLの変更 |
| 10094 |
|
|
| 10095 |
|
//ここから、ThreadのURLの変更 |
| 10096 |
|
//面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。 |
| 10097 |
|
for i := 0 to oldURLs.Count - 1 do begin |
| 10098 |
|
tmpURL := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1); |
| 10099 |
|
oldHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
| 10100 |
|
oldBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
| 10101 |
|
tmpURL := Copy(newURLs[i], 1, Length(newURLs[i]) -1); |
| 10102 |
|
newHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
| 10103 |
|
newBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
| 10104 |
|
|
| 10105 |
|
for j := 0 to TabList.Count - 1 do begin |
| 10106 |
|
tempString := TabList.Text; |
| 10107 |
|
if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin |
| 10108 |
|
tempString := StringReplace(tempString, oldHost, newHost,[]); |
| 10109 |
|
TabList.Text := tempString; |
| 10110 |
|
end; |
| 10111 |
|
end; |
| 10112 |
|
end; |
| 10113 |
|
//ここまで、ThreadのURLの変更 |
| 10114 |
|
|
| 10115 |
end; |
end; |
| 10116 |
|
|
| 10117 |
// 最小化される |
// 最小化される |