| 116 |
function TFavoriteBoardItem.GetItem : TBoard; |
function TFavoriteBoardItem.GetItem : TBoard; |
| 117 |
var |
var |
| 118 |
protocol, host, path, document, port, bookmark : string; |
protocol, host, path, document, port, bookmark : string; |
| 119 |
BBSID, BBSKey : string; |
BBSID{, BBSKey} : string; |
| 120 |
tmpURL : string; |
tmpURL : string; |
| 121 |
// category : TCategory; |
// category : TCategory; |
| 122 |
begin |
begin |
| 633 |
if oldURLs.Count = newURLs.Count then begin |
if oldURLs.Count = newURLs.Count then begin |
| 634 |
//これで、Boardは全て切り替わる |
//これで、Boardは全て切り替わる |
| 635 |
for i := 0 to oldURLs.Count - 1 do begin |
for i := 0 to oldURLs.Count - 1 do begin |
| 636 |
CustomStringReplace(tempStringList,oldURLs[i],newURLs[i],true); |
try |
| 637 |
end; |
CustomStringReplace(tempStringList,oldURLs[i],newURLs[i],true); |
| 638 |
//面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。 |
except |
| 639 |
for i := 0 to oldURLs.Count - 1 do begin |
end; |
| 640 |
tmpURL := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1); |
end; |
| 641 |
oldHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
//面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。 |
| 642 |
oldBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
for i := 0 to oldURLs.Count - 1 do begin |
| 643 |
tmpURL := Copy(newURLs[i], 1, Length(newURLs[i]) -1); |
try |
| 644 |
newHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
tmpURL := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1); |
| 645 |
newBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
oldHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
| 646 |
|
oldBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
| 647 |
for j := 0 to tempStringList.Count - 1 do begin |
tmpURL := Copy(newURLs[i], 1, Length(newURLs[i]) -1); |
| 648 |
tempString := tempStringList[j]; |
newHost := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) ); |
| 649 |
if AnsiPos('favtype="thread"',tempString ) <> 0 then begin |
newBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
| 650 |
tempString := Copy(tempString, AnsiPos('url="',tempString ) + 5, AnsiPos('" title="',tempString ) -AnsiPos('url="',tempString ) - 5); |
|
| 651 |
if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin |
for j := 0 to tempStringList.Count - 1 do begin |
| 652 |
tempString := StringReplace(tempStringList[j], oldHost, newHost,[]); |
try |
| 653 |
//tempString := StringReplace(tempString, oldBoardName, newBoardName,[]); |
tempString := tempStringList[j]; |
| 654 |
tempStringList[j] := tempString; |
if AnsiPos('favtype="thread"',tempString ) <> 0 then begin |
| 655 |
end; |
tempString := Copy(tempString, AnsiPos('url="',tempString ) + 5, AnsiPos('" title="',tempString ) -AnsiPos('url="',tempString ) - 5); |
| 656 |
|
if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin |
| 657 |
end; |
tempString := StringReplace(tempStringList[j], oldHost, newHost,[]); |
| 658 |
end; |
//tempString := StringReplace(tempString, oldBoardName, newBoardName,[]); |
| 659 |
|
tempStringList[j] := tempString; |
| 660 |
|
end; |
| 661 |
|
end; |
| 662 |
|
except |
| 663 |
|
end; |
| 664 |
|
end; |
| 665 |
|
except |
| 666 |
|
end; |
| 667 |
end; |
end; |
| 668 |
|
|
| 669 |
end; |
end; |