Favorite.pas

   1 unit Favorite;
   2
   3 interface
   4
   5 uses
   6         Messages, SysUtils, Classes, Contnrs, ComCtrls, {HttpApp,} YofUtils,
   7         GikoSystem{, XMLIntf, XMLDoc}, GikoXMLDoc, BoardGroup, windows,
   8     MojuUtils;
   9         {SAX, SAXHelpers, SAXComps, SAXKW;}
  10
  11 type
  12         TFavoriteFolder = class
  13         end;
  14
  15         TFavoriteBoardItem = class
  16         private
  17                 FItem                           : TBoard;
  18                 FURL                            : string;
  19                 FTitle                  : string;
  20                 function        GetItem : TBoard;
  21         public
  22                 constructor Create( inURL : string; inTitle : string = ''; inItem : TBoard = nil );
  23                 constructor CreateWithItem( inItem : TBoard );
  24                 property Item                           : TBoard        read GetItem write FItem;
  25                 property URL                            : string        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
  26                 property Title                  : string        read FTitle write FTitle;
  27         end;
  28
  29         TFavoriteThreadItem = class
  30         private
  31                 FItem                           : TThreadItem;
  32                 FURL                            : string;
  33                 FTitle                  : string;
  34                 function        GetItem : TThreadItem;
  35         public
  36                 constructor Create( inURL : string; inTitle : string = ''; inItem : TThreadItem = nil );
  37                 constructor CreateWithItem( inItem : TThreadItem );
  38                 property Item                           : TThreadItem   read GetItem write FItem;
  39                 property URL                            : string                        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
  40                 property Title                  : string                        read FTitle write FTitle;
  41         end;
  42
  43         TFavoriteDM = class(TDataModule)
  44                 procedure DataModuleDestroy(Sender: TObject);
  45         private
  46                 { Private \90é\8c¾ }
  47                 FStack: TStack;
  48                 FTreeView: TTreeView;
  49
  50                 procedure ReadNode(Node: IXMLNode);
  51                 procedure AddSaveString(Node: TTreeNode; SaveList: TStringList);
  52 //              procedure AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);
  53 //              procedure SAXStartDocument(Sender: TObject);
  54 //              procedure SAXEndDocument(Sender: TObject);
  55 //              procedure SAXStartElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString; const Atts: IAttributes);
  56 //              procedure SAXEndElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString);
  57 //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);
  58         public
  59                 { Public \90é\8c¾ }
  60                                 function GetFavoriteFilePath() : String;
  61                                 function SaveFavoriteFile(FileName: String) : Boolean;
  62                 procedure SetFavTreeView(TreeView: TTreeView);
  63                 procedure ReadFavorite;
  64                 procedure WriteFavorite;
  65         procedure URLReplace(oldURLs: TStringList; newURLs: TStringList);
  66                 property TreeView: TTreeView read FTreeView;
  67         end;
  68
  69 var
  70         FavoriteDM: TFavoriteDM;
  71 const
  72         FAVORITE_LINK_NAME = '\83\8a\83\93\83N';
  73
  74 implementation
  75
  76 uses    ExternalBoardManager, ExternalBoardPlugInMain;
  77
  78 const
  79         FAVORITE_ROOT_NAME = '\82¨\8bC\82É\93ü\82è';
  80         FAVORITE_FILE_NAME = 'Favorite.xml';
  81
  82 {$R *.dfm}
  83
  84 constructor TFavoriteBoardItem.Create(
  85         inURL           : string;
  86         inTitle : string = '';
  87         inItem  : TBoard = nil
  88 );
  89 begin
  90
  91         inherited Create;
  92
  93         URL             := inURL;
  94         Title   := inTitle;
  95         Item    := inItem;
  96
  97 end;
  98
  99 constructor TFavoriteBoardItem.CreateWithItem(
 100         inItem  : TBoard
 101 );
 102 begin
 103
 104         Create( inItem.URL, inItem.Title, inItem );
 105
 106 end;
 107
 108 function        TFavoriteBoardItem.GetItem : TBoard;
 109 //var
 110 //      category : TCategory;
 111 begin
 112
 113         if FItem = nil then begin
 114                 FItem := BBSsFindBoardFromURL( URL );
 115                 {
 116                 if FItem = nil then begin
 117                         // \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82\95Û\97¯
 118                         FItem                           := GikoSys.GetUnknownBoard( nil, URL );
 119                         FItem.Title     := Title;
 120                 end;
 121                 }
 122         end;
 123
 124         Result := FItem;
 125
 126 end;
 127
 128 constructor TFavoriteThreadItem.Create(
 129         inURL           : string;
 130         inTitle : string = '';
 131         inItem  : TThreadItem = nil
 132 );
 133 begin
 134
 135         inherited Create;
 136
 137         URL             := inURL;
 138         Title   := inTitle;
 139         Item    := inItem;
 140
 141 end;
 142
 143 constructor TFavoriteThreadItem.CreateWithItem(
 144         inItem  : TThreadItem
 145 );
 146 begin
 147
 148         Create( inItem.URL, inItem.Title, inItem );
 149
 150 end;
 151
 152 function        TFavoriteThreadItem.GetItem : TThreadItem;
 153 var
 154         board                                   : TBoard;
 155         boardURL                        : string;
 156         browsableURL    : string;
 157 begin
 158
 159         if FItem = nil then begin
 160                 browsableURL := GikoSys.GetBrowsableThreadURL( URL );
 161                 boardURL        := GikoSys.GetThreadURL2BoardURL( browsableURL );
 162                 board                   := BBSsFindBoardFromURL( boardURL );
 163
 164                 if board = nil then begin
 165             Result := nil;
 166                         Exit
 167                         // \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82\95Û\97¯
 168                         //board := GikoSys.GetUnknownBoard( nil, boardURL )
 169                 end else
 170                         FItem := board.FindThreadFromURL( browsableURL );
 171
 172                 if FItem = nil then begin
 173                         FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
 174
 175                         FItem.Title := Title;
 176                         board.Add( FItem );
 177                 end;
 178         end;
 179
 180         Result := FItem;
 181
 182 end;
 183
 184 procedure TFavoriteDM.DataModuleDestroy(Sender: TObject);
 185 var
 186         i: Integer;
 187 begin
 188     TreeView.Items.BeginUpdate;
 189         for i := TreeView.Items.Count - 1 downto 0 do begin
 190                 TObject(TreeView.Items[i].Data).Free;
 191         end;
 192     TreeView.Items.Clear;
 193     TreeView.Items.EndUpdate;
 194     //TreeView.Free;
 195 end;
 196
 197 procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);
 198 begin
 199         FTreeView := TreeView;
 200 end;
 201
 202 procedure TFavoriteDM.ReadFavorite;
 203 var
 204         FileName: string;
 205         XMLDoc: IXMLDocument;
 206         XMLNode: IXMLNode;
 207         Node: TTreeNode;
 208         i: Integer;
 209         FavFolder: TFavoriteFolder;
 210         LinkExists: Boolean;
 211 begin
 212
 213         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 214
 215         FavFolder := TFavoriteFolder.Create;
 216         Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 217         Node.ImageIndex := 14;
 218         Node.SelectedIndex := 14;
 219
 220         if FileExists(FileName) then begin
 221                 try
 222             XMLDoc := IXMLDocument.Create;
 223                         //XMLDoc := LoadXMLDocument(FileName);
 224             LoadXMLDocument(FileName, XMLDoc);
 225                         XMLNode := XMLDoc.DocumentElement;
 226
 227                         FStack := TStack.Create;
 228                         try
 229                                 FStack.Push(Node);
 230                                 LinkExists := False;
 231                                 if XMLNode.NodeName = 'favorite' then begin
 232                                         for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
 233                                                 ReadNode(XMLNode.ChildNodes[i]);
 234                                                 if (XMLNode.ChildNodes[i].NodeName = 'folder') and
 235                                                          (XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin
 236                                                         LinkExists := True;
 237                                                 end;
 238                                         end;
 239                                 end;
 240                                 if not LinkExists then begin
 241                                         FavFolder := TFavoriteFolder.Create;
 242                                         Node := FTreeView.Items.AddChildObject(Node, FAVORITE_LINK_NAME, FavFolder);
 243                                         Node.ImageIndex := 14;
 244                                         Node.SelectedIndex := 14;
 245                                 end;
 246                         finally
 247                                 FStack.Free;
 248                 XMLDoc.Free;
 249                         end;
 250                 except
 251                 end;
 252         end;
 253
 254 {
 255         FavFolder := TFavoriteFolder.Create;
 256         Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 257         Node.ImageIndex := 12;
 258         Node.SelectedIndex := 13;
 259
 260         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 261         if not FileExists(FileName) then
 262                 Exit;
 263
 264                 FavSAXHandler.OnStartDocument := SAXStartDocument;
 265                 FavSAXHandler.OnEndDocument := SAXEndDocument;
 266                 FavSAXHandler.OnStartElement := SAXStartElement;
 267                 FavSAXHandler.OnStartElement := SAXStartElement;
 268                 FavSAXHandler.OnEndElement := SAXEndElement;
 269                 FavSAXHandler.OnCharacters := SAXCharacters;
 270
 271                 FavSAXReader.Vendor := 'Keith Wood';
 272                 FavSAXReader.URL := FileName;
 273                 FavSAXReader.Parse;}
 274 end;
 275
 276 procedure TFavoriteDM.ReadNode(Node: IXMLNode);
 277 var
 278         i: Integer;
 279
 280         ParentNode: TTreeNode;
 281         CurrentNode: TTreeNode;
 282         FavFolder: TFavoriteFolder;
 283         FavBoard: TFavoriteBoardItem;
 284         FavThread: TFavoriteThreadItem;
 285         board                           : TBoard;
 286         threadItem      : TThreadItem;
 287 begin
 288         if Node.NodeName = 'folder' then begin
 289                 ParentNode := FStack.Peek;
 290                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 291                         FavFolder := TFavoriteFolder.Create;
 292                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder);
 293                         CurrentNode.ImageIndex := 14;
 294                         CurrentNode.SelectedIndex := 14;
 295                         CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
 296                         FStack.Push(CurrentNode);
 297                 end;
 298                 for i := 0 to Node.ChildNodes.Count - 1 do begin
 299                         ReadNode(Node.ChildNodes[i]);
 300                 end;
 301                 if FStack.Count <> 0 then
 302                         FStack.Pop;
 303         end else if Node.NodeName = 'favitem' then begin
 304                 try
 305                         ParentNode := FStack.Peek;
 306                         if TObject(ParentNode.Data) is TFavoriteFolder then begin
 307                                 if Node.Attributes['favtype'] = 'board' then begin
 308                                         FavBoard := nil;
 309                                         // \8b\8c\8e®\82Ì\82¨\8bC\82É\93ü\82è\82Æ\82Ì\8cÝ\8a·\90«\82Ì\82½\82ß
 310                                         if Length( Node.Attributes[ 'bbs' ] ) > 0 then begin
 311                                                 board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );
 312                                                 if board <> nil then
 313                                                         FavBoard := TFavoriteBoardItem.Create(
 314                                                                 board.URL, Node.Attributes[ 'title' ], board );
 315                                         end else begin
 316                                                 FavBoard := TFavoriteBoardItem.Create(
 317                                                         Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 318                                         end;
 319                                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavBoard);
 320                                         CurrentNode.ImageIndex := 15;
 321                                         CurrentNode.SelectedIndex := 15;
 322                                 end else if Node.Attributes['favtype'] = 'thread' then begin
 323                                         // \8b\8c\8e®\82Ì\82¨\8bC\82É\93ü\82è\82Æ\82Ì\8cÝ\8a·\90«\82Ì\82½\82ß
 324                                         if Length( Node.Attributes[ 'bbs' ] ) > 0 then begin
 325                                                 board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );
 326                                                 if board = nil then
 327                                                         Exit;
 328
 329                                                 if not board.IsThreadDatRead then
 330                                                         GikoSys.ReadSubjectFile( board );
 331                                                 threadItem := board.Find( Node.Attributes[ 'thread' ] );
 332                                                 if threadItem = nil then begin
 333                                                         threadItem := TThreadItem.Create(
 334                                                                 board.BoardPlugIn,
 335                                                                 GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );
 336                                                         threadItem.Title := Node.Attributes[ 'title' ];
 337                                                         board.Add( threadItem );
 338                                                 end;
 339                                                 FavThread := TFavoriteThreadItem.Create(
 340                                                         threadItem.URL, Node.Attributes[ 'title' ], threadItem );
 341                         threadItem.Free;
 342                                         end else begin
 343                                                 FavThread := TFavoriteThreadItem.Create(
 344                                                         Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 345                                         end;
 346                                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavThread);
 347                                         CurrentNode.ImageIndex := 16;
 348                                         CurrentNode.SelectedIndex := 16;
 349                                 end;
 350                         end;
 351                 except
 352                         // \82±\82Ì\83A\83C\83e\83\80\82Å\96â\91è\82ª\8bN\82«\82Ä\82à\91¼\82Ì\83A\83C\83e\83\80\82É\89e\8b¿\82ð\97^\82¦\82½\82\82È\82¢\82Ì\82Å
 353                 end;
 354         end;
 355 end;
 356
 357 procedure TFavoriteDM.WriteFavorite;
 358 {
 359 var
 360         FileName: string;
 361 //      SaveList: TStringList;
 362 //      i: Integer;
 363 //      Count: Integer;
 364
 365         XMLDoc: IXMLDocument;
 366         XMLNode: IXMLNode;
 367 //      FavoNode: IXMLNode;
 368 begin
 369         XMLDoc :=       NewXMLDocument;
 370         XMLDoc.Encoding := 'Shift_JIS';
 371         XMLDoc.StandAlone := 'yes';
 372         XMLNode := XMLDoc.AddChild('favorite');
 373         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 374         AddSaveString(TreeView.Items.GetFirstNode, XMLNode);
 375         XMLDoc.SaveToFile(FileName);
 376 }
 377 var
 378         FileName: string;
 379         SaveList: TStringList;
 380 begin
 381         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 382         SaveList := TStringList.Create;
 383         try
 384                 SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
 385                 SaveList.Add('<favorite>');
 386                 AddSaveString(TreeView.Items.GetFirstNode, SaveList);
 387                 SaveList.Add('</favorite>');
 388                 SaveList.SaveToFile(FileName);
 389         finally
 390                 SaveList.Free;
 391         end;
 392 end;
 393
 394 {
 395 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);
 396 var
 397         i: Integer;
 398 //      s: string;
 399         FavBoard: TFavoriteBoardItem;
 400         FavThread: TFavoriteThreadItem;
 401         FavNode: IXMLNode;
 402 begin
 403         for i := 0 to Node.Count - 1 do begin
 404                 if TObject(Node.Item[i].Data) is TFavoriteFolder then begin
 405                         FavNode := XMLNode.AddChild('folder');
 406                         FavNode.Attributes['title'] := Node.Item[i].Text;
 407                         AddSaveString(Node.Item[i], FavNode);
 408                 end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
 409                         FavBoard := TFavoriteBoardItem(Node.Item[i].Data);
 410                         FavNode := XMLNode.AddChild('favitem');
 411                         FavNode.Attributes['type'] := '2ch';
 412                         FavNode.Attributes['favtype'] := 'board';
 413                         FavNode.Attributes['bbs'] := FavBoard.BBSID;
 414                         FavNode.Attributes['title'] := Node.Item[i].Text;
 415                         FavNode.Attributes['boardname'] := FavBoard.BoardName;
 416                 end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
 417                         FavThread := TFavoriteThreadItem(Node.Item[i].Data);
 418                         FavNode := XMLNode.AddChild('favitem');
 419                         FavNode.Attributes['type'] := '2ch';
 420                         FavNode.Attributes['favtype'] := 'thread';
 421                         FavNode.Attributes['bbs'] := FavThread.BBSID;
 422                         FavNode.Attributes['thread'] := FavThread.ThreadID;
 423                         FavNode.Attributes['title'] := Node.Item[i].Text;
 424                         FavNode.Attributes['threadname'] := FavThread.ThreadName;
 425                 end;
 426         end;
 427 end;
 428 }
 429
 430 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; SaveList: TStringList);
 431 var
 432         i: Integer;
 433         s: string;
 434         FavBoard: TFavoriteBoardItem;
 435         FavThread: TFavoriteThreadItem;
 436 begin
 437         for i := 0 to Node.Count - 1 do begin
 438                 if TObject(Node.Item[i].Data) is TFavoriteFolder then begin
 439                         if Node.Item[ i ].Expanded then
 440                                 s := Format('<folder title="%s" expanded="true">', [HtmlEncode(Node.Item[i].Text)])
 441                         else
 442                                 s := Format('<folder title="%s" expanded="false">', [HtmlEncode(Node.Item[i].Text)]);
 443                         SaveList.Add(s);
 444                         AddSaveString(Node.Item[i], SaveList);
 445                         SaveList.Add('</folder>');
 446                 end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
 447                         FavBoard := TFavoriteBoardItem(Node.Item[i].Data);
 448                         s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',
 449                                                                         [HtmlEncode( FavBoard.URL ), HtmlEncode(Node.Item[ i ].Text)]);
 450                         SaveList.Add(s);
 451                 end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
 452                         FavThread := TFavoriteThreadItem(Node.Item[i].Data);
 453                         s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',
 454                                                                         [HtmlEncode( FavThread.URL ), HtmlEncode(Node.Item[ i ].Text)]);
 455                         SaveList.Add(s);
 456                 end;
 457         end;
 458 end;
 459
 460 {
 461 procedure TFavoriteDM.SAXStartDocument(Sender: TObject);
 462 begin
 463         FStack := TStack.Create;
 464         FStack.Push(FTreeView.Items.GetFirstNode);
 465 end;
 466
 467 procedure TFavoriteDM.SAXEndDocument(Sender: TObject);
 468 begin
 469         FStack.Free;
 470 end;
 471
 472 procedure TFavoriteDM.SAXStartElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString;
 473         const Atts: IAttributes);
 474 var
 475         FavType: string;
 476         ParentNode: TTreeNode;
 477         CurrentNode: TTreeNode;
 478         FavFolder: TFavoriteFolder;
 479         FavBoard: TFavoriteBoardItem;
 480         FavThread: TFavoriteThreadItem;
 481 begin
 482         if QName = 'folder' then begin
 483                 ParentNode := FStack.Peek;
 484                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 485                         FavFolder := TFavoriteFolder.Create;
 486                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavFolder);
 487                         CurrentNode.ImageIndex := 12;
 488                         CurrentNode.SelectedIndex := 13;
 489                         FStack.Push(CurrentNode);
 490                 end;
 491         end else if QName = 'favitem' then begin
 492                 ParentNode := FStack.Peek;
 493                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 494                         FavType := Atts.getValue('favtype');
 495                         if FavType = 'board' then begin
 496                                 FavBoard := TFavoriteBoardItem.Create;
 497                                 FavBoard.BBSID := Atts.getValue('bbs');
 498                                 FavBoard.BoardName := Atts.getValue('boardname');
 499                                 CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavBoard);
 500                                 CurrentNode.ImageIndex := 14;
 501                                 CurrentNode.SelectedIndex := 15;
 502                         end else if FavType = 'thread' then begin
 503                                 FavThread := TFavoriteThreadItem.Create;
 504                                 FavThread.BBSID := Atts.getValue('bbs');
 505                                 FavThread.ThreadID := Atts.getValue('thread');
 506                                 FavThread.ThreadName := Atts.getValue('threadname');
 507                                 CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavThread);
 508                                 CurrentNode.ImageIndex := 16;
 509                                 CurrentNode.SelectedIndex := 17;
 510                         end;
 511                 end;
 512         end;
 513 end;
 514
 515 procedure TFavoriteDM.SAXEndElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString);
 516 begin
 517         if QName = 'folder' then begin
 518                 if FStack.Count <> 0 then
 519                         FStack.Pop;
 520         end;
 521 end;
 522
 523 procedure TFavoriteDM.SAXCharacters(Sender: TObject; const PCh: SAXString);
 524 begin
 525 //
 526 end;
 527 }
 528 function TFavoriteDM.SaveFavoriteFile(FileName: String) : Boolean;
 529 var
 530         FavoriteFilePath: string;
 531                 tempStringList: TStringList;
 532 begin
 533
 534         FavoriteFilePath := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 535
 536         if FileExists( FavoriteFilePath ) then begin
 537                 tempStringList := TStringList.Create;
 538                 try
 539                         tempStringList.LoadFromFile( FavoriteFilePath );
 540                         tempStringList.SaveToFile( FileName );
 541                 finally
 542                         tempStringList.Free;
 543                 end;
 544                 Result := true;
 545         end else begin
 546                 Result := false;
 547         end;
 548 end;
 549
 550 procedure TFavoriteDM.URLReplace(oldURLs: TStringList; newURLs: TStringList);
 551 var
 552         FavoriteFilePath: string;
 553     tempStringList: TStringList;
 554     i: Integer;
 555     j: Integer;
 556     tmpURL: string;
 557     oldHost: string;
 558     oldBoardName: string;
 559     newHost: string;
 560     newBoardName: string;
 561     tempString: string;
 562 begin
 563
 564         FavoriteFilePath := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 565
 566         if FileExists( FavoriteFilePath ) then begin
 567                 tempStringList := TStringList.Create;
 568                 try
 569                         tempStringList.LoadFromFile( FavoriteFilePath );
 570             if oldURLs.Count = newURLs.Count then begin
 571                 //\82±\82ê\82Å\81ABoard\82Í\91S\82Ä\90Ø\82è\91Ö\82í\82é
 572                         for i := 0 to oldURLs.Count - 1 do begin
 573                             CustomStringReplace(tempStringList,oldURLs[i],newURLs[i],true);
 574                 end;
 575                 //\96Ê\93|\82¾\82¯\82Çthread\82Í\82»\82ê\82¼\82êURL\82ð\83`\83\83\83b\83N\82µ\82È\82ª\82ç\82â\82Á\82Ä\82©\82È\82«\82á\82¢\82¯\82È\82¢\81B
 576                 for i := 0 to oldURLs.Count - 1 do begin
 577                     tmpURL                      := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1);
 578                                     oldHost                     := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
 579                                 oldBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
 580                     tmpURL                      := Copy(newURLs[i], 1, Length(newURLs[i]) -1);
 581                                 newHost                 := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
 582                                 newBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
 583
 584                                 for j := 0 to tempStringList.Count - 1 do begin
 585                                                 tempString := tempStringList[j];
 586                         if AnsiPos('favtype="thread"',tempString ) <> 0 then begin
 587                                 tempString := Copy(tempString, AnsiPos('url="',tempString ) + 5, AnsiPos('" title="',tempString ) -AnsiPos('url="',tempString ) - 5);
 588                             if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
 589                                 tempString := StringReplace(tempStringList[j], oldHost, newHost,[]);
 590                                 //tempString := StringReplace(tempString, oldBoardName, newBoardName,[]);
 591                                 tempStringList[j] := tempString;
 592                             end;
 593
 594                         end;
 595                         end;
 596                 end;
 597
 598             end;
 599
 600                         tempStringList.SaveToFile( FavoriteFilePath );
 601                 finally
 602                         tempStringList.Free;
 603                 end;
 604         end;
 605 end;
 606
 607 function TFavoriteDM.GetFavoriteFilePath() : String;
 608 begin
 609         Result := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 610 end;
 611
 612 end.