Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.6 by h677, Tue Jan 6 16:14:39 2004 UTC revision 1.7 by h677, Mon Jan 19 11:33:18 2004 UTC
# Line 224  begin Line 224  begin
224    
225                                          if (tmp = 'おすすめ') or                                          if (tmp = 'おすすめ') or
226                                                   (tmp = '特別企画') or                                                   (tmp = '特別企画') or
227                                                   (tmp = 'まちBBS') or                                                   //(tmp = 'まちBBS') or
228                                                   (tmp = 'チャット') or                                                   (tmp = 'チャット') or
229                                                   (tmp = 'お絵かき') or                                                   (tmp = 'お絵かき') or
230                                                   (tmp = '運営') or                                                   (tmp = '運営') or
# Line 245  begin Line 245  begin
245                                                  tmp := Copy(s, idx2, (idx - idx2) + 4);                                                  tmp := Copy(s, idx2, (idx - idx2) + 4);
246                                                  tmp := CustomStringReplace(tmp, '<a href=', '');                                                  tmp := CustomStringReplace(tmp, '<a href=', '');
247                                                  tmp := CustomStringReplace(tmp, '</a>', '');                                                  tmp := CustomStringReplace(tmp, '</a>', '');
248                            tmp := CustomStringReplace(tmp, 'TARGET=_blank', '');
249                                                  i := AnsiPos('>', tmp);                                                  i := AnsiPos('>', tmp);
250                                                  if i <> 0 then begin                                                  if i <> 0 then begin
251                                                          URL := Copy(tmp, 1, i - 1);                                                          URL := Copy(tmp, 1, i - 1);

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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