Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.32 by yoffy, Tue Apr 13 11:34:23 2004 UTC revision 1.33 by h677, Tue Apr 13 13:29:30 2004 UTC
# Line 116  end; Line 116  end;
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
# Line 633  begin Line 633  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;

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26